Porady: tworzenie i modyfikowanie właściwości niestandardowego dokumentu.
Aplikacje Microsoft Office wymienionych powyżej zapewniają wbudowane właściwości, które są przechowywane dokumenty.Ponadto można tworzyć i modyfikować właściwości niestandardowe dokumentu, jeśli istnieje dodatkowe informacje, które mają być przechowywane w dokumencie.
Zastosowanie: Informacje przedstawione w tym temacie mają zastosowanie do projektów na poziomie dokumentu i aplikacji dla następujących aplikacji: Excel 2013 i Excel 2010; PowerPoint 2013 i PowerPoint 2010; Project 2013 i Project 2010; Word 2013 i Word 2010. Aby uzyskać więcej informacji, zobacz Funkcje dostępne w aplikacjach pakietu Office i typ projektu.
Użycie CustomDocumentProperties właściwości dokumentu do pracy z właściwościami niestandardowymi.Na przykład w projekcie poziomie dokumentu dla programu Microsoft Office Excel, należy użyć CustomDocumentProperties właściwość ThisWorkbook klasy.W projekcie poziomie aplikacji dla programu Excel, użyj CustomDocumentProperties właściwość Workbook obiektu.Te właściwości zwracają DocumentProperties obiekt, który jest kolekcją z DocumentProperty obiektów.Można użyć Item właściwość kolekcja pobrać określonej właściwości, nazwa lub indeks w kolekcji.
Poniższy przykład ilustruje sposób dodać właściwości niestandardowe w dostosowywania poziomie dokumentu dla programu Excel i przypisać jej wartość.
.gif "łącze do wideo")
Aby wyświetlić pokrewne wideo demonstracyjne, zobacz jak zrobić I: dostępu i manipulowania właściwości niestandardowe dokumentu w programie Microsoft Word?.
Przykład
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;
}
Stabilne programowanie
Próby dostępu do Value właściwość do niezdefiniowanej właściwości zgłasza wyjątek.
Zobacz też
Zadania
Porady: odczytywanie i zapisywanie właściwości dokumentów