Hallo,
mit Hilfe der antworten hier aus dem Forum konnte ich in kürzester Zeit mit meinem Makro weiterkommen.
An dieser Stelle komme ich aber nicht mehr weiter: ElseIf Selection.IPAtEndOfLine = False Then Selection.MoveRight (1)
Was möchte ich tun? Wenn der Cursor NICHTam Ende einer Zeile ist (also der Cursor steht NICHT direkt VOR der Absatzmarke), dann soll der Cursor eine Position nach rechts laufen. Die Abfrage, ob der Cursor vor dem Absatzzeichen steht, kenne ich nicht. Ich hatte es mal mit IPASTENDOFLINE versucht, ging aber leider nicht.
Danke für eure tolle Hilfe!
Selection.SetRange Start:=bmBookmark.End, End:=bmBookmark.End
Selection.MoveLeft (1)
If Selection.IsEndOfRowMark = True Then
While Selection.IsEndOfRowMark = True
Selection.MoveLeft (1)
Wend
'die folgende Abfrage funktioniert leider nicht, weil wahrscheinlich die Info zur Selection falsch ist.
ElseIf Selection.IPAtEndOfLine = 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
|