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

Posted 2023-02-22

【中文标题】将 RTF/DOC/DOCX 文件插入 Word 文件中的书签位置

【英文标题】：Insert a RTF/DOC/DOCX File to a bookmarked place in a Word File

【发布时间】：2021-10-20 20:55:46

【问题描述】：

我在用户窗体中使用 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

【问题讨论】：

你为什么不从打开Word开始，找到从文件中插入文本选项，并记录一个使用它的宏。然后您可以调整录制的代码以适合您的宏。

【参考方案1】：

尝试使用这个：

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

【讨论】：

使用 docx 文件非常棒！非常感谢！