Themen in diesem Artikel: Dokumentinformationsbereiche Verwalten von Metadaten Verwenden von InfoPath-Formularen

In diesem Artikel werden folgende Technologien verwendet: 2007 Office System, .NET Framework 3.5

 Inhalt

Metadatenverwaltung mit Dokumentinformationsbereichen
Dokumenteigenschaftenverwaltung
Benutzerdefinierte Dokumenteigenschaftenverwaltung
Die InfoPath-Formularvorlage
Dokumentinformationsbereich ein- oder ausblenden
Einfügen von Prüflistenschnellbausteinen
Bindung
Integrieren des Dokumentinformationsbereichs in das Dokument
Versionsprobleme
Zusammenfassung

 Figure 4 Eine Beziehungsdatei

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<Relationships
   xmlns="http://schemas.openxmlformats.org/package/2006/relationships">
  <Relationship Id="rId3" 
    Type="http://schemas.openxmlformats.org/officeDocument/2006/
    relationships/extended-properties" Target="docProps/app.xml"/>
  <Relationship Id="rId2" 
    Type="http://schemas.openxmlformats.org/package/2006/
    relationships/metadata/core-properties" Target="docProps/core.xml"/>
  <Relationship Id="rId1"
    Type="http://schemas.openxmlformats.org/officeDocument/2006/
    relationships/officeDocument" Target="word/document.xml"/>
  <Relationship Id="rId4" 
    Type="http://schemas.openxmlformats.org/officeDocument/2006/
    relationships/custom-properties" Target="docProps/custom.xml"/>
</Relationships>

 Figure 5 Abrufen einer Standarddokumenteigenschaft

Dim StandardProperties As Microsoft.Office.Core.DocumentProperties
Dim StandardProperty As Microsoft.Office.Core.DocumentProperty

Dim Category As String

'Assign Current Document Standard Properties
StandardProperties = _
  DirectCast(Globals.ThisDocument.BuiltInDocumentProperties, _
  Microsoft.Office.Core.DocumentProperties)

'Assign "category" property
StandardProperty = StandardProperties.Item("category")

'Get "category" property value
Category = StandardProperty.Value

'Set "category" property value to "Modified Checklist"
StandardProperty.Value = "Modified Checklist"

 Figure 6 Zugriffseigenschaften als XML

Dim OfficeCustomXMLParts As Microsoft.Office.Core.CustomXMLParts
Dim Category As String

'Assign CustomXMLParts containing standard/core 
'document properties XML Part
OfficeCustomXMLParts = DirectCast(Globals.ThisDocument.CustomXMLParts, _
  Microsoft.Office.Core.CustomXMLParts)

'Find the "category" property node and get the value of "category"
 'standard property

Category = OfficeCustomXMLParts.Item(1).SelectSingleNode _
 ("//*[local-name(.)='category']").Text

'Find the "category" property node and set the value of "category"
' standard property
OfficeCustomXMLParts.Item(1).SelectSingleNode _
 ("//*[local-name(.)='category']").Text = "modified category"

 Figure 7 Abrufen der benutzerdefinierten Client-Eigenschaft

Dim CustomProperties As Microsoft.Office.Core.DocumentProperties
Dim CustomProperty As Microsoft.Office.Core.DocumentProperty
Dim client As String

'Assign Current Document Standard Properties
CustomProperties = DirectCast(Globals.ThisDocument.CustomDocumentProperties, Microsoft.Office.Core.DocumentProperties)

'Assign "client" property
CustomProperty = CustomProperties.Item("Client")

'Get "client" property value
client = CustomProperty.Value

'Set "client" property value to "Microsoft"
CustomProperty.Value = "Microsoft"

 Figure 13 InsertChecklistQuickPartsAsBuildingBlock

Sub InsertChecklistQuickPartsAsBuildingBlock(ByVal _
  ChecklistCategory As String)

  'Declaration
  Dim oAttachedTemplate As Microsoft.Office.Interop.Word.Template
  Dim oBuildingBlock As Microsoft.Office.Interop.Word.BuildingBlock
  Dim selection As Microsoft.Office.Interop.Word.Selection
  Dim TotalQuickParts As Integer
  Dim iIndex As Integer

  'Define Attached Template - ChecklistsQuickPartsTemplate.dotm
  oAttachedTemplate = Globals.ThisDocument.AttachedTemplate

  'Get Total Number of quick parts available in the selected checklist
  ' category in the InfoPath form
  TotalQuickParts = oAttachedTemplate.BuildingBlockTypes _
    .Item(Word.WdBuildingBlockTypes.wdTypeQuickParts) _
    .Categories.Item("CL - " + ChecklistCategory) _
    .BuildingBlocks.Count

  selection = Globals.ThisDocument.Application.Selection

  'Insert all quick parts available in the defined category
  'Each quick part starts with a new page
  For iIndex = 1 To TotalQuickParts

    'Add Building Block Content Control
    selection.Range.ContentControls.Add(Word.WdContentControlType _
      .wdContentControlBuildingBlockGallery)

    'Define Quick Part as Building Block
    oBuildingBlock = oAttachedTemplate.BuildingBlockTypes _
      .Item(Word.WdBuildingBlockTypes.wdTypeQuickParts) _
      .Categories.Item("CL - " + ChecklistCategory) _
      .BuildingBlocks.Item(iIndex)

    'Insert Quick Part
    oBuildingBlock.Insert(selection.Range)

    selection.EndKey(Word.WdUnits.wdStory)
    selection.TypeParagraph()

    'No new page required if it is a last Quick Part
    If Not iIndex = TotalQuickParts Then
      selection.InsertBreak(Type:=Word.WdBreakType.wdPageBreak)
    End If

  Next

End Sub