title image


Smiley Re: Zeichen am Zeilenanfang ersetzen
Hallo,



mit der Left/Left$-Funktion solle es gehen.

Sub Test400()

Dim blank As Paragraph

For Each blank In ActiveDocument.Paragraphs

While Left$(blank.Range.Characters(1), 1) = " "

blank.Range.Characters(1).Delete

Wend

Next blank

End Sub



      Hubert





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: