макрос копирования текста из тегов и вставки в другие теги

[valdem]

есть xml документ. открываю его вордом. Нужно написать макрос который делает следующее
текст который между тегами <englishPhrase> копирует и вставляет в между тегами <translation> </translation> которые идут следом.

т.е. сейчас в тексте так:
<englishPhrase> in Span</englishPhrase>
<translation> </translation>
а нужно вот так:
<englishPhrase> in Span</englishPhrase>
<translation> in Span</translation>

[viter.alex]

Теги translation идут следом на той же строке, или на другой?

[valdem]

на следующей строке

[valdem]

еще когда вордом xml открываешь он теги как то выделяет. поиском не получается найти символы "<" ">"

[viter.alex]

Пробуй

Sub ReplaceTag()
  Dim sFirstTag As String, sSecondTag As String
  sFirstTag = "englishPhrase": sSecondTag = "translation"
  ActiveDocument.Range.Start = 0
  With ActiveDocument.Range.Find
    .ClearFormatting: .Replacement.ClearFormatting
    .Text = "\<" & sFirstTag & "\>" & "*" & "\</" & sFirstTag & "\>"
    .MatchWildcards = True
    While .Execute
      .Parent.Paragraphs(1).Next.Range.Text = replace(.Parent.Text, sFirstTag, sSecondTag) & vbCr
    Wend
  End With
End Sub

Для 100% надежности результата нужен исходный файл.

Добавлено позже
Кстати, обнаружил, что у документа есть свойство XMLNodes, содержащее в себе коллекцию узлов XML-документа. Если будет совсем никак, то можно с ним работать.
Если сходу макрос не работает, то можно сохранить его в текст, заменить, что нужно, а затем опять сохранить в XML.
Но, повторяю, выслать оригинал, тогда будет проще разобраться.

[valdem]

не работает, и с пересохранением не получается . куда файл выслать? Буду очень благодарен если поможете

[valdem]

тупанул... вот файлde.neededtranslations.doc только в оригинале расширение у него xml.

[viter.alex]

Так надо было и выкладывать в xml. Только заархивировать. Как же теперь искать, если даже структура xml потеряна?
Добавлено позже
Виноват, структура осталась. Будем мучать через XMLNodes
Добавлено еще позже
Лови.

Sub ReplaceTag()
  Dim sFirstTag As String, sSecondTag As String
  Dim oNode As XMLNode
  sFirstTag = "englishPhrase": sSecondTag = "translation"
  For Each oNode In ActiveDocument.XMLNodes
    If oNode.BaseName = sFirstTag Then
      If oNode.NextSibling.BaseName = sSecondTag Then
        oNode.NextSibling.Text = oNode.Text
      End If
    End If
  Next
End Sub

[valdem]

работает! я в восторге. благодарю.
а можно сделать макрос, который открывает из папки все эти xml файлы, применяет вышенаписанный код и сохраняет xml?

[Sasha_Smirnov]

А ведь может!
(Алекс, ещё 100 строк кода — и грант правительства обеспечен!)