Vytvoření a úprava vlastních vlastností dokumentu

Aplikace systém Microsoft Office uvedené výše poskytují předdefinované vlastnosti, které jsou uložené s dokumenty. Kromě toho můžete vytvořit a upravit vlastní vlastnosti dokumentu, pokud jsou k dispozici další informace, které chcete uložit s dokumentem.

Platí pro: Informace v tomto tématu platí pro projekty na úrovni dokumentů a projekty doplňků VSTO pro následující aplikace: Excel; Powerpoint; Projektu; Slovo. Další informace naleznete v tématu Funkce dostupné aplikace Office lication a typu projektu.

K práci s vlastními vlastnostmi použijte vlastnost CustomDocumentProperties dokumentu. Například v projektu na úrovni dokumentu pro systém Microsoft Office Excelu použijte CustomDocumentProperties vlastnost ThisWorkbook třídy. V projektu doplňku VSTO pro Excel použijte CustomDocumentProperties vlastnost objektu Workbook . Tyto vlastnosti vrací DocumentProperties objekt, což je kolekce DocumentProperty objektů. Vlastnost kolekce můžete použít Item k načtení konkrétní vlastnosti, a to buď podle názvu, nebo indexu v kolekci.

Následující příklad ukazuje, jak přidat vlastní vlastnost v přizpůsobení na úrovni dokumentu pro Excel a přiřadit ji hodnotu.

Příklad

C#

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");
}

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;
}

VB

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

Robustní programování

Pokus o přístup Value k vlastnosti pro nedefinované vlastnosti vyvolá výjimku.

Související obsah

• Programové doplňky VSTO
• Přizpůsobení na úrovni dokumentu programu
• Postupy: Čtení z vlastností dokumentu a zápis do dokumentu