如何使用VBA將變量永久存儲在Word 2010文檔中？

Question

我知道如何在Word 2010中使用VBA使用變量。但是，當文件關閉並重新打開時，它們全部重置。

如何在Word文檔中永久存儲變量？

Answer 1

改爲使用自定義文檔屬性。這些文件永久存儲在Word文檔中，可以使用VBA進行編輯和檢索。

要創建一個自定義屬性，請轉到文件>屬性>高級屬性（這將在舊版本的Word中略有不同的位置，但仍然會在某處...）。

轉到從高級屬性中的自定義選項卡，並在您的自定義文檔屬性的名稱填寫，字段類型（你可以選擇文本，日期，數字或者是/否標誌，應該覆蓋大多數選項）和一個初始值 - 你有你包括一個起始值或添加按鈕將變灰。點擊添加。

您現在有一個自定義屬性在文檔中，你可以使用VBA來操作和引用它。

要更改屬性的值，使用下面的代碼：

Application.ActiveDocument.CustomDocumentProperties.Item(1).Value = "Your new value..." 

項目（1）設置，因爲這是參考文檔中的第一個自定義文檔屬性。如果您有多個定製屬性，則需要更改數字以引用正確的屬性，或者編寫一些將按名稱引用該屬性的VBA。

向屬性傳遞給一個變量，使用以下代碼：

strYourVariable = Application.ActiveDocument.CustomDocumentProperties.Item(1).Value 

Answer 2

這可以用於：

Sub Test() 
ActiveDocument.Variables.Add Name:="PermanentVar", Value:=100 
'ActiveDocument.Variables("PermanentVar").Delete 
End Sub 

檢查是否它被保留：

Private Sub Document_Open() 
Msgbox ActiveDocument.Variables("PermanentVar") 
End Sub 

Ref MS kb Link

Ref SO link