Zeilenumbrüche entfernen

Dieses Thema im Forum "Ihre Meinung zu Artikeln auf pcwelt.de" wurde erstellt von advo-x, 16. September 2004.

Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. advo-x

    advo-x Byte

    Registriert seit:
    19. September 2003
    Beiträge:
    61
    Ja wo ist denn nun das das "abgebildete Makro" :confused:
    Aber keine Panik, es lautet wie folgt:

    Dim tosRec As ExtrasOptionenSpeichern
    GetCurValues tosRec
    fastSaveval = tosRec.Schnellspeicherung
    ExtrasOptionenSpeichern .Schnellspeicherung = 0

    On Error Goto bye

    SF = MsgBox("Absätze löschen?", 36)
    If SF = 0 Then Goto bye

    BeginnDokument
    BearbeitenErsetzen .Suchen = "^a^a", .Ersetzen = "@#$#", \
    .Richtung = 0, .AllesErsetzen, .Format = 0, .Textfluß = 0
    BearbeitenErsetzen .Suchen = "^a", .Ersetzen = " ", .AllesErsetzen, \
    .Format = 0, .Textfluß = 0
    BearbeitenErsetzen .Suchen = "@#$#", .Ersetzen = "^a^a", .AllesErsetzen, \
    .Format = 0, .Textfluß = 0
    bye:
    If fastSaveval = 1 Then ExtrasOptionenSpeichern .Schnellspeicherung = 1
    End Sub

    Alles klar ? ! :p
     
Status des Themas:
Es sind keine weiteren Antworten möglich.

Diese Seite empfehlen