Question

我有下面的代码可以工作，但是只有一次，我想将其循环到文档末尾。

androidx.media.app.NotificationCompat

尝试实施Freeflow所示的过程，并回应他的评论。这些是我尝试过的...

Sub AddBrackets()
    Dim iCount As Integer
    iCount = 1
    Selection.Find.ClearFormatting
    Selection.Find.Font.Size = 6

    With Selection.Find
        .Text = ""
        .Replacement.Text = "^&"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With

    Selection.Find.Execute
    While Right(Selection.Text, 1) = " " Or _
            Right(Selection.Text, 1) = Chr(13)

        Selection.MoveLeft Unit:=wdCharacter, count:=1, _
            Extend:=wdExtend
        iCount = iCount + 1
    Wend

    Selection.InsertAfter "]"
    Selection.InsertBefore "["
    Selection.MoveRight Unit:=wdCharacter, count:=iCount
    Beep
End Sub

对代码进行的更改。这些更改似乎都不起作用

Answer 1

您的请求是Word中的常见操作。找到一些内容，然后执行“查找/替换”功能不包含的操作。

以下代码可满足您的要求。您会注意到，一切都可以在单词内完成。 Word对象模型非常强大且灵活，花了一些时间来熟悉可用的东西。不幸的是，如果您仅读取记录的宏，就不会得到这个，必须深入对象模型并大量使用F1。

如果您需要代码从选区开始，然后遍历文档的其余部分，则必须修改以下代码。

do循环利用了以下事实：在当前阶段，当前范围是.execute找到的文本。

hrtime

如何重复代码块到文档末尾？

1 个答案: