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

Question

我在用户表单中使用Excel VBA代码打开Word文件并将文本框中的信息插入Word文件。

我还想在Word文件的特定位置插入具有相同宏的文本文件。我想将文本文件准备为单独的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:tempdoc2.docx"
With wordDoc
.Bookmarks("newFileHere").Range.InsertFile pathToFile
end with