替换 Word 模板中的单词

问题描述

我正在尝试用 Excel 工作表中的单元格替换 Word 文档中的字符串。

然后应将更新（但未保存）的 Word 文档的结果用作电子邮件的正文。

当我按下调试键时，它会突出显示 Replacement.Text = Samenstellen.Cells(15,2).Value。

Sub sendMail()

Dim ol As outlook.application
Dim olm As Outlook.MailItem
Dim wd As Word.Application
Dim doc As Word.Document

Set ol = New outlook.application
Set olm = ol.CreateItem(olMailItem)
Set wd = New Word.Application

wd.Visible = True

Set doc = wd.Documents.Open("\\file-wpv01.office.intern\home$\jslagers\Desktop\offerte\TemplateofferteZiggo.docx")
 
With wd.Selection.Find
    .Text = "<<NAAMKLANT>>"
    .Replacement.Text = Samenstellen.Cells(15,2).Value
    .Execute Replace:=wdReplaceAll
End With

With olm
    .display
    .To = "mailhere"
    .Subject = "Offerte"

    Set Editor = .GetInspector.WordEditor
    Editor.Content.Paste
End With

End Sub

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

excel excel ms-word