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
|