Postupy: Vytváření a změny přizpůsobených vlastností dokumentu

Článek
05/16/2015

Výše uvedené aplikace Microsoft Office poskytují předdefinované vlastnosti uložené dokumenty.Kromě toho můžete vytvořit a upravit uživatelské vlastnosti dokumentu, pokud další informace, které chcete uložit dokument.

Platí pro: Informace v tomto tématu se vztahují na projekty na úrovni dokumentu i na úrovni aplikace v těchto aplikacích: Excel 2013 a Excel 2010, PowerPoint 2013 a PowerPoint 2010, Project 2013 a Project 2010; Word 2013 a Word 2010. Další informace najdete v tématu Dostupné funkce podle aplikací systému Office a typů projektu.

Použití CustomDocumentProperties vlastnost dokumentu pracovat s vlastními vlastnostmi.Například v projektu na úrovni dokumentu aplikace Microsoft Office Excel, použijte CustomDocumentProperties vlastnost ThisWorkbook třídy.V projektu aplikace Excel, použijte CustomDocumentProperties vlastnost Workbook objektu.Tyto vlastnosti vracejí DocumentProperties objekt, který je kolekce z DocumentProperty objekty.Můžete použít Item vlastnost v kolekci načíst konkrétní vlastnost název nebo index v rámci kolekce.

Následující příklad ukazuje, jak přidat vlastní vlastnosti v úroveň dokument přizpůsobení pro Excel a přiřaďte mu hodnotu.

odkaz na video Související video ukázku naleznete v tématu Jak provést I: přístup a manipulaci s vlastnosti vlastního dokumentu v aplikaci Microsoft Word?.

Příklad

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

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

Robustní programování

Při pokusu o přístup Value vlastnost pro nedefinované vlastnosti vyvolá výjimku.

Viz také

Úkoly

Postupy: Čtení z vlastností dokumentu a zápis do nich

Další zdroje

Programování doplňků na úrovni aplikace

Programování přizpůsobení na úrovni dokumentu

Sdílet prostřednictvím