方法 : カスタム ドキュメント プロパティを作成および変更する
上記の Microsoft Office アプリケーションには、ドキュメントに保存される組み込みのプロパティがあります。 ドキュメントに保存する情報が他にもある場合は、カスタム ドキュメント プロパティを作成し、これを変更できます。
対象: このトピックの情報は、Excel 2007 と Excel 2010、PowerPoint 2007 と PowerPoint 2010、Project 2007 と Project 2010、および Word 2007 と Word 2010 のドキュメント レベルのプロジェクトおよびアプリケーション レベルのプロジェクトに適用されます。詳細については、「Office アプリケーションおよびプロジェクト タイプ別の使用可能な機能」を参照してください。
カスタム プロパティを使用するには、ドキュメントの CustomDocumentProperties プロパティを使用します。 たとえば、Microsoft Office Excel のドキュメント レベルのプロジェクトの場合は、ThisWorkbook クラスの CustomDocumentProperties プロパティを使用します。 Excel のアプリケーション レベルのプロジェクトの場合は、Microsoft.Office.Interop.Excel.Workbook オブジェクトの CustomDocumentProperties プロパティを使用します。 これらのプロパティは、DocumentProperty オブジェクトのコレクションである DocumentProperties オブジェクトを返します。 このコレクションの Item プロパティを使用すると、名前またはコレクション内のインデックスを利用して、特定のプロパティを取得できます。
Excel のドキュメント レベルのカスタマイズにカスタム プロパティを追加し、値を代入する方法を次の例に示します。
.gif "ビデオへのリンク")
関連のビデオ デモについては、「How Do I: Access and Manipulate Custom Document Properties in Microsoft Word? (操作方法: Microsoft Word のカスタム ドキュメント プロパティにアクセスして操作する)」を参照してください。
使用例
Sub TestProperties()
Dim properties As Microsoft.Office.Core.DocumentProperties
properties = CType(Me.CustomDocumentProperties, Office.DocumentProperties)
If ReadDocumentProperty("Project Name") <> Nothing Then
properties("Project Name").Delete()
End If
properties.Add("Project Name", False, _
Microsoft.Office.Core.MsoDocProperties.msoPropertyTypeString, _
"White Papers")
End Sub
Private Function ReadDocumentProperty(ByVal propertyName As String) As String
Dim properties As Office.DocumentProperties
properties = CType(Me.CustomDocumentProperties, Office.DocumentProperties)
Dim prop As Office.DocumentProperty
For Each prop In properties
If prop.Name = propertyName Then
Return prop.Value.ToString()
End If
Next
Return Nothing
End Function
void TestProperties()
{
Microsoft.Office.Core.DocumentProperties properties;
properties = (Office.DocumentProperties)this.CustomDocumentProperties;
if (ReadDocumentProperty("Project Name") != null)
{
properties["Project Name"].Delete();
}
properties.Add("Project Name", false,
Microsoft.Office.Core.MsoDocProperties.msoPropertyTypeString,
"White Papers", missing);
}
private string ReadDocumentProperty(string propertyName)
{
Office.DocumentProperties properties;
properties = (Office.DocumentProperties)this.CustomDocumentProperties;
foreach (Office.DocumentProperty prop in properties)
{
if (prop.Name == propertyName)
{
return prop.Value.ToString();
}
}
return null;
}
信頼性の高いプログラミング
未定義のプロパティに関して Value プロパティへのアクセスを試みると、例外が発生します。
参照
処理手順
方法 : ドキュメント プロパティの読み込みと書き込みを行う