word中的文字型窗体域通常在vba中可以通过ActiveDocument.Fields来进行操作
但如果遇到表格，并且处于受保护的状态，要填充，还是用这个命令的话就比较麻烦了，如果不受保护还可以用替换的方式...
那么怎么解决呢？
我们可以考虑用ActiveDocument.Tables来实现填充
Sub 按钮1_Click()         Set objword = GetObject(, "Word.Application")    'objword.Visible = False   '设置为不可见，不然每次打开Word都太费时间了    For j = 1 To ActiveSheet.UsedRange.Rows.Count        ' 填充  本账单日，您所购买的聚赢利率-挂钩中国10年期国债结构性存款192129号(code)        objword.ActiveDocument.Fields(3).result.Text = "本账单日，您所购买的" & Cells(j + 1, 2)        For i = 1 To 7 '从第一列开始遍历到最后第二个，最后一个是要保存的文件名称，可以不遍历            objword.ActiveDocument.Tables(1).Cell(2, i).Range.Text = Cells(j + 1, i).Value        Next                objword.ActiveDocument.SaveAs Cells(j, 8).Value, 17              Next    End Sub

	

“拳不离手，曲不离口”
(简易批量生成效果)
一、实用场景
1、批量生成邀请函
2、批量生成通知书
3、批量生成宣传稿件
4、批量生成报告
5、批量生成合同
......
二、思路及代码
1、先建立word模板，可以用dot，也可以用dotx，还可以用docx
2、把固定文字模板写好。
3、关键步骤：
(1)在需要替换的位置插入标签
(2)对插入书签进行命名，便于之后替换填入相应内容
4、EXCEL对应word模板便签建立字段，以便填入数据。
5、VBA编程要点
(1)创建一个WORD生成函数
(2)主程序通过循环，获取数据，调用word生成函数
6、word生成函数
Function createword( ) As Boolean '创建word函数返还的值为逻辑值  Dim myword As Word.Application, mydoc As Word.Document  '定义2个变量，分别为word应用程序，及word文档。word文档必须在word应用程序中使用。    Dim str1 As String    Set myword = New Word.Application    With myword        Set mydoc = .documents.Add(template:="d:\excel批量生成word(模板).docx", Visible:=True)  '此为模板文件及所在位置的绝对引用，可以替换为inputbox输入(可以采用函数变量的传递方式)，或者是相对引用。        With .Selection            .Goto what:=wdgotobookmark, Name:="标题"       '对应word文档中的标签位置，输入特定值。本案例采用的是辅助表法。固定辅助表特定位置的值进行数据输入            .typetext Text:=Worksheets("temp").Cells(2, 1)            .Goto what:=wdgotobookmark, Name:="单位名称"            .typetext Text:=Worksheets("temp").Cells(2, 2)             .Goto what:=wdgotobookmark, Name:="内容"            .typetext Text:=Worksheets("temp").Cells(2, 3)            .Goto what:=wdgotobookmark, Name:="日期"            .typetext Text:=Worksheets("temp").Cells(2, 4)        End With    mydoc.SaveAs ThisWorkbook.Path & "\" & Worksheets("temp").Cells(2, 1) & ".docx"  '对应特定内容保存文件名    mydoc.Close         '完成一次调用关闭文档，清空mydoc变量    Set mydoc = NothingEnd Withcreateword = True      ' 函数范围true。本函数可以增加一个判断是否生成下一条的选项，可以自行增加   IF msgbox("具体内容", vbInformation+vbYesNo,'提示') = vbYes then createword = true else createword =falseEnd Function
7、主程序
Sub 主程序()Dim i As Integer '定义一个循环变量Dim j As Integer '定义一个变量保存行号Dim shtemp As Worksheet '保存临时表的引用。临时变量表变量Dim sht1 As Worksheet   '导出数据表格变量    On Error GoTo err1    '捕捉文件生成错误    Set shtemp = Worksheets("temp") '判断临时表格是否存在label1:    Set sht1 = Worksheets("sheet1") '引用数据表，sheet1，可以为任意表格名称。    j = sht1.Range("a1").CurrentRegion.Rows.Count ' 获取数据源表活动单位格的行号数量    '复制表头    sht1.Range("a1:c1").Copy  shtemp.Range("a1") '把数据复制到临时表    For i = 2 To j '循环调用数据，生成文档       sht1.Activate       sht1.Range(Cells(i, 1), Cells(i, 4)).Copy   shtemp.Range("a2")  '把特定数据复制到选择张贴单元格       shtemp.Range("a1:c2").Columns.AutoFit       If Not createword() Then Exit For '调用函数，判断是否进入下一个循环。此处是为了配合函数中判断语句使用。    Next    Exit Suberr1:  '捕捉错误 如果没有temp文件,    Set shtemp = Worksheets.Add    shtemp.Name = "temp"    GoTo label1End Sub
技术交流请加力哥微信：tiny_007

我们平常在工作中，经常会使用查找替换功能，能够帮助我们快速的查找或替换一些特定的内容。不过，今天所要教给大家的是比查找替换更高级的通配符，利用通配符我们不仅可以完成一些更高级的替换，还能够批量插入表格与文字等内容。
1、文字替换为图片
上图表格中，我们要将「香蕉」这两个字替换为图片形式。先复制下香蕉图片，然后快捷键「Ctrl + H」打开查找替换功能，勾选「使用通配符」。
查找内容：香蕉
替换为：^c
说明：^c意思是剪贴板的内容，也就是我们刚才复制的内容。
2、批量插入表格
对于长篇文档排版工作者来说，插入表格是必不可少的，那么如何在指定的位置插入相同表格。如图所示，我希望在文档中出现的「水果市场需求」这段下面插入我制作好的表格。
查找内容：(水果市场需求)(^13)
替换为：1^c
说明：^13是通配符下的换行符。查找内容中为什么要用两个括弧括起来呢？这个我之前有讲过哦！(主要是用来分组，将内容分成两组。比如说：你好，这两个字，只能是1组内容，如果我用括弧(你)(好)，那么它就表示2组内容，当然，我们用这种查找内容的话，是需要对应替换为中的1和2的，1对应(你)；2对应(好)。)所以，我这里的意思就是查找「水果市场需求」这几个字及换行符，并保留这几个字，然后插入剪贴板中的内容。
3、批量插入文字
查找替换中，我们只能够替换一段有限的内容。我们如果利用使用^c 就可以替换或插入你想要的任意段内容了。

解决问题

批量去除表格内的英文字母

解决方法

1、第一步，先将要去除字母的那一列复制到word文档，然后替换命令，输入^$



2、第二步，点击全部替换，然后再复制到原来表格中即可！



大功告成！