求教替换法导出到WORD的问题

你上传的数据库有点问题，我保存时即报错。但问题基本找到了，你没写替换的执行语句。这样改下：

原为：

                With .Find
                    .Text = "[公司]"
                    .Replacement.Text = Me.公司
                 End With

改为：

                With .Find
                    .Text = "[公司]"
                    .Replacement.Text = Me.公司
                    .Execute , , , , , , , , , , 2
                 End With
其他地方类似地改。