Я пытаюсь изменить следующий код, он будет объединять документы Word, хорошо, но у меня есть текстовый файл с каждой строкой быть «*
Имени *
.docx» «*
Name2 *
.docx» , и т. д., я бы хотел, чтобы макрос VBA читал текстовый файл по строкам и объединять все документы, соответствующие шаблону, должен быть 27 документов, когда это делается, и сохранять каждый из них предпочтительно с заголовком, который содержит тег «*
Name» поэтому я могу знать, что есть. Любая помощь будет принята с благодарностьюVBA для чтения данных из файла
Sub MergeDocs()
Dim rng As Range
Dim MainDoc As Document
Dim strFile As String
Const strFolder = "C:\test\"
Set MainDoc = Documents.Add
strFile = Dir$(strFolder & "*Name*.docx")
Do Until strFile = ""
Set rng = MainDoc.Range
rng.Collapse wdCollapseEnd
rng.InsertFile strFolder & strFile
strFile = Dir$()
Loop
MsgBox ("Files are merged")
End Sub
Спасибо за помощь. Тестирование этого сейчас. Обновит результаты. – Nolemonkey
ОК, я, должно быть, сделал что-то неправильно, когда впервые редактировал его, но теперь он почти полностью работает. Для некоторых моих документов он полностью сглаживает контент, а для некоторых я просто получаю пустые документы. Не уверен, что происходит, но я пытаюсь посмотреть на это сейчас. Соглашение об именах существует, пытаясь понять, почему какой-то контент слит, а другие пустые. – Nolemonkey
Nice pickup - Спасибо за редактирование! – dbmitch