将 RTF/DOC/DOCX 文件插入到 Word 文件中的书签位置

Question

我在用户窗体中使用 Excel VBA makro 打开一个 word 文件，并将文本框中的一些信息插入到打开的 word 中。这工作正常（见下面的代码）。现在我想在 word 文件的特定位置插入具有相同 makro 的更长文本。但我想将此文本文件准备为单独的 RTF 或 DOC(X) 文件。

有没有办法使用 excel VBA 代码将此文本文件导入到 word 文件中的书签位置？

亲切的问候！

  '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

Answer 1

尝试使用这个：

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

将 RTF/DOC/DOCX 文件插入到 Word 文件中的书签位置

Insert a RTF/DOC/DOCX File to a bookmarked place in a Word File

import

excel

vba

rtf

ms-word