Thema Datum  Von Nutzer Rating
Antwort
Rot Alle Felder ausser Inhaltsverzeichnisse unlinken
 13.06.2024 13:08:08 Andreas Vogt
NotSolved
13.06.2024 17:30:37 Gast8033
NotSolved

Ansicht des Beitrags:
Von:
Andreas Vogt		 Datum:
13.06.2024 13:08:08		 Views:
576		 Rating:
     
Antwort:
  Ja
Thema:
Alle Felder ausser Inhaltsverzeichnisse unlinken

Hallo,
ich möchte gerne per VBA in Word alle Felder in einem Dokument entfernen, also per .unlink in Text umwandeln.
Das funktioniert soweit auch, aber leider werden auch alle Inhaltsverzeichnisse und Verweise zu Textmarken auf diese Weise entfernt/umgewandelt.
Wie könnte ich diese ausnehmen?
 

For Each FF In ActiveDocument.Fields
        If FF.Type = wdFieldExpression Xor FF.Type = wdFieldDocVariable Xor FF.Type = wdFieldIf Xor FF.Type = wdFieldRef Then
            If InStr(1, FF.Code.Text, "PAGE", 1) Or InStr(1, FF.Code.Text, "INHALT", 1) Or InStr(1, FF.Code.Text, "Inhalt", 1) Then
                'Dann ist es nur ein Feld zur Numerierung...?
            Else
                FF.Select
                Selection.ParentContentControl.LockContentControl = False
                Selection.Range.ParentContentControl.Ungroup
                FF.Unlink
            End If
        End If
    Next FF

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Alle Felder ausser Inhaltsverzeichnisse unlinken
 13.06.2024 13:08:08 Andreas Vogt
NotSolved
13.06.2024 17:30:37 Gast8033
NotSolved