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?
|