我收到一个Word文档，是别人排版的，其中一行的右缩进被设得极左，以至于当我用宏编辑该行文本时，文本会被挤到下一行：

CASE NO: CE26030658
CASE ADDR: 1513 SW 12 CT
OWNER: CROCCO, JOHN
OFFICER: MATTHEW FLESHER [这一行的右缩进被设得极靠左，大约距左边3 英寸，以强制文本换行]
COMMISSION DISTRICT 4

我使用宏来查找/替换 OFFICER: MATTHEW FLESHER 文本（或其他警官的名字），将其改写为 "Matthew Flesher, Code Enforcement Officer,"（或其他警官的名字），并在逗号后面再添加更多文本。我只需要那一行的 “Officer” 行有一个0.5英寸的右缩进，这样替换后的文本就能在一行内放下。由于文档其他部分的格式混乱，我不能修改整份文档的缩进。文档中大约有一百个这样的案例。

谢谢！

解决方案

你真正需要的只是：

Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Text = "OFFICER:"
    .Wrap = wdFindStop
    .MatchWildcards = True
  End With
  Do While .Find.Execute
    .Paragraphs.First.RightIndent = InchesToPoints(0.5)
    .Collapse wdCollapseEnd
  Loop
End With
Application.ScreenUpdating = True
End Sub

注意：使用选择（区域）操作效率极低，并且会持续改变所选范围。