excel vba 操作word 替换指定内容并复制到指定文件夹

Private Sub CommandButton1_Click()

'读取目标文本，并替换后生成新的文本
    Dim objApp As Object 'Word.Application
    Dim objDoc As Object 'Word.Document
    Dim strTemplates As String '模板文件路径名
    Dim strFileName As String '将数据导出到此文件
    
    '工具-引用
    'Microsoft Word 16.0 Object Library (版本不一,不一定为16)
    '当发现找不到上面的引用或引用后无效的情况下，定义一个常量wdReplaceAll = 2 ，数字2代表替换所有出现的指定内容。若能引用上边的包，可不定义这个常量。

    Const wdReplaceAll = 2 '替换所有出现的指定内容
       
    strTemplates = ThisWorkbook.Path & "\模板.doc"
    strFileName = ThisWorkbook.Path & "\数据修改后文本存储夹\替换后文本.doc"
    Set objApp = CreateObject("Word.Application")
    objApp.Visible = True
    Set objDoc = objApp.Documents.Open(strTemplates, , False)
 
  '开始替换模板预置变量文本
   With objApp.Application.Selection
        .Find.ClearFormatting
        .Find.Replacement.ClearFormatting
        With .Find
             .Text = "{$内容1}"