Suchen & Ersetzen mit mehr als 255 Zeichen

Moderator: ModerationP

Suchen & Ersetzen mit mehr als 255 Zeichen

Beitragvon Dieterlem » 17. Aug 2019, 08:50

Hallo,

da ich noch nicht so viel Erfahrung mit Word VBA habe brauche ich eure Hilfe. Ich habe mir eine Vorlagendatei erstellt in der ich "Platzhalter" ( z.B. [text1] ) verwende um sie später per VBA mit "Suchen und Ersetzen" zu ersetzen.
Das Problem ist, dass der zu einfügende Text länger als 255 Zeichen ist und Zeilenumbrüche enthält.

Code: Alles auswählen
    strAV = "Langer Text mit Zeilenumbrüchen"

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[av]"
        .Replacement.Text = strAV
        .Forward = True
        .Wrap = wdFindContinue
        .MatchCase = True
        .Execute Replace:=wdReplaceAll
    End With

Gibt es eine Möglichkeit diese Restriktion zu umgehen oder eine andere Möglichkeit die Platzhalter zu ersetzen?


Gruß
Dieterlem
langsam verstehe ich es besser...und doch bleiben noch soo viele Fragen.
Dieterlem
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 175
Registriert: 04. Mär 2007, 20:15
Wohnort: Pfalz

Re: Suchen & Ersetzen mit mehr als 255 Zeichen

Beitragvon halweg » 17. Aug 2019, 09:02

Nimm den Text in die Zwischenablage und ersetze durch diese (Code ^c).
Office 2002, 2010; Windows 7, 10
Benutzeravatar
halweg
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 542
Registriert: 21. Okt 2010, 08:04
Wohnort: Dresden

Re: Suchen & Ersetzen mit mehr als 255 Zeichen

Beitragvon Dieterlem » 17. Aug 2019, 09:24

halweg hat geschrieben:Nimm den Text in die Zwischenablage und ersetze durch diese (Code ^c).

Danke für deine Antwort. Wie kann ich das dann in VBA implementieren?
.Replacement.Text = ???


Gruß
Dieterlem
langsam verstehe ich es besser...und doch bleiben noch soo viele Fragen.
Dieterlem
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 175
Registriert: 04. Mär 2007, 20:15
Wohnort: Pfalz

Re: Suchen & Ersetzen mit mehr als 255 Zeichen

Beitragvon halweg » 17. Aug 2019, 11:20

Was sagt denn die Makro Aufzeichnung?
Office 2002, 2010; Windows 7, 10
Benutzeravatar
halweg
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 542
Registriert: 21. Okt 2010, 08:04
Wohnort: Dresden

Re: Suchen & Ersetzen mit mehr als 255 Zeichen

Beitragvon Dieterlem » 17. Aug 2019, 11:51

halweg hat geschrieben:Was sagt denn die Makro Aufzeichnung?

Das hatte ich schon versucht. Wenn ich in das Ersetzenfeld per Contr + V den Text eingebe wird dieser auf 255 Zeichen gekürzt. In dem aufgezeichneten Makro steht dann unter:
.Replacement.Text = "bla bla....." mit 255 Zeichen.

Gruß
Dieterlm
langsam verstehe ich es besser...und doch bleiben noch soo viele Fragen.
Dieterlem
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 175
Registriert: 04. Mär 2007, 20:15
Wohnort: Pfalz

Re: Suchen & Ersetzen mit mehr als 255 Zeichen

Beitragvon halweg » 17. Aug 2019, 15:33

Nein, du fügst den einzusetzenden Text vorher in die ZA und nutzt dann nur noch den Code ^c. Ist doch vorgegeben.
Office 2002, 2010; Windows 7, 10
Benutzeravatar
halweg
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 542
Registriert: 21. Okt 2010, 08:04
Wohnort: Dresden

Re: Suchen & Ersetzen mit mehr als 255 Zeichen

Beitragvon Dieterlem » 17. Aug 2019, 16:03

Funktioniert aber nicht:

With Selection.Find
.Text = "[av]"
.Replacement.Text = Code ^ C
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
End With

Gruß
Dieterlem
langsam verstehe ich es besser...und doch bleiben noch soo viele Fragen.
Dieterlem
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 175
Registriert: 04. Mär 2007, 20:15
Wohnort: Pfalz

Re: Suchen & Ersetzen mit mehr als 255 Zeichen

Beitragvon halweg » 17. Aug 2019, 18:22

Um das zu vermeiden, solltest du es aufzeichnen. Dann wird richtiger Code erzeugt.
Du müsstest bei Replacement.Text="^c" einsetzen.
Aber überlege dir, ob du das wirklich mit VBA machen willst. Oder arbeite dich in die Grundlagen ein.
Office 2002, 2010; Windows 7, 10
Benutzeravatar
halweg
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 542
Registriert: 21. Okt 2010, 08:04
Wohnort: Dresden


Zurück zu Word Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 4 Gäste