Vba 在Word中重复查找

Vba 在Word中重复查找,vba,ms-word,Vba,Ms Word,如何使宏从文档的开头开始并重复到单词doc的结尾,而不必一直手动重复宏 我读到我应该使用DO-UNTIL/WHILE循环,但我不知道怎么做,因为我用Word的“RECORD macro”函数创建了宏 我设法重复了几次,复制并粘贴了代码的相关部分。当然,它只会重复我粘贴它的次数 这就是Word记录的内容(它可以很好地处理一行,找到制表符并将该行向左移动5.5 cm) 这个怎么样,它只在制表符是第一个字符时起作用,不确定这是否是您想要的 Sub MoveTab() Dim para As Parag

如何使宏从文档的开头开始并重复到单词doc的结尾,而不必一直手动重复宏

我读到我应该使用DO-UNTIL/WHILE循环,但我不知道怎么做,因为我用Word的“RECORD macro”函数创建了宏

我设法重复了几次,复制并粘贴了代码的相关部分。当然,它只会重复我粘贴它的次数

这就是Word记录的内容(它可以很好地处理一行,找到制表符并将该行向左移动5.5 cm)


这个怎么样,它只在制表符是第一个字符时起作用,不确定这是否是您想要的

Sub MoveTab()
Dim para As Paragraph
For Each para In ActiveDocument.Paragraphs
 If para.Range.Characters(1) = Chr(9) Then
    para.Format.FirstLineIndent = CentimetersToPoints(-5.5)
 End If
Next para
End Sub
Sub MoveTab()
Dim para As Paragraph
For Each para In ActiveDocument.Paragraphs
 If para.Range.Characters(1) = Chr(9) Then
    para.Format.FirstLineIndent = CentimetersToPoints(-5.5)
 End If
Next para
End Sub