Condividi tramite

DocumentBase.ContentTypeProperties Property

  • Reference

Definition

Namespace:
Microsoft.Office.Tools.Word
Assembly:
Microsoft.Office.Tools.Word.v4.0.Utilities.dll

Gets the metadata that is stored in a document, such as author name, subject, and company.

public:
 property Microsoft::Office::Core::MetaProperties ^ ContentTypeProperties { Microsoft::Office::Core::MetaProperties ^ get(); };
public Microsoft.Office.Core.MetaProperties ContentTypeProperties { get; }
member this.ContentTypeProperties : Microsoft.Office.Core.MetaProperties
Public ReadOnly Property ContentTypeProperties As MetaProperties

Property Value

MetaProperties

A MetaProperties collection that represents the metadata that is stored in a document, such as author name, subject, and company.

Examples

The following code example retrieves the metadata that is associated with the current document. The example shows the total number of metadata properties, followed by the name and value of each property. To run this example, you must publish the document to a Microsoft Office SharePoint Server document library. For more information about content type properties, see Content Types in the Windows SharePoint Services SDK. To use this example, run it from the ThisDocument class in a document-level project.

private void GetContentTypeProperties()
{
    Office.MetaProperties props = this.ContentTypeProperties;
    MessageBox.Show("Number of metadata properties found: " 
        + props.Count.ToString());
    foreach (Office.MetaProperty prop in props)
    {
        MessageBox.Show("Metadata property name: " + prop.Name 
            + "\r\nMetadata property value: " + prop.Value.ToString());
    }
}

Private Sub GetContentTypeProperties()        
    Dim props As Office.MetaProperties = Me.ContentTypeProperties
    MessageBox.Show("Number of metadata properties found: " _
                    + props.Count.ToString())
    For Each prop As Office.MetaProperty In props
        MessageBox.Show("Metadata property name: " + prop.Name _
                + vbCrLf + "Metadata property value: " _
                + prop.Value.ToString())
    Next
End Sub

Applies to