Thema Datum  Von Nutzer Rating
Antwort
Rot Field-Objekt
27.11.2023 11:12:05 Frank Eser
NotSolved
29.11.2023 03:24:44 Gast45905
NotSolved
29.11.2023 10:53:38 Gast88881
NotSolved
29.11.2023 19:57:51 Gast45905
NotSolved

Ansicht des Beitrags:
Von:
Frank Eser
Datum:
27.11.2023 11:12:05
Views:
2602
Rating: Antwort:
  Ja
Thema:
Field-Objekt

Hallo liebe VBA-Experten,

ich habe folgendes Thema:

In MS Word werden Querverweise z.B. mit dem Style ‚Normal‘ in den Text eingefügt.

Das nachfolgend beschriebene Macro erkennt eingefügte Querverweise und wendet dann einen definierten Style auf den entsprechenden Bereich im Text (ActiveDocument.fields.result) an.

Es funktioniert soweit, dass im Dokument an allen relevanten Stellen die Querverweise mit dem geänderten Style angezeigt werden. Was ich ja auch erreichen wollte.

Aber mit dem nächsten ‚Update Field‘ wird der Querverweis wieder auf den ursprünglichen Style zurückgesetzt.

Wo liegt das Problem, dass der Style nicht festgeschrieben ist?

Macro:

For Each fieldLoop In ActiveDocument.Fields

        If fieldLoop.Type = wdFieldRef Or fieldLoop.Type = wdFieldNoteRef Or fieldLoop.Type = wdFieldPageRef Then

            If InStr(1, fieldLoop.Code.Text, "_Toc", 1) = 0 Then

                fieldLoop.Result.Style = ActiveDocument.Styles("Hypertext")

                fieldLoop.Result.Font.Bold = True

                fieldLoop.UpdateSource

            End If

        End If

    Next fieldLoop

Viele Grüße

Frank Eser


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 Field-Objekt
27.11.2023 11:12:05 Frank Eser
NotSolved
29.11.2023 03:24:44 Gast45905
NotSolved
29.11.2023 10:53:38 Gast88881
NotSolved
29.11.2023 19:57:51 Gast45905
NotSolved