用於更改文檔屬性 Word 的 VBA

Question

我正在嘗試創建一個需要更改 word 文檔中自定義文檔屬性的代碼。 此自定義文檔屬性是必須插入文檔但有時需要根據要求進行更改的信息。 到目前為止，我已經創建了用於插入自定義文檔屬性的代碼，它工作正常，見下文。

Sub AddCustomDocProperty()

Selection.Fields.Add _
    Range:=Selection.Range, _
    Type:=wdFieldEmpty, _
    Text:="DOCPROPERTY  ""ProjectName"" ", _
    PreserveFormatting:=False
    
End Sub

自定義文檔屬性被命名為 ProjectName，它將與用戶將輸入項目名稱的特定字段鏈接，例如新螺絲刀

假設自定義文檔屬性顯示新螺絲刀，我需要更改為新螺絲刀 2021。

如何編寫基於項目名稱字段中給出的新輸入更改文檔屬性的代碼？

我試圖在論壇中找到一些東西，但我沒有找到任何東西。

提前致謝。

Answer 1

用戶無法通過簡單的輸入輕松更改此類字段的值。 他們輸入的任何其他文本都將超出該字段。 那么你就很難用 VBA 檢索了。 考慮使用內容控件、表單域，甚至是帶有書簽的表格單元格作為輸入。

但是要回答您的問題，這將更新自定義文檔屬性：

Sub SetProp()
    ActiveDocument.CustomDocumentProperties("ProjectName").value = "New Screwdriver 2021"
End Sub