2014-12-06 38 views

回答

1

,这可能帮助:

Sub Changenumbercolour() 
Selection.Find.ClearFormatting 
Selection.Find.Replacement.ClearFormatting 
Selection.Find.Replacement.Font.Color = wdColorRed 
With Selection.Find 
    .Text = "([0-9])" 
    .Replacement.Text = "" 
    .Forward = True 
    .Wrap = wdFindContinue 
    .Format = True 
    .MatchCase = False 
    .MatchWholeWord = False 
    .MatchAllWordForms = False 
    .MatchSoundsLike = False 
    .MatchWildcards = True 
End With 
Selection.Find.Execute Replace:=wdReplaceAll 
End Sub 
+0

当你说:“......而无需查找每个[原文]信息和格式化。”你的意思是你不想在MS Word中使用“查找”功能,或者你不想手动搜索信息?如果你的意思是后者,那么你可以使用高级查找功能。 – txchou 2014-12-08 04:19:34

+0

那么,我有一个30年的历史,我需要学习。所以为了更容易地学习它们,我想着色这些年。那里发生了什么事情是答案。 – 2014-12-13 08:30:35

相关问题