Hallo zusammen,

bekanntlich gibt es unter den natürlichen Sprachbefehlen für Word auch die nützlichen Befehle "[den] Rest des Absatzes löschen" bzw. "... markieren". Leider funktionieren sie nicht (mehr) - ob es an Dragon Version 10 oder an Word 2003 liegt, will ich nicht untersuchen. Jedenfalls verschwindet bei diesem Sprachbefehl der Word-Cursor, bis man in den Text klickt, woraufhin an dieser Stelle dann fälschlicherweise gelöscht wird. Dumm gelaufen, aber wenigstens ist der Cursor wieder da.

Ich habe deshalb den Befehl ersetzt durch "bis Absatzende " (delmark steht für die Werteliste löschen | markieren)
Scriptcode:

Sub Main
 Selection.Collapse Direction:=wdCollapseEnd
    'Markierung bis ausschließlich Absatzende erweitern
 With Selection
    .EndOf Unit:=wdParagraph, Extend:=wdExtend
    .MoveEnd Unit:=wdCharacter, Count:=-1
    If UtilityProvider.ContextValue(0) = "löschen" Then .Delete
 End With
End Sub
 
 

Grüße
Hermann Meltzer