Zeichenweises ersetzen in Word (Script)

Computer: Software & Programmierung Visual Basic
#1

Hi.
Ich habe folgendes Problem:

Ich muß in einem Word/Standart-text file in jeder Zeile z.B. das 3. 8. und 15. Zeichen durch ein Semikolon ersetzen.

Müßte eigentlich mit 4 Zeilen möglich sein. Nur wie?

Und mit welchem Befehl könnte ich dann noch spezielle Zeilen löschen?

Vielen Dank schon mal für die Hilfe.
/tillfr

#2

Zeichne das, was du willst, doch einfach als Makro auf und bastle eine Schleife aussen herum.

Oder soll es mehr als eine Einmalaktion sein? Dann würde ich eher ein kleines Filter- oder Konversionsprogramm ausserhalb von Word - z.B. in VB oder VBS schreiben!

Gruß aus dem Norden
Reinhard Kraasch (http://www.kraasch.de - Access Tipps & Tricks)

#3

Geht´s so, oder brauchst Du noch Hilfe?
Moin,

Reinhard hat recht, und mit einem Word-Makro ließe sich das Problem sicher einfacher lösen, als mit einem externen Programm (das wäre aber auch nicht so kompliziert).

Hier ist ein Makro-Beispiel, allerdings ohne Schleife, also bloß für eine Zeile:

Sub ErsetzeZeichen()
 With Selection
 .HomeKey Unit:=wdLine
 If MsgBox("Zeile löschen, statt Zeichen zu ersetzen?", vbYesNo + vbDefaultButton2 + vbQuestion, "Frage") vbYes Then
 .MoveRight Unit:=wdCharacter, Count:=2 '3.Zeichen
 .MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
 .TypeText Text:=";"

 .MoveRight Unit:=wdCharacter, Count:=4 '8.Zeichen
 .MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
 .TypeText Text:=";"

 .MoveRight Unit:=wdCharacter, Count:=6 '15.Zeichen
 .MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
 .TypeText Text:=";"
 Else
 .EndKey Unit:=wdLine, Extend:=wdExtend
 .Delete
 End If 'MsgBox
 .MoveDown
 End With 'Selection
End Sub 'ErsetzeZeichen

Testzeilen könnten diese hier sein:

12345678901234567890 a
12345678901234567890 bb
12345678901234567890 ccc
12345678901234567890 dddd
12345678901234567890 eeeee

Kristian