Forums Neueste Beiträge
 

Zeile mit Zeichen auffüllen

02/09/2009 - 15:14 von Josef Morlo | Report spam
Hallo allerseits,

ich möchte eine Zeile von der Cursor-Position bis zum Zeilenende mit
Zeichen eines beliebigen Typs (Proportionalschrift!) auffüllen.

Ich suche etwas in der Art:

Sub AddChars()
Dim oRng As Word.Range

Set oRng = Selection.Range
Do
oRng.Text = oRng.Text & Chr(61)
Loop Until 'Abbruchbedingung, wenn Zeilenende erreicht???
End Sub

Mit ActiveDocument.PageSetup.CharsLine zu arbeiten, führt nicht weiter

Hat jemand eine Idee, wie man das anstellen könnte.
Danke und Gruß

Josef Morlo
 

Lesen sie die antworten

#1 Bernhard Sander
02/09/2009 - 15:35 | Warnen spam
Hallo Josef

ich möchte eine Zeile von der Cursor-Position bis zum Zeilenende mit
Zeichen eines beliebigen Typs (Proportionalschrift!) auffüllen.

Ich suche etwas in der Art:

Sub AddChars()
Dim oRng As Word.Range

Set oRng = Selection.Range
Do
oRng.Text = oRng.Text & Chr(61)
Loop Until 'Abbruchbedingung, wenn Zeilenende erreicht???
End Sub


Schau mal in der Hilfe die Information-Eigenschaft an. Darüber kann man die
Zeilennummer der aktuellen Position abfragen.
Vorgehensweise:
vor der Schleife die aktuelle Zeilennummer festhalten
dann die Schleife solange durchlaufen, bis die aktuelle Zeilennummer sich àndert
schließlich noch das zuletzt angefügte Zeichen wieder löschen.

Gruß
Bernhard Sander

Ähnliche fragen