{"id":1491,"date":"2012-01-30T19:29:04","date_gmt":"2012-01-30T17:29:04","guid":{"rendered":"http:\/\/www.kastenmaier.de\/?p=1491"},"modified":"2019-09-20T16:47:54","modified_gmt":"2019-09-20T15:47:54","slug":"vsto-word-dokument-aktualisieren","status":"publish","type":"post","link":"https:\/\/www.kastenmaier.de\/?p=1491","title":{"rendered":"VSTO – Word: Dokument aktualisieren"},"content":{"rendered":"

Beschreibung<\/span><\/h1>\n

Wenn Dokumente mit Inhaltsverzeichnis, Textmarken usw. in Word aktualisiert werden m\u00fcssen, entdeckt man schnell, dass die einfache L\u00f6sung alles zu markieren (STRG-A) und anschlie\u00dfend zu aktualisieren (F9), nicht wirklich alles aktualisiert. Kopf- und Fu\u00dfzeilen sind von dieser Methoden ausgeschlossen. Au\u00dferdem muss anschlie\u00dfend nach fehlerhaften Verweisquellen usw. gesucht werden. Das folgende Makro hilft in diesem Fall weiter. Das Dokument wird vollst\u00e4ndig aktualisiert. Wird ein Fehler gefunden, bleibt der Cursor an der entsprechenden Stelle stehen, so  dass man das Dokument korrigieren  kann.<\/p>\n

Das Makro ist in VB.NET geschrieben, kann aber leicht in VBA portiert werden. Bei Fragen, einfach die Kommentarfunktion benutzen.<\/p>\n

Damit die Funktion funktioniert, wird dar\u00fcber hinaus die Funktion fehlerhafte Verweisquellen finden<\/a> ben\u00f6tigt.
\n\"\"\/<\/p>\n

Sourcecode<\/span><\/h1>\n
' Word-Objekt\nPublic objWord As Microsoft.Office.Interop.Word.Application = Globals.Ribbon_Class.Application\n\n' Dokument aktualisieren und beim Auffinden von fehlerhafte Verweisequellen an der entsprechenden Stelle stehenbleiben\nSub DokumentAktualisieren()\n    If Len(objWord.ActiveDocument.Name) > 0 Then\n        Dim bState As Byte\n        ' bState-Werte:\n        '   0: Initialisierung\n        '   1: Ansichteinstellungen\n        '   2: Kopf- und Fu\u00dfzeilen aktualisieren\n        '   3: Verzeichnisse aktualisieren\n        '   4: Fehlerhafte Verweisquellen im Text suchen\n        '   5: Fehlerhafte Verweisquellen in Kopfzeile suchen\n        '   6: Fehlerhafte Verweisquellen in Fu\u00dfzeile suchen\n        '   7: Wechsel auf letzte Seite\n        '   8: Keine Fehler gefunden\n        '   9: Fehler gefunden\n        '  10: Statemachine beenden\n\n        Dim bFoundError As Boolean\n        Dim iPage As Integer\n        Dim iCurViewType As Integer\n        Dim rCurPos As Word.Range\n        Dim bShowRevisionsAndComments As Boolean\n        Dim bRevisionsView As Byte\n        Dim bMaxState As Byte\n\n        bMaxState = 10\n        bState = 0\n\n        rCurPos = objWord.Selection.Range\n\n        While bState >= 0 And bState <= bMaxState\n            Select Case bState\n\n                Case 0\n                    ' Initialisierung\n\n                    Try\n                        ' Variablen initialisieren\n                        bFoundError = False\n                        iPage = 1\n\n                        ' Bildschirmaktualisierung abschalten\n                        objWord.Application.ScreenUpdating = False\n\n                        ' Aktuelle Postion zwischenspeichern\n                        rCurPos = objWord.Selection.Range\n\n                        ' Aktuelle Einstellung der Anzeige von \u00c4nderungsmarkierungen zwischenspeichern\n                        With objWord.ActiveWindow.View\n                            bShowRevisionsAndComments = .ShowRevisionsAndComments\n                            bRevisionsView = .RevisionsView\n                        End With\n\n                        ' In Zustand "Ansichteinstellungen" wechseln\n                        bState = 1\n                    Catch ex As Exception\n                        MsgBox("Fehler in Zustand " & bState & ":" & vbNewLine & _\n                               ex.Message, _\n                               MsgBoxStyle.Critical, _\n                               "Fehler")\n\n                        ' Funktion beenden und nicht in letzten Zustand springen, da die n\u00f6tigen Variablen evtl. nicht initialisiert wurden\n                        Exit Sub\n                    End Try\n\n                Case 1\n                    ' Ansichteinstellungen\n\n                    Try\n                        With objWord.ActiveWindow\n                            ' Ansicht pr\u00fcfen und gegebenenfalls wechseln (betrifft aufgesplittete Darstellung)\n                            If .View.SplitSpecial <> wdPaneNone Then\n                                .Panes(2).Close()\n                            End If\n\n                            With .ActivePane.View\n                                ' Ansicht zwischenspeichern\n                                iCurViewType = .Type\n                                If (.Type = wdNormalView Or _\n                                    .Type = wdOutlineView) Then\n                                    .Type = wdPrintView\n                                End If\n\n                                ' Darstellung der \u00c4nderungsmarkierungen abschalten und auf Endg\u00fcltige Darstellung wechseln\n                                .ShowRevisionsAndComments = False\n                                .RevisionsView = wdRevisionsViewFinal\n                            End With\n                        End With\n\n                        ' In Zustand "Kopf- und Fu\u00dfzeilen aktualisieren" wechseln\n                        bState = 2\n                    Catch ex As Exception\n                        MsgBox("Fehler in Zustand " & bState & ":" & vbNewLine & _\n                               ex.Message, _\n                               MsgBoxStyle.Critical, _\n                               "Fehler")\n\n                        ' In Zustand "Statemachine beenden" wechseln\n                        bState = bMaxState\n                    End Try\n\n                Case 2\n                    ' Kopf- und Fu\u00dfzeilen aktualisieren\n\n                    Try\n                        With objWord.ActiveDocument\n                            ' Wechsel in die Druckvorschau und zur\u00fcck um Kopf- und Fu\u00dfzeilen zu aktualisieren\n                            .PrintPreview()\n                            .ClosePrintPreview()\n                        End With\n\n                        ' In Zustand "Verzeichnisse aktualisieren" wechseln\n                        bState = 3\n                    Catch ex As Exception\n                        MsgBox("Fehler in Zustand " & bState & ":" & vbNewLine & _\n                               ex.Message, _\n                               MsgBoxStyle.Critical, _\n                               "Fehler")\n\n                        ' In Zustand "Statemachine beenden" wechseln\n                        bState = bMaxState\n                    End Try\n\n                Case 3\n                    ' Verzeichnisse aktualisieren\n\n                    Try\n                        With objWord.Selection\n                            ' Gesamtes Dokument markieren und alle Felder aktualisieren\n                            .WholeStory()\n                            .Fields.Update()\n                        End With\n\n                        ' Alle vorhandenen Verzeichnisse aktualisieren\n                        ' Inhaltsverzeichnis\n                        Dim oTOC As Word.TableOfContents\n                        For Each oTOC In objWord.ActiveDocument.TablesOfContents\n                            oTOC.Update()\n                        Next oTOC\n\n                        ' Abbildungsverzeichnis\n                        Dim oTOF As Word.TableOfFigures\n                        For Each oTOF In objWord.ActiveDocument.TablesOfFigures\n                            oTOF.Update()\n                        Next oTOF\n\n                        ' Rechtsgrundlagenverzeichnisse\n                        Dim oTOA As Word.TableOfAuthorities\n                        For Each oTOA In objWord.ActiveDocument.TablesOfAuthorities\n                            oTOA.Update()\n                        Next oTOA\n\n                        ' In Zustand "Fehlerhafte Verweisquellen im Text suchen" wechseln\n                        bState = 4\n                    Catch ex As Exception\n                        MsgBox("Fehler in Zustand " & bState & ":" & vbNewLine & _\n                               ex.Message, _\n                               MsgBoxStyle.Critical, _\n                               "Fehler")\n\n                        ' In Zustand "Statemachine beenden" wechseln\n                        bState = bMaxState\n                    End Try\n\n                Case 4\n                    ' Fehlerhafte Verweisquellen im Text suchen\n\n                    Try\n                        With objWord.Selection\n                            ' Nach fehlerhaften Verweisquellen im Text suchen\n                            ' Wechsel auf erste Seite\n                            .HomeKey(Unit:=wdStory)\n                            ' Nach fehlerhaften Verweisquellen im Text suchen\n                            bFoundError = findFehlerhafteVerweisquellen()\n                        End With\n\n                        If bFoundError Then\n                            ' In Zustand "Fehler gefunden" wechseln\n                            bState = 9\n                        Else\n                            ' In Zustand "Fehlerhafte Verweisquellen in Kopfzeile suchen" wechseln\n                            bState = 5\n                        End If\n                    Catch ex As Exception\n                        MsgBox("Fehler in Zustand " & bState & ":" & vbNewLine & _\n                               ex.Message, _\n                               MsgBoxStyle.Critical, _\n                               "Fehler")\n\n                        ' In Zustand "Statemachine beenden" wechseln\n                        bState = bMaxState\n                    End Try\n\n                Case 5\n                    ' Fehlerhafte Verweisquellen in Kopfzeile suchen\n\n                    Try\n                        With objWord.Selection\n                            ' Nach Fehlern in der Kopf- und Fu\u00dfzeile suchen\n                            If iPage = 1 Then\n                                ' Wechsel auf erste Seite\n                                .HomeKey(Unit:=wdStory)\n                            Else\n                                ' Wechsel auf letzte Seite\n                                .EndKey(Unit:=wdStory)\n                            End If\n\n                            Try\n                                ' In Kopfzeile wechseln\n                                objWord.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader\n\n                                ' Wenn Kopfzeile vorhanden, gesamten Kopfzeilentext markieren und nach Fehlern suchen\n                                .WholeStory()\n                                ' Nach fehlerhaften Verweisquellen im Text suchen\n                                bFoundError = findFehlerhafteVerweisquellen()\n                            Catch ex As Exception\n                                ' In Zustand 6: "Fehlerhafte Verweisquellen in Fu\u00dfzeile suchen" wechseln\n                                bFoundError = False\n                            End Try\n\n                        End With\n\n                        If bFoundError Then\n                            ' In Zustand "Fehler gefunden" wechseln\n                            bState = 9\n                        Else\n                            ' In Zustand "Fehlerhafte Verweisquellen in Fu\u00dfzeile suchen" wechseln\n                            bState = 6\n                        End If\n                    Catch ex As Exception\n                        MsgBox("Fehler in Zustand " & bState & ":" & vbNewLine & _\n                               ex.Message, _\n                               MsgBoxStyle.Critical, _\n                               "Fehler")\n\n                        ' In Zustand "Statemachine beenden" wechseln\n                        bState = bMaxState\n                    End Try\n\n                Case 6\n                    ' Fehlerhafte Verweisquellen in Fu\u00dfzeile suchen\n\n                    Try\n                        ' In Fu\u00dfzeile wechseln und nach Fehlern suchen\n                        objWord.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter\n\n                        With objWord.Selection\n                            ' gesamten Fu\u00dfzeilentext markieren und nach Fehlern suchen\n                            .WholeStory()\n                            ' Nach fehlerhaften Verweisquellen im Text suchen\n                            bFoundError = findFehlerhafteVerweisquellen()\n                        End With\n                    Catch ex As Exception\n                        ' In Zustand 7: "Wechsel auf letzte Seite" wechseln\n                        bFoundError = False\n                    End Try\n\n                    If bFoundError Then\n                        ' In Zustand "Fehler gefunden" wechseln\n                        bState = 9\n                    Else\n                        ' In Zustand "Wechsel auf letzte Seite" wechseln\n                        bState = 7\n                    End If\n\n                Case 7\n                    ' Wechsel auf letzte Seite\n\n                    Try\n                        ' wenn Position auf erster Seite, dann Wechsel auf letzte Seite\n                        If iPage = 1 Then\n                            iPage = 2\n                            ' Wechseln in das Dokument\n                            objWord.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument\n\n                            ' In Zustand "Fehlerhafte Verweisquellen in Kopfzeile suchen" wechseln\n                            bState = 5\n                        Else\n                            ' In Zustand "Keine Fehler gefunden" wechseln\n                            bState = 8\n                        End If\n                    Catch ex As Exception\n                        MsgBox("Fehler in Zustand " & bState & ":" & vbNewLine & _\n                               ex.Message, _\n                               MsgBoxStyle.Critical, _\n                               "Fehler")\n\n                        ' In Zustand "Statemachine beenden" wechseln\n                        bState = bMaxState\n                    End Try\n\n                Case 8\n                    ' Keine Fehler gefunden\n\n                    Try\n                        With objWord.ActiveWindow.ActivePane.View\n                            ' Wechseln in das Dokument\n                            .SeekView = wdSeekMainDocument\n                            ' Wechsel auf erste Seite\n                            objWord.Selection.HomeKey(Unit:=wdStory)\n                            ' Ansicht wiederherstellen\n                            .Type = iCurViewType\n                            ' Aktuelle Postion wiederherstellen\n                            rCurPos.Select()\n                        End With\n\n                        ' In Zustand "Statemachine beenden" wechseln\n                        bState = bMaxState\n                    Catch ex As Exception\n                        MsgBox("Fehler in Zustand " & bState & ":" & vbNewLine & _\n                               ex.Message, _\n                               MsgBoxStyle.Critical, _\n                               "Fehler")\n\n                        ' In Zustand "Statemachine beenden" wechseln\n                        bState = bMaxState\n                    End Try\n\n                Case 9\n                    ' Fehler gefunden\n\n                    Try\n                        With objWord.ActiveWindow.ActivePane.View\n                            ' Ansicht wiederherstellen\n                            .Type = iCurViewType\n                        End With\n\n                    Catch ex As Exception\n                        MsgBox("Fehler in Zustand " & bState & ":" & vbNewLine & _\n                               ex.Message, _\n                               MsgBoxStyle.Critical, _\n                               "Fehler")\n                    End Try\n\n                    ' In Zustand "Statemachine beenden" wechseln\n                    bState = bMaxState\n\n                Case bMaxState\n                    ' Statemachine beenden\n\n                    ' Einstellung der Anzeige von \u00c4nderungsmarkierungen wiederherstellen\n                    With objWord.ActiveWindow.View\n                        .ShowRevisionsAndComments = bShowRevisionsAndComments\n                        .RevisionsView = bRevisionsView\n                    End With\n\n                    ' Bildschirmaktualisierung einschalten\n                    objWord.Application.ScreenUpdating = True\n\n                    Exit While\n            End Select\n        End While\n    End If\nEnd Sub<\/pre>\n","protected":false},"excerpt":{"rendered":"
Beschreibung Wenn Dokumente mit Inhaltsverzeichnis, Textmarken usw. in Word aktualisiert werden m\u00fcssen, entdeckt man schnell, dass die einfache L\u00f6sung alles zu markieren (STRG-A) und anschlie\u00dfend zu aktualisieren (F9), nicht wirklich alles aktualisiert. Kopf- und Fu\u00dfzeilen sind von dieser Methoden ausgeschlossen. Au\u00dferdem muss anschlie\u00dfend nach fehlerhaften Verweisquellen usw. gesucht werden. <\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"ngg_post_thumbnail":0,"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[29,45],"tags":[49,37,46,38],"class_list":["post-1491","post","type-post","status-publish","format-standard","hentry","category-startseite","category-vsto-word","tag-programmieren","tag-vba","tag-vsto","tag-word"],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p5LyzC-o3","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/posts\/1491","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1491"}],"version-history":[{"count":16,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/posts\/1491\/revisions"}],"predecessor-version":[{"id":2293,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/posts\/1491\/revisions\/2293"}],"wp:attachment":[{"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1491"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1491"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1491"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}