单词2010宏用自动递增的文本替换带下划线的文本

Question

我试图用带有编号的间隙替换文档中带下划线的文本的所有实例。出于某种原因，下面给出了溢出错误： Sub gapNumber（） 将myNumber调整为整数 gapCount = 1 使用ActiveDocument.Content.find     .ClearFormatting     .Font.Underline = True     做.Execute（_         replace：= wdReplaceOne，_         ReplaceWith：=＆＃34;（＆＃34;＆amp; gapCount＆amp;＆＃34;）＆＃34;，_         前进：=真）=真         gapCount = gapCount + 1     环 结束 结束子 我错过了什么？

Answer 1

你什么都不缺。 我想方法中的错误执行在哪里！ 要纠正无限循环，其中一种方法是在替换时更改font.underline = false：

    Do While .Execute( _
    Replace:=wdReplaceOne, _
    ReplaceWith:="(" & gapcount & ")", _
    Forward:=True)
.Replacement.Font.Underline = False
    gapcount = gapcount + 1

Loop