#

Download:

Datei 1: Word_vba_find_Sentence.docm

Word vba: aktuellen Satz finden

 

Das folgende Beispiel zeigt, wie man in MS Word vba Code die aktuelle Position in Word finden kann.

Dadurch kann man den aktuellen Satz, Absatz, Tabelle, Block finden und diesen Markieren, Kopieren oder löschen.

 

 

Das aktuelle Element wird immer gesucht über Selection.Range.InRange(..) des umfassenden Element-Bereichs

Selection.Range.InRange(OuterElement.Range)

 

 

 

Als Beispiel wird das Makro über Word-Makros gestartet.

Dabei kann man das Makro: find_current_Sentence ausführen.

 

Hier wird der aktuelle Satz markiert, in welchem sich gerade der Word-Cursor befindet

 

Option Explicit On

 

Sub find_current_Sencence()

    '< select current line >

    Dim objParagraph As Paragraph

    For Each objParagraph In ActiveDocument.Paragraphs

        If Selection.Range.InRange(objParagraph.Range) Then

            objParagraph.Range.Select

        End If

    Next

    'Selection.Delete

    '</ select current line >

End Sub

 

 

 

Mobile

.