كيفية القيام بما يلي: إنشاء وتعديل خصائص مستند مخصص

ينطبق على
تنطبق المعلومات الموجودة في هذا الموضوع فقط على أنواع المشاريع وإصدارات Microsoft Office التالية: لمزيد من المعلومات، راجع الميزات المتوفرة بواسطة تطبيقات Office و نوع المشروع. نوع المشروع مشروعات على مستوى التطبيق مشروعات على مستوى المستند إصدار Microsoft Office Excel 2007 و Excel 2010 PowerPoint 2007 و برنامج PowerPoint 2010 Project 2007 "و" Project 2010 Word 2007 و Word 2010

توفر تطبيقات Microsoft Office المذكورة أعلاه خصائص مضمنة مخزنة مع المستندات. بالإضافة إلى ذلك، يمكن إنشاء وتعديل خصائص المستند المخصصة إذا كان هناك معلومات إضافية ترغب في تخزينها مع المستند.

استخدم خاصية CustomDocumentProperties من المستند للعمل مع خصائص مخصصة. على سبيل المثال، في مشروع مستوى المستند لـ Microsoft Office Excel، استخدم خاصية CustomDocumentProperties من فئة ThisWorkbook . في مشروع على مستوى التطبيق لـ Excel، استخدم خاصية CustomDocumentProperties من الكائن Microsoft.Office.Interop.Excel.Workbook . هذه الخصائص تقوم بإرجاع كائن DocumentProperties ,الذي هو مجموعة من الكائنات DocumentProperty . يمكنك استخدام خاصية Item الخاصة بالمجموعة لاسترداد خاصية معينة, إما حسب الاسم أو الفهرس داخل المجموعة.

يوضح المثال التالي كيفية إضافة خاصية مخصصة فى تخصيص على مستوى المستند لـ Excel وتعيين قيمة لها.

للحصول على عرض فيديو توضيحي ذي صلة، راجع كيف يمكنني القيام بما يلي: الوصول إلى و معالجة خصائص المستند المخصص في 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 من خصائص غير معروفة يرفع استثناءً.

راجع أيضًا:

المهام

كيفية القيام بما يلي: القراءة من والكتابة إلى خصائص المستند

موارد أخرى

برمجة وظائف إضافية على مستوى التطبيق

برمجة تخصيصات علي مستوي مستند