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

[viter.alex]

Сообщение от valdem

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

Идя навстречу пожеланиям трудящихся…

Sub ReplaceTagsInMultiplyFiles()
  Dim sFirstTag As String, sSecondTag As String
  Dim oNode1 As XMLNode, oNode2 As XMLNode, oDoc As Word.Document, sPath As Variant, sFileName As String
  sFirstTag = "englishPhrase": sSecondTag = "translation"
  With Application.FileDialog(msoFileDialogFilePicker)
    .AllowMultiSelect = True
    .Title = "Выберите файлы": .Filters.Clear: .Filters.Add "Файлы XML", "*.doc"
    If .Show <> 0 Then
      For Each sPath In .SelectedItems
        Set oDoc = Documents.Open(sPath)
        For Each oNode1 In oDoc.XMLNodes
          If oNode1.BaseName = sFirstTag Then
            For Each oNode2 In oNode1.ParentNode.ChildNodes
              If oNode2.BaseName = sSecondTag Then
                oNode2.Text = oNode1.Text
              End If
            Next oNode2
          End If
        Next oNode1
        oDoc.Close True
      Next sPath
    Else: Exit Sub
    End If
  End With
End Sub

[valdem]

Так это же здорово!
(А если и грант дадут, я вообще ликовать буду!)

[valdem]

Золотой человек!
Но наглость не знает границ. есть еще одна самая последняя задача.
должна решаться без программирования и макросов, но любому предложению буду рад.Task 3.rar

[viter.alex]

Сообщение от valdem

Золотой человек!
Но наглость не знает границ. есть еще одна самая последняя задача. актуально до 10 утра по москве.
должна решаться без программирования и макросов, но любому предложению буду рад.Вложение 8964

Так, а что делать-то?
Телепаты в отпуске

[valdem]

тупанул!! Task 3.rar

[valdem]

все еще надо очень

[viter.alex]

Сообщение от valdem

все еще надо очень, до вечера

Пробую. Алгоритм такой: загружаем все в таблицу с двумя столбцами. Удаляем все до знака «=». Дальше пока думаю.

Добавлено позже
Все, что нужно было при решении данной задачи — системный подход. Итак, по порядку.

1. Вставляем в документ два варианта друг за другом. Сначала английский, затем — русский.
2. Удаляем пустые строки через поиск/замену.
3. Все это добро преобразуем в таблицу с разделителем «=» и 4-мя столбцами. В результате получим таблицу, где в первом столбце будет то, что до знака «=», а во втором — все остальное. Третий и четвертый пока пустые.
4. Вырезаем те строки таблицы, которые содержат в себе русский перевод. Это делается просто. С начала документа находим вторую фразу [About Dialog]. Все, что после нее, это русский перевод.
5. После вырезания получили таблицу, в которой до половины заполнены два первых столбца. Пустые строки снизу, которые образовались при вырезании, удаляем.
6. Вставляем то, что вырезали, в первую ячейку третьего столбца. Теперь у нас 1 и 3 столбцы идентичны и содержат идентификаторы меню, во 2-м столбце находится английский вариант, в 4-м — русский.
7. С помощью макроса перемещаем заголовки разделов, типа [About Dialog] в соседнюю ячеку. Вот этот макрос.
   

   Sub movetonext()
     With ThisDocument.Tables(1).Range.Find
       .ClearFormatting: .Replacement.ClearFormatting
       .Text = "\[<[A-Za-z0-9 ]@\]": .MatchWildcards = True
       While .Execute
         If InStr(.Parent.Cells(1).Range.Text, "&&") = 0 Then
           .Parent.Cells(1).Next.Range.Text = Left(.Parent.Cells(1).Range.Text, Len(.Parent.Cells(1).Range.Text) - 2) & "&&"
         End If
       Wend
     End With
   End Sub

8. Удаляем символы «&&». Они использовались в макросе, чтобы избежать двойного поиска.
9. Удаляем первый и третий столбцы.
10. Преобразуем таблицу в текст, с разделителем по табуляции.
11. Все. Сохраняем как текст. Почти без макросов, да и то, макрос использовался только для того, чтобы вручную не переносить текст из одной ячейки в соседнюю в 76 местах.

Заняло времени около 40 мин.

[valdem]

Снова большое спасибо. Сам примерно так и сделал, думал может есть что попроще, видимо нет.
А строки с цифрами можно как то удалить?

[viter.alex]

Сообщение от valdem

Снова большое спасибо. Сам примерно так и сделал, думал может есть что попроще, видимо нет.
А строки с цифрами можно как то удалить?

Куда уж проще!
Я ждал вопроса про цифры Сам делать не стал, потому что не интересно.
Строки с цифрами удаляем через поиск и замену:

• Строка поиска:[0-9]@^0009[0-9]@^0013.
• Строка замены пустая.
• Поставить галочку «Подстановочные знаки».

Все цифры, разделенные табуляцией, будут удалены.