suchen / ersetzten

Moderator: ModerationP

suchen / ersetzten

Beitragvon n3bu666 » 23. Jul 2019, 15:27

Hallo zusammen,

ich bräuchte ein VBA Scrtip, dass Text in kursiv erkennt, und vor das erste kursive Zeichen eine Klammer "auf" setzt und hinter das letzte kursive Zeichen eine Klammer "zu".

IST: Das ist ein Test. Das ist ein Test. Das ist ein Test. Das ist ein Test. Das ist ein Test. Das ist ein Test.
SOLL: Das ist ein Test. (Das ist ein Test. Das ist ein Test. Das ist ein Test.) Das ist ein Test. Das ist ein Test.

Ob die Klammer dann kursiv ist oder nicht, ist mir nicht so wichtig.

Ich muss ein Script überarbeiten und das würde mir sehr viel Arbeit ersparen. Ist das programmtechnisch lösbar?

LG, Thomas
n3bu666
 

Re: suchen / ersetzten

Beitragvon halweg » 23. Jul 2019, 16:14

Das sollte recht einfach gehen:
Suchen nach:<leer>
Format:Schriftart Kursiv
Ersetzen durch:(^&)
Format:<kein Eintrag>
So erreichst du, dass jeder kursive Text in Klammern gesetzt wir.
Das Ganze kannst du natürlich aufzeichnen und in deinen Makros einbauen.
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 / ersetzten

Beitragvon Gast » 24. Jul 2019, 08:22

Sehr gut - danke.

LG Thomas
Gast
 


Zurück zu Word Forum (provisorisch)

Wer ist online?

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