利用VBA批量替换多个Word内容(带窗体界面/支持备份、大小写、通配符等功能)

背景：朋友工作中有多个Word文件，每次做更新时都要更新文档内的日期，每次手工更改都比较耗费时间，加上公司电脑不能装未授权的软件，且只支持英文，于是就根据这个需求，参考一些网上的代码，并做了一些升级，增加了界面、备份等功能，制作出这个VBA。下面是几个主要部分的VBA代码。

图1 VBA结构图

图2 窗体界面

'窗体界面
Private Sub CommandButton1_Click() 'Replace按钮
Call Start_replace
Unload Me
End Sub

Private Sub CommandButton2_Click() 'Clear按钮
'CheckBox1.Value = False
'CheckBox2.Value = False
'CheckBox3.Value = False
'CheckBox4.Value = False
TextBox1.Value = ""
TextBox2.Value = ""
End Sub

'调用窗体界面(模块1)
Sub Replace_text()
UserForm1.Show
End Sub

'开始替换(模块2)
Public Sub Start