HOW TO：從文件屬性中讀取及寫入

更新：2007 年 11 月

適用於
本主題中的資訊僅適用於指定的 Visual Studio Tools for Office 專案和 Microsoft Office 版本。 專案類型 文件層級專案 Microsoft Office 版本 2007 Microsoft Office system Microsoft Office 2003 如需詳細資訊，請參閱依應用程式和專案類型提供的功能。

您可以將文件屬性與文件或活頁簿 (Workbook) 一起儲存在 Microsoft Office Word 和 Microsoft Office Excel 的文件層級自訂中。Excel 和 Word 都提供許多內建屬性，例如 Author、Title 和 Subject。

設定 Excel 中的文件屬性

使用 ThisWorkbook 類別的 BuiltinDocumentProperties 屬性可以處理內建屬性。這個屬性會傳回 DocumentProperties 物件，它是 DocumentProperty 物件的集合。您可以按照名稱或集合內的索引，使用該集合的 Item 屬性擷取特定的屬性。

若要變更 Excel 中的 Revision Number 屬性

1. 將內建文件屬性指派給變數。

   Dim properties As Microsoft.Office.Core.DocumentProperties
   
   properties = DirectCast(Globals.ThisWorkbook.BuiltinDocumentProperties, _
       Microsoft.Office.Core.DocumentProperties)
   
   Dim prop As Microsoft.Office.Core.DocumentProperty
   prop = properties.Item("Revision Number")
   

   Microsoft.Office.Core.DocumentProperties properties;
   
   properties = (Microsoft.Office.Core.DocumentProperties)
       Globals.ThisWorkbook.BuiltinDocumentProperties; 
   
   Microsoft.Office.Core.DocumentProperty prop;
   prop = properties["Revision Number"]; 
   

2. 將 Revision Number 屬性加一。

   If prop.Value Is Nothing Then
       prop.Value = 1
   Else
       Dim revision As Integer
       If Integer.TryParse(prop.Value.ToString(), revision) Then
           prop.Value = revision + 1
           MessageBox.Show("Revision Number = " & revision)
       Else
           MessageBox.Show("Revision Number = invalid value")
       End If
   End If
   

   if (prop.Value == null)
   {
       prop.Value = 1;
   }
   else
   {
       int revision;
       if (int.TryParse((string)prop.Value, out revision))
       {
           prop.Value = revision + 1;
           MessageBox.Show("Revision Number = " + revision);
       }
       else
       {
           MessageBox.Show("Revision Number = invalid value");
       }
   }
   

設定 Word 中的文件屬性

使用 ThisDocument 類別的 BuiltInDocumentProperties 屬性可以處理內建屬性。這個屬性會傳回 DocumentProperties 物件，它是 DocumentProperty 物件的集合。您可以按照名稱或集合內的索引，使用該集合的 Item 屬性擷取特定的屬性。

若要變更 Subject 屬性

1. 將內建文件屬性指派給變數。

   Dim properties As Microsoft.Office.Core.DocumentProperties
   
   properties = DirectCast(Globals.ThisDocument.BuiltInDocumentProperties, _
       Microsoft.Office.Core.DocumentProperties)
   

   Microsoft.Office.Core.DocumentProperties properties;
   
   properties = (Microsoft.Office.Core.DocumentProperties)
       Globals.ThisDocument.BuiltInDocumentProperties; 
   

2. 將 Subject 屬性變更為 "Whitepaper"。

   ' Set the Subject property.
   properties.Item("Subject").Value = "Whitepaper"
   

   // Set the Subject property. 
   properties["Subject"].Value = "Whitepaper"; 
   

穩固程式設計

這個範例假設您已在 ThisWorkbook 類別 (適用於 Excel) 和 ThisDocument 類別 (適用於 Word) 中撰寫程式碼。

雖然您使用的是 Word 和 Excel 及其物件，但是 Microsoft Office 也提供了可用內建文件屬性的清單。嘗試存取未定義之屬性的 Value 屬性將會引發例外狀況。

請參閱

工作

HOW TO：建立及修改自訂文件屬性

概念

文件層級自訂程式設計