Firmenname im gesamten Dokument aus dem Popup-Fenster

532
sadunkle

Mit den folgenden Informationen konnte ich die benötigten Informationen perfekt zu einem Dokument hinzufügen. Ich habe jedoch mehrere Stellen, an denen der Firmenname in das Dokument aufgenommen werden muss. Das Lesezeichen erlaubt mir nicht, das gleiche zweimal zu haben. Gibt es eine Möglichkeit, wie ("CompanyName1") hinzuzufügen, um dieselbe Antwort wie "Firmennamen hier eingeben" zu befüllen, ohne ein weiteres Fenster ausfüllen zu müssen?

Sub Document_Open()  ActiveDocument.FormFields("CompanyName").Result = InputBox("Enter company name here") ActiveDocument.FormFields("CompanyStreet").Result = InputBox("Enter the company's street address here")  End Sub 
1

1 Antwort auf die Frage

1
Rich Michaels

Verwenden Sie als StyleRef-Feld. Sie können dem ursprünglichen Ort, an dem der Firmenname oder der Name der Person oder ... jeweils einen eindeutigen Namen wie "TheCompanyName" gibt, zuweisen. Fügen Sie dann an den Stellen, an denen der Wert von "TheCompanyName" eingefügt werden soll, ein StyleRef-Feld ein, das den zu verwendenden Style-Namen angibt.

Nachfolgend finden Sie einen Bildschirmclip aus einem Dokument, das den Titel des Dokuments verwendet, der sich auf der Titelseite befindet und später im Dokument wiederholt wird. Der Stilname in diesem Beispiel lautet "LGP-Programmname". Ich habe den Feldcode umgestellt, damit Sie sehen konnten, wie er aufgebaut ist.

Das Bild unten zeigt, wie es im Dokument tatsächlich aussieht.