Einfügen von Text aus einer Eingabebox an eine Textmarke in der Kopfzeile

07/07/2009 - 11:37 von Manste | Report spam
Hallo,

ich habe eine Textmarke in der Kopfzeile erstellt und möchte, dass der
Text aus einer Eingabebox dort eingefügt wird. Ich komme aber leider
mit dem Code nicht weiter. Bisher sieht mein Code so aus:

Das Textfeld der Eingabebox heißt: txtOrge
Die Textmarke heißt ebenfalls txtOrge

ActiveDocument.Sections(1).Headers
(wdHeaderFooterFirstPage).Range.Bookmarks("txtOrge") = Me.txtOrge

Nach Range kommt die Fehlermeldung: "Unzulàssige Verwendung einer
Eigenschaft". Aber wie muss ich dann weitergehen?

Gruß
Manste
 

Lesen sie die antworten

#1 Thomas Gahler
07/07/2009 - 15:09 | Warnen spam
Hallo Manste


ich habe eine Textmarke in der Kopfzeile erstellt und möchte, dass der
Text aus einer Eingabebox dort eingefügt wird. Ich komme aber leider
mit dem Code nicht weiter. Bisher sieht mein Code so aus:


Das geht so...


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




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


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

Ähnliche fragen