Einzelnen Beitrag anzeigen

scouty

Registriert seit: 27. Nov 2003
Ort: Dresden
47 Beiträge
 
#1

VB-Makro für Selektion in Word nach Format

  Alt 9. Jan 2004, 18:40
Also, ich brauche ein Makro, mit dem ich in einem Worddokument nur Textteile einer bestimmten Farbe makieren kann und dann ändern.

Ich bin in der VisualBasic-Syntax nicht so bewandert, darum habe ich mir zunächst ein Makro mit dem Recorder zusammen gekaspert, welches ich mir dann entsprechend modifiziert habe. Dieses läuft auch ganz gut, in einem einfachen Dokument (Textdokument eine Seite nur Text). Will ich jedoch größere Dokumente mit Grafiken und anderen Objekten modifizieren, dann hängt sich der Rechner auf. Kann man an also dieses Makro soweit verbessern, dass es auch bei umfangreicheren Dokumenten funktioniert. Das z.b. anstelle von „Select.WholeStory“ nur der Text im Dokument markiert wird und die Objekte ignoriert werden.

Hier meine kleine Routine:

Code:
   Dim i
    i = 0 

   Selection.WholeStory
   
   While i < Selection.Characters.Count
      i = i + 1 
      If Selection.Characters.Item(i).Font.Color = wdColorBlue Then _ Selection.Characters.Item(i).Font.Name = "Graphit Light"
    Wend
Schon mal vielen Dank im Voraus

PS.: Wenn einer eine Idee hat, wie man in Word das gleiche auch ohne Makro erreichen kann, wäre mir auch sehr geholfen.

[edit=sakura] [code]-Tags gesetzt. Mfg, sakura[/edit]
  Mit Zitat antworten Zitat