Text an Textmarke schreiben (Late Binding)

04/09/2007 - 16:11 von tohasremspam | Report spam
Hallo NG,

ich möchte einen Text an eine Textmarke schreiben und alles per Late
Binding. Ich bin soweit gekommen, dass ich die Bookmarksauflistung
sehe und weiss nun nicht weiter

Ich habe folgende Objekte:

Dim wdAnw As Object 'late binding
Dim wdDok As Object

Dim oBookmark As Object 'Bookmark


'selbige sind Initialisiert



For Each oBookmark In wdDok.Bookmarks
Debug.Print oBookmark.Name



hier will ich einen Testext schreiben in das aktuelle


Bookmark und weiss nicht wie


Next oBookmark




Gegoogelt habe ich, dass ich es mit

Selection.Goto machen muss,

doch ich habe bei Late Binding kein Selction-Object und weiss nicht,
wie ich es erzeugen kann.


Gruss Thomas
 

Lesen sie die antworten

#1 Thomas Gahler
04/09/2007 - 16:44 | Warnen spam
Hallo Thomas



ich möchte einen Text an eine Textmarke schreiben und alles per Late
Binding. Ich bin soweit gekommen, dass ich die Bookmarksauflistung
sehe und weiss nun nicht weiter

For Each oBookmark In wdDok.Bookmarks
Debug.Print oBookmark.Name


> hier will ich einen Testext schreiben in das aktuelle
Bookmark und weiss nicht wie


oBookmark.range.text = "Hallo Welt"

...sollte funktionieren. Dann ist aber nachher deine Textbarke weg.
Benötigst du diese noch, dann kriegen wir auch das noch hin.



Gegoogelt habe ich, dass ich es mit
Selection.Goto machen muss,
doch ich habe bei Late Binding kein Selction-Object und weiss nicht,
wie ich es erzeugen kann.


Sei froh, dass du diese nicht hast, so bist du gezungen über das
.Range-Objekt zu arbeiten und das soll so sein.



Thomas Gahler
MVP für WordVBA
Co-Autor von »Microsoft Word-Programmierung.
Das Handbuch« (MS Press)


- Windows XP (SP2), Office XP (SP3)

Ähnliche fragen