子宏1() ' ' 宏1 宏' ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^l" .Replacement.Text = "^p" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False 以 Selection.Find.Execute Replace 结束：=wdReplaceAll Selection.WholeSizeStory 10 Selection.Font.Name = "微软雅黑" Selection.Font.Name = "Calibri" ...