Kleine Ergänzung zu VBA

[Markus Leiße]

In meiner Kopfzeile steht die Textmarke "dat" vor der Feldfunktion
SpeicherDat. DenText den ich in die Input-Box eingebe überschreibt mir
allerdings nicht die Feldfunktion sondern setzt den Text davor. Wie
überschreibe ich die existierende Feldfunktion.

Sub Datum()
' Datum Makro
Dim wert1 As String
wert1 = InputBox("Datum eingeben", "Datum eingeben")
ActiveDocument.Bookmarks("dat").Range.Text = wert1
End Sub

Danke Markus

[Barbara Karli]

Hallo Markus

>In meiner Kopfzeile steht die Textmarke "dat" vor der Feldfunktion
>SpeicherDat. DenText den ich in die Input-Box eingebe überschreibt
mir
>allerdings nicht die Feldfunktion sondern setzt den Text davor. Wie
>überschreibe ich die existierende Feldfunktion.

Die Textmarke darf nicht vor der Feldfunktion stehen. Markiere die
Feldfunktion und rufe dann "Einfügen - Textmarke" auf, damit diese der
Feldfunktion zugeordnet wird.

Hope that helps
Tschüss
Barbara

[Alexandra von Cube]

Hi Markus,

vergib die Textmarke fuer das gesamte Feld. Also Feld markieren und dann
Einfuegen Textmarke.

Alexandra

Markus Leiße wrote:
>
> In meiner Kopfzeile steht die Textmarke "dat" vor der Feldfunktion
> SpeicherDat. DenText den ich in die Input-Box eingebe überschreibt mir
> allerdings nicht die Feldfunktion sondern setzt den Text davor. Wie
> überschreibe ich die existierende Feldfunktion.
>

> Sub Datum()
> ' Datum Makro
> Dim wert1 As String
> wert1 = InputBox("Datum eingeben", "Datum eingeben")
> ActiveDocument.Bookmarks("dat").Range.Text = wert1
> End Sub
>

> Danke Markus

[Markus Leiße]

Danke für Deinen Tip. Aber wenn ich erneut das Datum ändern will existiert
die Textmarke nicht mehr.

Alexandra von Cube schrieb in Nachricht
<36A5A342...@hrz.uni-dortmund.de>...

[Alexandra von Cube]

Hallo,

> Danke für Deinen Tip. Aber wenn ich erneut das Datum ändern will existiert
> die Textmarke nicht mehr.
>

Wohl wahr ;). Setz sie im Makro gleich wieder:

Selection.Expand (wdParagraph)
ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="dat"

Wobei Selection.Expand etwas davon abhaengt, wie Deine Kopfzeile sonst
noch auf gebaut ist. Aber das findest Du dann in der Hilfe.

Alexandra

[Martin Austermeier]

Markus Leiße schrieb:

>wenn ich erneut das Datum ändern will existiert
>die Textmarke nicht mehr.

markiere nur die Position VOR dem Datumsfeld. Dann

ActiveDocument.Bookmarks("Dat").Select
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.TypeText "01.01.2000"

so long 4 2day
Martin