Скопировать один Word документ в другой

@vadi61 · Регистрация: 11.03.2013

Author24 — интернет-сервис помощи студентам

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

@Казанский · 09.11.2015, 23:03

vadi61, запишите макрорекордером в Ворде вставку файла на место закладки. Перенесите в VBA Excel, подставив переменные вместо имени закладки, файла. Перед переносом замените константы Ворда типа wdGoToBookmark на их значения, для этого поставьте курсор в это слово и нажмите Shift+F2 (в данном случае -1).

@vadi61 · 10.11.2015, 22:44 **[ТС]**

Спасибо за ответ. Я предполагал, что процедура такая (основной Word-файл уже в работе):
1. Нахожу нужный файл (который надо вставить)
2. Открываю его
3. Копирую все его содержание в буфер обмена
4. Нахожу закладку и вставляю содержимое буфера
5. Закрываю оба файла

Или я усложняю? По Вашему сообщению я понял, что можно это же сделать без п. 2 и 3.

Описанная последовательность в макрорекордере получилась такой:

Visual Basic

Sub Makro1()
    Selection.WholeStory
    Selection.Copy
    ActiveWindow.Close
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
End Sub

Честно говоря, это мне очень помогло.

Я предполагал что-то вроде:

Visual Basic

Sub main()
    Dim wa As Object
    Dim wd1 As Object
    Dim wd2 As Object
 
    HomeDir$ = ThisWorkbook.Path
    Set wa = CreateObject("Word.Application")
 
    file1_name$ = Cells(38, 8).Value     'имя основного файла
    file2_name$ = Cells(38, 8).Value     'имя вставляемого файла
    bm_name$ = Cells(36, 8).Value        'имя закладки
   
    Set wd1 = wa.Documents.Open(HomeDir$ + fle1_name$)
    Set wd2 = wa.Documents.Open(HomeDir$ + fle2_name$)
 
    wd2.выделить все содержимое                                   'подскажите как
    wd2.скопировать все содержимое в буфер                        'подскажите  как
    wd1.Bookmarks.Item(bm_name$).Range.Text = вставить из буфера  'подскажите  как
 
    wd2.Close False
    wd1.Close True
    wa.Quit
    Set wa = Nothing
End Sub

Добавлено через 11 часов 16 минут
Решение подсказал ув. The_Prist с форума планета Excel:

Visual Basic

1 2	wd2.Range.Copy wd1.Bookmarks.Item(bm_name$).Range.Paste

@vadi61 1 / 1 / 0 Регистрация: 11.03.2013 Сообщений: 56
		1
	Скопировать один Word документ в другой 09.11.2015, 21:56. Показов 7519. Ответов 2 Метки нет (Все метки) Нужно после заполнения данных в Excel'е создать Word-формуляр. Имеется один основной docx-файл и несколько предварительно созданных шаблонов разделов (обычных docx файлов, каждый со своим текстом, картинками, колонтитулами, форматированием...). В зависимости от заполненных в Excel данных, надо вставлять в основной файл (вместо созданных там для этого закладок) целиком один из подготовленных docx-файлов. Подскажите, пожалуйста, как это сделать макросом из Excel? 0

@Казанский 15151 / 6424 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	09.11.2015, 23:03	2
	vadi61, запишите макрорекордером в Ворде вставку файла на место закладки. Перенесите в VBA Excel, подставив переменные вместо имени закладки, файла. Перед переносом замените константы Ворда типа wdGoToBookmark на их значения, для этого поставьте курсор в это слово и нажмите Shift+F2 (в данном случае -1). 0

	10.11.2015, 22:44