Собрать текст

[Layer]

Как собрать части текста в один?
Исходные данные: два документа Ворд, в одном - 200 синонимизированных вариантов одного абзаца текста. В другом, тоже около 200 вариантов другого текста. Первый и второй абзацы вместе составляют один текст (второй - продолжение первого). Нужно соединить первый абзац первого док. с первым абзацем второго док., второй абзац первого док. со вторым абзацем второго док., и так все 200 вариантов.
Помогите решить эту проблему.

[bdfy]

http://programmersforum.ru/showthrea...F3%EC%E5%ED%F2

[Layer]

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

http://programmersforum.ru/showthrea...F3%EC%E5%ED%F2

Честно говоря, я в программировании - ноль. Моих познаний хватает только на "Вставка- Файл - Вставить как ссылку". Но в таком случае просто к концу одного док. присоединилось начало другого док.

[Layer]

Не пойму, как мне использовать это:
Код:
bname = "отчет1"
Set oDoc = ThisDocument
If oDoc.Bookmarks.Exists(Name:=bname) Then
Debug.Print "пошел"
Set oBm = oDoc.Bookmarks(bname)
Set oRng = oBm.Range
oRng.InsertFile FileName:=bname & ".docx", Range:="", _
ConfirmConversions:=False, Link:=False, Attachment:=False
oRng.Select
oRng.Fields.Update
oBm.Delete
With oDoc.Bookmarks
.Add Range:=oRng, Name:=bname
End With
End If

[bdfy]

Честно говоря, я в программировании - ноль.

вообще говоря настойчиво рекомендую обратиться тогда в платную часть форума