Zum Inhalt springen

Leerzeichen vor Zahl einfügen, VBA, Word 2000


Empfohlene Beiträge

Geschrieben

Hallo,

ich würde gerne mit VBA für Word 2000 ein Word-Doc durchgehen und vor jeder Zeile, die mit einer Zahl (0-9) beginnt, ein Leerzeichen einfügen.

Kann mir jemand sagen, wie ich das mache?

Danke, Sebastian

Geschrieben

Hab mir nun selbst geholfen :-)

Sub test()

Dim i As Integer

Dim t As String

i = 0

Selection.HomeKey Unit:=wdStory

Do

    Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdMove

    Selection.HomeKey Unit:=wdLine

    i = i + 1

    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend

    t = Selection.Text

    If Selection = "0" Or Selection = "1" Or _

        Selection = "2" Or Selection = "3" Or _

        Selection = "4" Or Selection = "5" Or _

        Selection = "6" Or Selection = "7" Or _

        Selection = "8" Or Selection = "9" Then

            Selection.HomeKey Unit:=wdLine

            Selection.TypeText Text:=" "

    End If

Loop Until (i = 100)

End Sub

Einziges Problem: ich zählen von i bis 100. Wie kann ich die 100 durch die Anzahl der Zeilen meiner Word-Datei ersetzen?

Danke Sebastian

Geschrieben

Wüsste nicht wie das gehen soll. Jedenfalls solange es sich nicht um eine Tabelle handelt.

Dein Kommentar

Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung wiederherstellen

  Nur 75 Emojis sind erlaubt.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...