Wie Text per VBA in eine Textmarke einfügen?

02/05/2008 - 11:53 von Susan Seitz | Report spam
Hallo,

im Anschluss meines früheren Postings möchte ich nun gerne den Cursor an den
Beginn einer bestimmten Textmarke ("Adresse") setzen.

Das habe ich bisher versucht:

Ich habe einen bestimmten Bereich oben links auf einem Dokument als
Textmarke "Adresse" definiert. Dann habe ich den von Thomas (vielen dank an
dieser Stelle!) angegebenen VBA-Text probiert, leider ohne Erfolg: Bei mir
passiert hier leider rein gar nichts...:

"Sub Demo1()
Dim cText As String
Dim oRNG As Range
Dim oBM As Bookmark


cText = "ABC"


If ActiveDocument.Bookmarks.Exists("Test") Then
Set oRNG = ActiveDocument.Bookmarks("Test").Range


oRNG.Text = cText


Set oBM = ActiveDocument.Bookmarks.Add( _
Name:="Test", _
Range:=oRNG)
End If
End Sub"

Wie gesagt, mir würde es schon ausreichen, wenn ich den Cursor am Beginn der
Textmarke platzieren könnte, da dort mein Adressmanager die eingegebene
Adresse einfügen wird...Ich schaffe es bloß nicht, die Textmarke aufzurufen
("anzusprechen") und den Cursor - wie gesagt - am Anfang zu platzieren...

Könnt Ihr mir hier weiterhelfen...?

Vielen dank! ;-))

Viele Grüße
Susan

[Reply-Adresse wird nur sporadisch gelesen]
 

Lesen sie die antworten

#1 Lisa Courte
02/05/2008 - 12:10 | Warnen spam
das klappt - Du musst nur den Namen Deiner Textmarke - Adresse - im Code
anpassen, er wird im Beispiel als - Test - genannt u. da Du keine Textmarke
mit dem Namen Test hast, passiert auch nichts. Also Test in Adresse abàndern
im Code.

Grüße Lisa
"Susan Seitz" schrieb im Newsbeitrag
news:fveoc3$gaa$00$
Hallo,

im Anschluss meines früheren Postings möchte ich nun gerne den Cursor an
den Beginn einer bestimmten Textmarke ("Adresse") setzen.

Das habe ich bisher versucht:

Ich habe einen bestimmten Bereich oben links auf einem Dokument als
Textmarke "Adresse" definiert. Dann habe ich den von Thomas (vielen dank
an dieser Stelle!) angegebenen VBA-Text probiert, leider ohne Erfolg: Bei
mir passiert hier leider rein gar nichts...:

"Sub Demo1()
Dim cText As String
Dim oRNG As Range
Dim oBM As Bookmark


cText = "ABC"


If ActiveDocument.Bookmarks.Exists("Test") Then
Set oRNG = ActiveDocument.Bookmarks("Test").Range


oRNG.Text = cText


Set oBM = ActiveDocument.Bookmarks.Add( _
Name:="Test", _
Range:=oRNG)
End If
End Sub"

Wie gesagt, mir würde es schon ausreichen, wenn ich den Cursor am Beginn
der Textmarke platzieren könnte, da dort mein Adressmanager die
eingegebene Adresse einfügen wird...Ich schaffe es bloß nicht, die
Textmarke aufzurufen ("anzusprechen") und den Cursor - wie gesagt - am
Anfang zu platzieren...

Könnt Ihr mir hier weiterhelfen...?

Vielen dank! ;-))

Viele Grüße
Susan

[Reply-Adresse wird nur sporadisch gelesen]

Ähnliche fragen