怎样批量修改word的创建时间、修改时间

1.怎样批量修改word的创建时间、修改时间

普通的替换恐难完成任务，一个网友曾经写过一段宏代码，你试试好不好使。

打开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 = match.submatches(2) & "年" & match.submatches(0) & "月" & match.submatches(1) & "日"

.Forward = True

.Wrap = wdFindContinue

.Execute Replace:=wdReplaceOne

Next

End With

Application.ScreenUpdating = True

Set objRegExp = Nothing

End Sub

'=========代码复制结束============

完成后关掉VBE窗口，回到Word文档，按下“Alt+F8”组合键，运行“替换日期”宏就可以了。

2.怎样批量修改word的创建时间、修改时间

普通的替换恐难完成任务，一个网友曾经写过一段宏代码，你试试好不好使。

打开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 = match.submatches(2) & "年" & match.submatches(0) & "月" & match.submatches(1) & "日" .Forward = True .Wrap = wdFindContinue .Execute Replace:=wdReplaceOne Next End With Application.ScreenUpdating = True Set objRegExp = Nothing End Sub '=========代码复制结束============ 完成后关掉VBE窗口，回到Word文档，按下“Alt+F8”组合键，运行“替换日期”宏就可以了。