Membuat dan mengubah properti dokumen kustom

Microsoft aplikasi Office lications yang tercantum di atas menyediakan properti bawaan yang disimpan dengan dokumen. Selain itu, Anda dapat membuat dan mengubah properti dokumen kustom jika ada informasi tambahan yang ingin Anda simpan dengan dokumen.

Berlaku untuk: Informasi dalam topik ini berlaku untuk proyek tingkat dokumen dan proyek Add-in VSTO untuk aplikasi berikut: Excel; Powerpoint; Proyek; Kata. Untuk informasi selengkapnya, lihat Fitur yang tersedia berdasarkan aplikasi Office likasi dan jenis proyek.

Gunakan properti CustomDocumentProperties dari dokumen untuk bekerja dengan properti kustom. Misalnya, dalam proyek tingkat dokumen untuk Microsoft Office Excel, gunakan CustomDocumentProperties properti ThisWorkbook kelas . Dalam proyek Add-in VSTO untuk Excel, gunakan CustomDocumentProperties properti Workbook objek. Properti ini mengembalikan DocumentProperties objek, yang merupakan kumpulan DocumentProperty objek. Anda dapat menggunakan Item properti koleksi untuk mengambil properti tertentu, baik berdasarkan nama atau menurut indeks dalam koleksi.

Contoh berikut menunjukkan cara menambahkan properti kustom dalam kustomisasi tingkat dokumen untuk Excel dan menetapkannya sebagai nilai.

Contoh

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

Pemrograman yang kuat

Mencoba mengakses Value properti untuk properti yang tidak terdefinisi menimbulkan pengecualian.

Konten terkait

• Add-in VsTO Program
• Kustomisasi tingkat dokumen program
• Cara: Membaca dari dan menulis ke properti dokumen