Hallo,<P>ich arbeite mit Word und gebe ohne Verweis von Word erst einmal den Objectbezug so vor:<PRE>
Dim _owdApp As Object 'Word.Application
Dim _wdDocs As Object 'Word.Documents
Dim _wdDoc As Object 'Word.Document
Dim _wdRange As Object 'Word.Range
Dim _bookm As Object 'Word.Bookmark
Dim _bookms As Object 'Word.Bookmarks</PRE>Vieles funktioniert wunderbar, dann springe ich ua. eine Textmarke an und möchte<P> bis zum Ende selektieren und löschen. In der Hilfe von VB steht: <PRE>
ThisApplication.Selection.EndKey( _
Unit:=Word.WdUnits.wdStory, Extend:=Word.WdMovementType.wdExtend)
Word.Selection.Delete(Unit:=Word.WdUnits.wdCharact er, Count:=1)</PRE> Das habe ich nun versucht abzuwandeln, aber bekomme es irgend wie nicht hin.Das sieht dann so aus<PRE> _owdApp.Selection.EndKey(Unit:=_owdApp.wdStory, Extend:=_owdApp.WdMovementType.wdExtend)
_owdApp.Selection.Delete(Unit:=_owdApp.WdUnits.wdC haracter, Count:=1)</PRE>Leider kommen immer wieder Fehlermeldungen. Wie muss es sonst heißen?
Dim _owdApp As Object 'Word.Application
Dim _wdDocs As Object 'Word.Documents
Dim _wdDoc As Object 'Word.Document
Dim _wdRange As Object 'Word.Range
Dim _bookm As Object 'Word.Bookmark
Dim _bookms As Object 'Word.Bookmarks</PRE>Vieles funktioniert wunderbar, dann springe ich ua. eine Textmarke an und möchte<P> bis zum Ende selektieren und löschen. In der Hilfe von VB steht: <PRE>
ThisApplication.Selection.EndKey( _
Unit:=Word.WdUnits.wdStory, Extend:=Word.WdMovementType.wdExtend)
Word.Selection.Delete(Unit:=Word.WdUnits.wdCharact er, Count:=1)</PRE> Das habe ich nun versucht abzuwandeln, aber bekomme es irgend wie nicht hin.Das sieht dann so aus<PRE> _owdApp.Selection.EndKey(Unit:=_owdApp.wdStory, Extend:=_owdApp.WdMovementType.wdExtend)
_owdApp.Selection.Delete(Unit:=_owdApp.WdUnits.wdC haracter, Count:=1)</PRE>Leider kommen immer wieder Fehlermeldungen. Wie muss es sonst heißen?
Comment