buchlotnik, вся я понял в чем была проблема, оказывается этот метод работает только на файлах docx, а у меня изначально был rtf. Спасибо за помощь!
Переписал макрос таким образом:
Код |
---|
Sub Макрос3()
Dim objWord As Object
Dim FileStart
Dim FileNew
'Set objWord = CreateObject("Word.Application")
adr = InputBox("Введите путь к папке с шаблоном")
adr2 = InputBox("Введите путь к папке куда сохранить документ")
FileSt = adr & "\Шаблон.docx"
'Set objDoc = objWord.Documents.Open(FileSt)
'objWord.Visible = True
Set objWord = CreateObject("Word.Application")
FileNew = adr2 & "\Перовское_Чистинское.docx"
Set objDoc = objWord.Documents.Open(FileSt)
objWord.Visible = True
Range(Cells(1, 1), Cells(13, 18)).Copy
objDoc.Bookmarks("Закладка").Range.Paste
objDoc.Tables(1).AutoFitBehavior (2)
End Sub
|