Hallo Mase und viel Dank für Deine Info.
Leider sagt mir mein Makro, es handelt sich um die unzuzlässige Verwendung einer Eigenschaft. Kannst Du mir denn die korrekte Abfrag unten in der markierten Zeile einbauen?
Ich bin ein absoluter Dummy, ich ziehe mir Infos aus verschiedenen Quellen zusammen, und irgendwie funktioniert es dann :-)
Herzlichen Dank und Grüße
Kerstin
' Ende PARA
Selection.SetRange Start:=bmBookmark.End, End:=bmBookmark.End
Selection.MoveLeft (1)
' Selection.Characters (Selection.Characters.Count)
If Selection.IsEndOfRowMark = True Then
While Selection.IsEndOfRowMark = True
Selection.MoveLeft (1)
Wend
---- ElseIf Selection.Characters(1, ChrW(182)) = False Then ---
Selection.MoveRight (1)
End If
With Selection
.Font.Size = 8
.Font.Bold = True
.Font.ColorIndex = wdGreen
.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"QUOTE" & " " & BookmarkInsert & "#>", PreserveFormatting:=True
End With
|