Thema Datum  Von Nutzer Rating
Antwort
Rot Formatierung per VBA eines Querverweis in Word
04.07.2022 14:46:12 Andreas Vogt
NotSolved

Ansicht des Beitrags:
Von:
Andreas Vogt
Datum:
04.07.2022 14:46:12
Views:
129
Rating: Antwort:
  Ja
Thema:
Formatierung per VBA eines Querverweis in Word

Hallo,
ich füge in Word per VBA einen Querverweis auf eine Textmarke ein. Diese Textmarke besteht widerrum aus einer Tabelle mit einzelnen Feldern.

Wenn ich diesem Querverweis nun eine Formatierung mitgeben möchte "\* MERGEFORMAT" geht das nicht.

Der Querverweis wird so eingefügt (in der Kopfzeile der zweiten Seite):
 

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.EndKey Unit:=wdStory Selection.InsertCrossReference ReferenceType:="Textmarke", ReferenceKind:=wdContentText, ReferenceItem:="T_LIEFERANTENERGAENZUNG_BERECHNUNG", InsertAsHyperlink:=True, IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" "

Wenn ich nun das Mergeformat anhängen möchte, habe ich das so gelöst:

Dim fieldLoop As Field
    Dim fieldText As String
    For Each fieldLoop In ActiveDocument.Fields
       If InStr(0, fieldLoop.Code.Text, "REF T_LIEFERANTENERGAENZUNG_BERECHNUNG", 1) Then
          fieldText = fieldLoop.Code.Text
          If InStr(1, fieldText, " \h", 1) And Not InStr(1, fieldText, " \* MERGEFORMAT", 1) Then
             fieldText = fieldText & " \* MERGEFORMAT "
             fieldLoop.Code.Text = fieldText
           End If
        End If
    Next

Leider spricht das aber nicht an, da die Schleife den Querverweis nicht als field durchläuft..?

Hat jemand eine Idee?


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 Formatierung per VBA eines Querverweis in Word
04.07.2022 14:46:12 Andreas Vogt
NotSolved