m0_48180246的博客

原创 2021-01-15

一、前期准备 下面是具体操作步骤。 A，首先将需要批量替换的多个Word文档放在同一文件夹下面。 B，新建一空白Word文档，右击空白工具栏，单击“控件工具箱”，就可以看到屏幕上调出的控件工具箱。 C，在控件工具箱上单击“命令按钮”，文档中就放置了一个按钮了。 D，双击该按钮，进入VB代码编写模式，将以下代码复制进去。 二、命令按钮的代码 Private Sub CommandButton1_Click() Application.ScreenUpdating = False Dim myPas As St