Suchen und Ersetzen als (Ereignis-Speichern-)Makro?

22/03/2008 - 16:21 von Andreas Borutta | Report spam
Hallo,

die Ersetzungstabelle in "Extras > Autokorrektur" kann man nicht auf
ein ganzes Dokument anwenden.

Wie müsste ein möglichst schlankes (und damit übersichtlich im
Quelltext editierbares) Makro zum Ersetzen aussehen.

Mit meinem Versuch bin ich klàglich gescheitert:

| sub AnfuehrungszeichenErsetzen2
| rem -
| rem define variables
| dim document as object
| dim dispatcher as object
| rem -
| rem get access to the document
| document = ThisComponent.CurrentController.Frame
| dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
|
| rem -
| dim args1(1) as new com.sun.star.beans.PropertyValue
| args1(0).Name = "SearchItem.SearchString"
| args1(0).Value = "foo"
| args1(1).Name = "SearchItem.ReplaceString"
| args1(1).Value = "bar"
|
| dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args1())
|
| end sub

Sehr spannend fànde ich (zusàtzlich, nicht als Ersatz) auch ein
komplexes "Makro zum Nachbearbeiten". Ich stelle mir vor, dass
Redaktionen sowas in Betrieb haben.
Ihre sàmtlichen typografischen Konventionen sind dann in so einem
Makro - soweit es eben geht - abgebildet.


Weiß jemand, ob ein solches Makro irgendwo frei verfügbar ist?

Gruß, Andreas
http://borumat.de/openoffice-writer-tipps
 

Lesen sie die antworten

#1 Josef Latt
22/03/2008 - 18:27 | Warnen spam
Hi,

Andreas Borutta schrieb:
Hallo,

die Ersetzungstabelle in "Extras > Autokorrektur" kann man nicht auf
ein ganzes Dokument anwenden.



Bezüglich der von Dir erwàhnten Anführungszeichen konnte ich diese durch
typografische in einem 6-seitigen Dokument per Autokorrektur ersetzen.

Josef

Ähnliche fragen