Word-VBA: Felder einfügen

[nul...@gmx.net]

Hallo NG!

Ich stehe irgendwie auf der Leitung:

Wie kann ich folgendes Feld mit VBA einfügen.

{WENN {DATEINAME} = "Dokument*" {Titel} {Dateiname}}

Fields.add ist klar, nur happerts am Rest.

Danke Rene

-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own

[Axel Mayer]

Hallo Rene,

eine elegante Lösung kenne ich nicht.
Vielleicht hilft Dir das folgende Makro, das die ganze Sache manuell
eingibt:

Axel

---

Sub FeldKramFuerRene()

Selection.Paragraphs(1).Range.Select
Selection.InsertParagraphAfter
Selection.Collapse direction:=wdCollapseEnd

With Selection
.TypeText Text:="wenn "
.Fields.Add _
Range:=Selection.Range, _
Type:=wdFieldFileName, _
PreserveFormatting:=False
.TypeText Text:=" = ""Dokument*"" "
.Fields.Add _
Range:=Selection.Range, _
Type:=wdFieldTitle, _
PreserveFormatting:=False
.TypeText Text:=" "
.Fields.Add _
Range:=Selection.Range, _
Type:=wdFieldFileName, _
Text:="DATEINAME ", _
PreserveFormatting:=False

.Paragraphs(1).Range.Select
.Fields.Add _
Range:=Selection.Range, _
Type:=wdFieldEmpty, _
PreserveFormatting:=False
.Fields.Update
End With
End Sub

---

--
Axel Nikolaus Mayer
Technical Writer & Hypertext Systems
LMS Durability Technologies GmbH
Luxemburger Straße 7
D-67657 Kaiserslautern, Germany
phone: +49 631 4166 113
fax: +49 631 4166 166

[Barbara Karli]

Hallo Rene

> Ich stehe irgendwie auf der Leitung:
>
> Wie kann ich folgendes Feld mit VBA einfügen.
>
> {WENN {DATEINAME} = "Dokument*" {Titel} {Dateiname}}
>

Ich weiss nicht, ob ich mit meiner Antwort richtig gehe. Von VBA
verstehst du mehr als ich.

Ich habe die Schritte zum Einfuegen der Felder als Makro aufgezeichnet
und anschliessend so ueberarbeitet, dass vor dem Feldereinfuegen die
Ansicht abgefragt und auf Felder sichtbar gestellt wird:

FieldsView = ActiveWindow.View.ShowFieldCodes
ActiveWindow.View.ShowFieldCodes = True

Anschliessend folgt der aufgezeichnete (mit With ueberarbeitete) Block
und am Schluss die Aktualisierung der Felder und das Zurueckstellen
auf die Ausgangs-Ansicht.

ActiveWindow.View.ShowFieldCodes = FieldsView
ActiveDocument.Fields.Update

Ich habe gesehen dass schon einige FAQ Punkte auf deiner WebSite
stehen.

Ein herzliches Dankeschoen fuer die Arbeit!

Ciao
Barbara

[rene_...@my-dejanews.com]

Hallo Barbara und Axel!

Danke für Eure Denkanstosse - jetzt läuft es :-))

Tschau Rene