Ausgabe 02/2012

BENUTZER ONLINE:
1146

Home > Praxis & Hilfe > Kummerkasten > Office > Artikel 35103

Mein Word-Makro in einer Schleife ausführen

Problem: Ich habe mit dem Makrorecorder von Word ein Makro aufgezeichnet, das in einem Text mit bestimmten Zeichen markierte Namen per Wildcard sucht (|*$), den Namen fett formatiert und die Markierungen (|-Zeichen und $-Zeichen) anschliessend löscht. Diesem Makro habe ich einen Button auf der Symbolleiste zugewiesen. Das Problem ist, dass ich für jeden markierten Namen (können mehrere 100 sein) den Button anklicken muss. Kann ich das Makro in eine Schleife einbinden, die so lange ausgeführt wird, bis das Ende des Dokuments erreicht ist?

von Monica Hubacher (08.12.2006, Update: 06.02.2007)

Lösung: Wenn Sie am Anfang der Prozedur ermitteln, wieviele zu bearbeitende Textstellen im gesamten Dokument vorhanden sind, können Sie eine Schleife solange laufen lassen, bis diese Anzahl abgearbeitet ist.

Folgenden Teil fügen Sie am Anfang in Ihr bereits bestehendes Makro Lexikon ein, um die Anzahl Textstellen zu ermitteln:

With Selection.Find
.Text = "|*$"
While .Execute
Anz = Anz + 1
Wend
End With

Danach ergänzen Sie den restlichen Teil um folgende einzelne Zeile am ANFANG:

Do Until Anz = 0

und dann am ENDE des Teils noch mit den folgenden zwei Zeilen:

Anz = Anz - 1
Loop

Komplett sieht das Ganze sieht dann etwa so aus:
-----------------------------------------------

Sub FormatFett()
With Selection.Find
.Text = "|*$"
While .Execute
Anz = Anz + 1
Wend
End With
Do Until Anz = 0

HIER IHR
BEREITS
BESTEHENDER
MAKRO-TEIL

Anz = Anz - 1
Loop
End Sub
-----------------------------------------------

Drucken

Weiterempfehlen

Kommentieren

Social Bookmarks

Favoriten Twitter Facebook WordPress Blogger

PCtipp als APP

Laden Sie die PCtipp-App kostenlos auf Ihr Smartphone und bleiben Sie auf dem Laufenden.

iOS-Version
Android-Version
zum Artikel

Wählen Sie:

Windows 7
Windows 2000
Windows XP
Windows Vista
Linux
Mac
Sicherheit
Internet
Office
Multimedia
Spiele
Hardware
Windows9x/NT
Mobile
Sonstiges

Problem: Seit einiger Zeit kann ich in Word 2007 meine Dateien nicht mehr einfach per Doppelklick aus dem Explorer öffnen. Folgende Meldung erscheint:...

Wochentag eines Datums in Access ermitteln

Problem: Gibt es auch in Access eine Funktion oder Berechnung, mit der ich aus einem Datumsfeld den Wochentag ermitteln kann, ohne das Datumsformat auf...

Excel: Blattschutz verhindert Aufklappen einer Gruppierung

Problem: Ich habe im Excel eine Tabelle erstellt, in der ich gewisse Zeilen mittels Gruppierung versteckt habe. Am linken Rand kann ich die Gruppierung...

Word: In verschiedene Schächte drucken

Problem: Ich habe ein vierseitiges Word-Dokument. Das will ich auf einen Drucker drucken, der verschiedene Fächer hat. Wie kann ich die vier verschiedenen...

Excel: Soll man die 1904-Datumswerte nutzen?

Problem: Wenn ich in Excel z.B. meine Trainingszeiten-Differenzen berechnen will, erscheinen bei negativen Zahlen nur Rautensymbole (#####). Wenn ich...

Mehr Praxis & Hilfe

Fachchinesisch

Mühe mit Computerbegriffen?

Im Fachchinesen finden Sie 743 Erklärungen.

AKTUELLE KUMMERKASTEN

hiberfil.sys und pagefile.sys

Auf meiner Festplatte sind zwei versteckte Dateien, c:\hiberfil.sys und c:\pagefile.sys, die zusammen ca. 2.5GB an Platz brauchen. Brauche ich diese Dateien,...

Windows 7/Vista: Ruhezustand nicht möglich

Problem: Wenn ich meinen Computer in den Ruhezustand versetzen will, geht es nicht richtig. Es wird nur für etwa zwei Sekunden der Bildschirm schwarz,...

Mehr Artikel

Leser empfehlen

Dropdown-Liste in Excel erstellen

Problem: Ich möchte in den einzelnen Feldern der Tabelle eine Dropdown-Liste zur Auswahl der Kriterien einfügen. Wie geht das?

ASCII-Tabelle für Sonderzeichen

Ich arbeite häufig mit der Sonderzeichentabelle in Word. Mir ist es aber zu umständlich, ständig die Tabelle zu öffnen, um das Zeichen in den Text einzufügen....

Frustfreier Download bei www.pctipp.ch

Problem: Wenn ich aus den PCtipp-Downloads ein File herunterladen will, erscheint die Aufforderung, ein PCtipp-Abo zu lösen. Ich kaufe den PCtipp aber...

Firefox: Neuer Tab mit Startseite?

Problem: Wenn ich im Firefox via Ctrl+T oder «Datei/Neuer Tab» einen neuen Tab öffne, wird in diesem immer eine leere Seite (about:blank) angezeigt. Ich...

Windows XP im abgesicherten Modus starten

Kann ich Windows XP auch im abgesicherten Modus starten?

Mehr Tipps & Tricks