可以使用以下代码来限制搜索和操作的范围,以便仅在选择内进行操作。
Sub Find_Within_Selection() Dim searchRange As Range Set searchRange = Selection.Range
With searchRange.Find
.Text = "search term"
.Forward = True
.Wrap = wdFindStop
.Execute
End With
End Sub
在此示例中,我们将定义一个名为searchRange的范围对象,并将其设置为选择范围。然后,我们将使用Find方法来设置搜索条件,并通过执行Execute方法来执行搜索。由于我们已将searchRange限制为选择内,因此操作不会影响选择外的文本。