word批量修改日期请问如何在w
普通的替换恐难完成任务,给你写了一个宏,方便处理。
打开Word文档后,按“Alt+F11”进入VBE,在左侧工程管理器中,选中“Normal”,然后点上面的“插入”菜单下的“模块”,在右下侧的编辑窗口中输入如下代码:
'=========代码复制开始============
Sub 替换日期()
Dim objRegExp As Object, matches As Object, match As Object, retStr$
Set objRegExp = CreateObject("VBScript。 RegExp") '建立正则表达式对象
With objRegExp
。Pa...全部
普通的替换恐难完成任务,给你写了一个宏,方便处理。
打开Word文档后,按“Alt+F11”进入VBE,在左侧工程管理器中,选中“Normal”,然后点上面的“插入”菜单下的“模块”,在右下侧的编辑窗口中输入如下代码:
'=========代码复制开始============
Sub 替换日期()
Dim objRegExp As Object, matches As Object, match As Object, retStr$
Set objRegExp = CreateObject("VBScript。
RegExp") '建立正则表达式对象
With objRegExp
。Pattern = "(\d{1,2})\/(\d{1,2})\/(\d{4})" '匹配日期字符串
。IgnoreCase = True
。
Global = True
Set matches = 。Execute(ActiveDocument。Content)
End With
Application。ScreenUpdating = False
With ActiveDocument。
Content。Find
For Each match In matches '遍历Matches集合
。ClearFormatting
。Replacement。ClearFormatting
。
Text = match。Value
。Replacement。Text = bmatches(2) & "年" & bmatches(0) & "月" & bmatches(1) & "日"
。
Forward = True
。Wrap = wdFindContinue
。Execute Replace:=wdReplaceOne
Next
End With
Application。
ScreenUpdating = True
Set objRegExp = Nothing
End Sub
'=========代码复制结束============
完成后关掉VBE窗口,回到Word文档,按下“Alt+F8”组合键,运行“替换日期”宏就可以了。
收起