宏命令如何重复?

nimitz

新手,录制了一段改变文字字体的宏,但运行时只对一行文字起作用,请教能不能将这段命令应用到整篇文档上,谢谢

yuyvtul

录制宏时，开始用Ctrl+A选中，再改变字体。

nimitz

我的目的是将每行<前的单词设加粗,最后一个单词设为倾斜,下面这段命令已经可以对一行文字进行操作,请教重复对下一行直至全篇操作.

Selection.Find.ClearFormatting With Selection.Find .Text = "<" .Replacement.Text = " " .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.Extend Selection.HomeKey Unit:=wdLine Selection.Font.Bold = wdToggle Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.Find.ClearFormatting With Selection.Find .Text = " " .Replacement.Text = " " .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.Find.Execute Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.Extend Selection.EndKey Unit:=wdLine Selection.Font.Italic = wdToggle End Sub

yuyvtul

啊，你没说清楚，我也理解错了。

应该用循环语句，但我和你一样是新手，试了几次未成功，而且，你的宏是录制的，很多内容可简化。

论坛上很多高手，大概都睡了，哈哈，明天你会得到理想答案的。

守柔

上传一下你的附件，也许，不需要这样的设计。

请写出你想要的结果。