[Word2003] chr(13) per Makro ersetzen

[Lasersword]

Hallo CB-Forum,

habe mal wieder ein Problem mit VBA (was sonst )

Also ich habe ein Word-Dokument, indem die Steuerzeichen
Chr(13) als Rechtecke auftauchen.

Diese möchte ich gerne per Makro durch Chr(10) ersetzen.

Allerdings fehlt mir hierzu der passende Befehl.

ActiveDocument.FormFields("blabla").Select
     With Selection
          .Text = Chr(13)
          .Replacement.Text = Chr(10)
     End With

funktioniert leider nicht.

Vielen Dank im Voraus.

Gruß,

Lasersword

 

[mikepayne]

Probiers mal mit der Word internen Funktion "suchen nach und ersetzen durch".

 

[Lasersword]

Danke,
hab ich auch schon versucht. Aber funktioniert leider nicht.

Ergänzung (6. Dezember 2010)

So, Problem gelöst.

Word hat mir Chr(13) angezeigt, allerdings handelte es sich
in Wirklichkeit um Chr(10)

Für alle die, die es interessiert, hier der Code:

Dim istAlt As String
Dim istNeu As String
Dim WertNeu As String
Dim WertX As String

istNeu = Chr(13)
istAlt = Chr(10)


WertNeu = ActiveDocument.FormFields("blabla").Result

WertX = Replace(WertNeu, istAlt, istNeu)

ActiveDocument.FormFields("blabla").Result = WertX