|
Hallo,
ich finde leider keine Lösung für folgendes Problem.
Einem Worddokument habe ich mehrere CustomDocumentProperties mitgegeben, die über ein VBA Formular befüllt werden.
Im Word Dokument selbst, habe ich diese Felder dann über Schnellbausteine --> Feld --> DocProerty --> Meine Custom Felder eingefügt.
Wenn ich nun das Formular öffne, die Felder ausfülle und diese versuche zu übertragen (Code siehe unten), dann werdne nur die Felder befüllt im Dokument, die im normalen Text eingefügt sind. Felder, die ich in Kopf- und Fußzeile anzeigen lassen will oder in Textfeldern aktualisieren sich nicht.
Sobald ich die Felder innerhalb des Dokuments ohne Textfeld etc. verwende, werden sie korrekt befüllt.
Hier der VBA Code, wenn man in dem Formular auf den Button klickt, nachdem man die Felder ausgefüllt hat.
Private Sub inpDocGenerate_Click()
' Update the properties values
ActiveDocument.CustomDocumentProperties("customDocType").Value = Me.inpDocType.Value
ActiveDocument.CustomDocumentProperties("customClientName").Value = Me.inpClientName.Value
ActiveDocument.CustomDocumentProperties("customDocTitle").Value = Me.inpDocTitle.Value
ActiveDocument.CustomDocumentProperties("customOfferNum").Value = Me.inpOfferNum.Value
ActiveDocument.CustomDocumentProperties("customDate").Value = Me.inpDate.Value
ActiveDocument.CustomDocumentProperties("customCity").Value = Me.inpCity.Value
ActiveDocument.CustomDocumentProperties("customAspName").Value = Me.inpAspName.Value
' Show changes of document properties in document
ActiveDocument.Fields.Update
' Hide the userform
UserForm1.Hide
End Sub
|