Açılan pencereden belge boyunca Şirket Adı

Aşağıdakileri kullanarak, bir belgeye ihtiyacım olan bilgiyi mükemmel şekilde ekledim. Ancak, şirket adının belgeye girmesi gereken birden fazla yerim var. Yer imi aynı şeyi iki kez almama izin vermiyor. Başka bir pencere doldurmak zorunda kalmadan, "Buraya Şirket Adını Girin" ifadesine aynı cevabı doldurmak için ("ŞirketAdı1") eklemek için bir yol var mı?

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

StyleRef alanı olarak kullanın. Şirket Adı veya Kişinin Adı veya ... her birinin "TheCompanyName" gibi benzersiz bir Stil Adı verdiği orijinal konumu atayarak çalışır. Sonra "TheCompanyName" değerini eklemek istediğiniz konumlarda, kullanılacak Stil Adını belirten bir StyleRef alanı eklersiniz.

Aşağıda, kapak sayfasında bulunan ve daha sonra belgede tekrarlayan, belgenin başlığını kullanan bir belgeden ekran klibi verilmiştir. Bu örnekteki Stil Adı "LGP Program Adı" dır. Alan kodunu değiştirdim, böylece nasıl yapıldığını görebilirsiniz.

Aşağıdaki resim, belgede gerçekte nasıl göründüğünü göstermektedir.