TextRetrievalMode Property Example

This example retrieves the selected text (excluding any hidden text) and inserts it at the beginning of the third paragraph in the active document.

If Selection.Type = wdSelectionNormal Then
    Set Range1 = Selection.Range
    Range1.TextRetrievalMode.IncludeHiddenText = False
    Set Range2 = ActiveDocument.Paragraphs(2).Range
    Range2.InsertAfter Range1.Text
End If

This example retrieves and displays the first three paragraphs as they appear in outline view.

Set myRange = ActiveDocument.Range(Start:=ActiveDocument _
    .Paragraphs(1).Range.Start, _
    End:=ActiveDocument.Paragraphs(3).Range.End)
myRange.TextRetrievalMode.ViewType = wdOutlineView
MsgBox myRange.Text

This example excludes field codes and hidden text from the range that refers to the selected text. The example then displays the text in a message box.

If Selection.Type = wdSelectionNormal Then
    Set aRange = Selection.Range
    With aRange.TextRetrievalMode
        .IncludeHiddenText = False
        .IncludeFieldCodes = False
    End With
    MsgBox aRange.Text
End If