Textmarken mit VBA ansprechen

Ralf Krausemann

unread,

Aug 27, 2001, 5:15:29 AM8/27/01

to

Hallo!

Ich habe ein Dokument erstellt das verschiedene Textfelder enthält. Ich
schaffe es einfach nicht diese Felder mit VBA anzusprechen bzw. zu füllen.
Kann mir jemand weiterhelfen?

Gruß
Ralf

Lutz Gentkow

unread,

Aug 27, 2001, 5:15:32 AM8/27/01

to

Hallo Ralf,

meinst Du nun Textmarken (wie im Betreff angegeben) oder Textfelder?

Viele Grüße vom Niederrhein

Lutz

Ralf Krausemann

unread,

Aug 27, 2001, 5:33:35 AM8/27/01

to

Hallo Lutz!

Lutz Gentkow wrote:

..

> meinst Du nun Textmarken (wie im Betreff angegeben) oder Textfelder?

..

Ich meine Textfelder, sorry.

Gruß
Ralf

Lutz Gentkow

unread,

Aug 28, 2001, 3:07:52 AM8/28/01

to

Hallo Ralf,

schau mal in den Word FAQs von Silvia Widmer in den Kapiteln nach, die
sich mit Textfeldern (möglicherweise meinst Du aber Textformularfelder)
beschäftigen: http://mypage.bluewin.ch/reprobst/WordFAQ/Index.htm

Ralf Krausemann

unread,

Aug 28, 2001, 6:56:04 AM8/28/01

to

Hallo Lutz!

Lutz Gentkow wrote:
..

> schau mal in den Word FAQs von Silvia Widmer in den Kapiteln nach, die
> sich mit Textfeldern (möglicherweise meinst Du aber Textformularfelder)
> beschäftigen: http://mypage.bluewin.ch/reprobst/WordFAQ/Index.htm

..

Danke! Ich denke das hilft erst mal. Genau sagen kann ich es erst wenn ich
damit durch bin.

Gruß
Ralf

Micha

unread,

Sep 1, 2001, 2:11:14 PM9/1/01

to

Hallo Ralf,
habe in meinem doc ein paar Textmarken (nicht Textfelder!)
eingefügt (über: Einfügen -> Textmarke...->).
Tue das einmal und nenne die Textmarke einfach "test"
(Bedenke: aktiviere in den Extras-> Optionen-> Ansicht->
unter Anzeigen -> Textmarken. Du kannst zusätzlich an der
Stelle an der die Textmarke sitzen soll vorher "test"
eingeben, den Text dann markieren und dann Einfügen ->
Textmarke...-> wählen. Das hat den Vorteil, das Du bei
mehreren Textmarken besser siehst wo welche sitzt)

um mit vba diese Textmarke anzusprechen benötigst du
folgenden Code, den du einfach in eine Prozedur kopierst
***********************************
Selection.GoTo What:=wdGoToBookmark, Name:="test"
***********************************

Ich benutze diese Funktionalität z.B. bei unserem
Firmenbriefbogen, wo benutzerspezifische Daten wie Name,
Telefondurchwahl etc. nach Angabe des Benutzerkürzels
eingetragen werden. Siehe folgenden - nicht vollständigen -
CODE
***********************************
Sub AutoNew()

' Dieses Makro fragt das Kürzel des Bearbeiters und das
Diktatzeichen ab,
' danach werden alle bearbeiterspezifischen Informationen
und das Diktatzeichen
' in das zu erstellende Dokument eingefügt.
' Zum Schluss wird die Projektnummer bzw. die
Angebotsnummer
' abgefragt und eingefügt.

' Makro erzeugt am 09.08.01 von Micha Hochstrate
' zuletzt geändert am 20.08.2001 von Micha Hochstrate

Dim s As String, Kürzel As String, Diktat As String

Beginn1:
s = InputBox("Bitte Kürzel des Bearbeiters und ggfs.
Diktatzeichen eingeben!" + Chr(13) + Chr(13) + "z.B. ae
oder prmc", "Eingabe des Bearbeiters")
'bei Falscheingabe
If s = "" Then
GoTo Projekt1:
End If

'bei korrekter Eingabe:
Kürzel = Left(s, 2)
Diktat = Mid(s, 3)

If Kürzel = "ae" Then

Selection.GoTo What:=wdGoToBookmark, Name:="Bearbeiter"
Selection = "Albert Eichertz"
Selection.GoTo What:=wdGoToBookmark, Name:="Telefon"
Selection = "XXXXX / 6189-14"
Selection.GoTo What:=wdGoToBookmark, Name:="Email"
Selection = "jör...@bluemoon.de"
Selection.GoTo What:=wdGoToBookmark, Name:="mfg"
Selection = "Jörg Blau"
Selection.GoTo What:=wdGoToBookmark, Name:="Position"
Selection = "Geschäftsleitung"

ElseIf ....

Viel Glück, melde dich wenn es klappt