Вставьте файл RTF/DOC/DOCX в место с закладками в файле Word

#excel #vba #import #ms-word #rtf

Вопрос:

Я использую макро Excel VBA в форме пользователя, чтобы открыть файл word и вставить некоторую информацию из текстовых полей в открытое слово. Это прекрасно работает (см. Ниже код). Теперь я хотел бы вставить также более длинные текстовые файлы с тем же макро в определенное место в файле word. Но я хотел бы подготовить эти текстовые файлы в виде отдельных файлов RTF или DOC(X).

Есть ли способ импортировать эти текстовые файлы в место с закладками в файле Word с помощью кода VBA excel ?

С уважением !

   'Word Kommandos
    Dim wordApp As Object
    Dim wordDoc As Object
    Dim hwnd As Long
    DisplayAlerts = False
    Set wordApp = CreateObject("word.application")
    wordApp.Options.SaveInterval = 0
    'wordApp.documents.Open VorlagePfad
    wordApp.Visible = True
    Set wordDoc = wordApp.documents.Open(Filename:=VorlagePfad, ReadOnly:=True)
    
        With wordDoc
            'Empfänger Adressfeld
            .Bookmarks("Zeile1").Range.Text = Erstellen.TextBox1.Value
            .Bookmarks("Zeile2").Range.Text = Erstellen.TextBox5.Value
    
    End With

1. Почему бы вам не начать с открытия Word, найти опцию вставить текст из файла и записать макрос его использования. Затем вы можете адаптировать записанный код в соответствии с вашим макросом.

Ответ №1:

Попробуйте использовать это:

 pathToFile = "c:tempdoc2.docx"
With wordDoc
   .Bookmarks("newFileHere").Range.InsertFile pathToFile
end with