Office: (Office 365) Querverweis automatische Formatvorlage

Guten Morgen allerseits,
Ich möchte in meinen Word-Dokumenten die Querverweise automatisch mit einer eigenen Formatvorlage formatieren, beispielsweise Kursiv, fett und blau. Optimal wäre zusätzlich auch eine andere Darstellung, z. B. in der Form "Absatztext ( Absatznummer )". Leider bin ich weder im Internet noch in anderen Foren wirklich fündig geworden.
Kennt jemand die Lösung oder Links zu einem entsprechenden Beiträgen.
Vielen Dank!
Gruß
Michael

 

Das bekommst Du nur mit VBA hin. Wie sind Deine Kenntnisse da?

Gruß
Burkhard

 

Meine VBA-Kenntnisse in Excel sind sehr gut, mit Word habe ich es nicht probiert.
Da werde ich mich erstmal ein wenig schlauer machen.
Das bedeutet wohl, dass ich dieses Thema schließen kann.
Danke für deinen Hinweis.
Gruß Michael

 

Mach das einmal von Hand bei eingeschaltetem Macrorecorder, das dürfte dann aufschlussreich genug für ein eigenes Makro sein.
Gruß
Burkhard

 

Das werde ich sicher versuchen, es wird aber noch ein paar Tage warten müssen (bin gerade auf Kur).
Vielleicht noch ein Tipp, welche genauen Einzelschritte gem. deines Vorschlags per Hand einzugeben wären und wie der Ablauf zur Anlage eines Querverweises dann mit Macro-Einsatz ablaufen müsste.
Mein Dokument hat zudem bereits um die 50 Querverweise, ich habe mal etwas gelesen, in dem die REF-Angaben mit Alt-F9 aufgeklappt werden und Suchen/Ersetzen die Formatierung durch die Formatvorlage ersetzt wird. Bei einem flüchtigen Versuch konnte ich das aber nicht nachvollziehen.
Danke nochmal für deine Unterstützung.
Gruß
Michael

 

Hallo zusammen,

ich hab mal ein bisschen Makrorecorder gespielt. Das folgende Basis-Makro formatiert jedes Querverweis-Feld im Dokument mit der (natürlich schon existierenden) Formatvorlage namens FVQV. Ein Umschalten in den Feldcode ist nicht nötig:

Code:

Sub FormatierQV()
Dim feld As Field, i As Long

For Each feld In ActiveDocument.Fields
    If feld.Type = wdFieldRef Then
        feld.Result.Style = "FVQV"
    End If
Next feld
End Sub

 

Hallo Gerhard,
danke für die Tipp, den ich soeben umgesetzt habe.
Es gibt nur ein Problem, die Formatvorlage wirkt immer auf den ganzen Absatz, in dem der Querverweis eingefügt wurde.
Leider bin ich Word VBA noch nicht vertraut im Gegensatz zu Excel.
Mein Querverweis sieht so aus: 1.2.3 (Leerzeichen) QV-Text.
Den Querverweis erstelle ich wie folgt : Referenzen -> Querverweis -> Im Menu Absatznummer -> einfügen
-> im Menu zu Absatztext -> einfügen. Danach verlasse ich das QV-Menu und trenne beide Begriffe durch Eingabe eines Leerzeichens zwischen beide Felder. Warum? weil ich vermeiden will erst die Absatznummer, rausgehen, Leerzeichen eingeben, wieder QV mit Absatztext, fertig.
Nachtrag: ich habe in einem Absatz nur die Absatznummer eingefügt, der gesamte Absatz wird aber formatiert. Hat wohl mit der obigen Verhaltensweise nichts zu tun.
Hast du noch eine Idee?

 

Hallo nochmal,
Ich nehme alles zurück, Grund war meine Unwissenheit über das Word Obj.-Modell.
Meine Formatvorlage war Absatz-bezogen, nachdem ich sie auf Zeichen geändert habe, funktioniert es wie es soll.

Ich sehe, ich muss mich wohl etwas mehr mit Word VBA befassen.
Danke Gerhard, danke Burkhart.