(no subject)

[liannotel]

Наваял сегодня с помощью kaerber для syntinen макрос для изучения буржуйских языков.

Как оно работает:
1) Создаём в Ворде макрос из текста под катом
2) Меняем в макросе "doc1", "doc2" и "doc3" на название оригинала, перевода и слитного документа соответственно (для слитного документа создаем новый документ и переименовываем его)
3) Открываем оригинал и перевод вордом
4) Запускаем макрос
5) ...
6) PROFIT!!! - у нас есть книга, в которой каждый абзац переведен сразу под.

Achtung: если по какой-то причине в оригинале и переводе разное количество абзацев (или одинаковое, но разное форматирование) - пичалька.


Sub Merger()
'
' Merger
' By Moredhel
'
Windows("Doc1").Activate
Dim a As Integer
a = ActiveDocument.Paragraphs.Count
For i = 1 To a
Windows("Doc1").Activate
txt = ActiveDocument.Paragraphs(i).Range.Text
Windows("Doc3").Activate
p = ActiveDocument.Paragraphs.Add()
p.Text = txt
Windows("Doc2").Activate
txt = ActiveDocument.Paragraphs(i).Range.Text
Windows("Doc3").Activate
p = ActiveDocument.Paragraphs.Add()
p.Text = txt
Next
End Sub

Кому надо - пользуйтесь :)