Поделиться через

Find.Replacement Property

  • Статья
Word Developer Reference

Returns a Replacement object that contains the criteria for a replace operation.

Syntax

expression.Replacement

expression   An expression that returns a Find object.

Example

This example removes bold formatting from the active document. The Bold property of the Font object is True for the Find object and False for the Replacement object.

Visual Basic for Applications 
  With ActiveDocument.Content.Find
    .ClearFormatting
    .Font.Bold = True
    With .Replacement
        .ClearFormatting
        .Font.Bold = False
    End With
    .Execute FindText:="", ReplaceWith:="", Format:=True, _
        Replace:=wdReplaceAll
End With

This example finds every instance of the word "Start" in the active document and replaces it with "End." The find operation ignores formatting but matches the case of the text to find ("Start").

Visual Basic for Applications 
  Set myRange = ActiveDocument.Range(Start:=0, End:=0)
With myRange.Find
    .ClearFormatting
    .Text = "Start"
    With .Replacement
        .ClearFormatting
        .Text = "End"
    End With
    .Execute Replace:=wdReplaceAll, _
        Format:=True, MatchCase:=True, _
        MatchWholeWord:=True
End With

See Also