一、word批量修改日期请问如何在word中将诸如7/20/2006
普通的替换恐难完成任务,给你写了一个宏,方便处理。
打开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”组合键,运行“替换日期”宏就可以了。
二、怎样批量修改Word文档中的日期格式
把Word文档中的所有日期批量修改成另一种格式,如“2008.2.29”改为“2008-2-29”格式。
工具/原料
word 2010
步骤/方法
打开要处理的word文档,在“开始”选项卡单击“编辑”按钮
在弹出的菜单点击“替换”
进入“替换”选项卡界面,在查找内容框中键入([0-9]{4}).([0-9]{1,2}).([0-9]{1,2})
然后在替换为框中键入\1-\2-\3
单击“更多”按钮,在搜索选项下勾选“使用通配符”复选框
最后单击“全部替换”按钮
三、怎样批量修改Word文档中的日期格式
把Word文档中的所有日期批量修改成另一种格式,如“2008.2.29”改为“2008-2-29”格式。
工具/原料 word 2010 步骤/方法 打开要处理的word文档,在“开始”选项卡单击“编辑”按钮 在弹出的菜单点击“替换” 进入“替换”选项卡界面,在查找内容框中键入([0-9]{4}).([0-9]{1,2}).([0-9]{1,2}) 然后在替换为框中键入\1-\2-\3 单击“更多”按钮,在搜索选项下勾选“使用通配符”复选框 最后单击“全部替换”按钮。
四、怎样批量修改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”组合键,运行“替换日期”宏就可以了。
转载请注明出处51数据库 » word怎么批量修改日期