Microsoft Word verfügt über eine leistungsstarke Skriptsprache Visual Basic , die Sie verwenden, um jede Aufgabe in Word automatisieren können. Sie können Visual Basic Script namens Makros , indem Sie diese zu erstellen , oder durch manuelle Eingabe in der Visual Basic- IDE ( Integrated Development Environment) von Word.One der häufigsten Aufgaben, die Word-Benutzer tun müssen, ist zu finden und Ersetzen von Text . Während Word vorhandenen Funktionen für Suchen und Ersetzen ist einfach zu bedienen , kann Visual Basic machen es noch einfacher . Treten Sie ein und führen Sie den folgenden Makro zu lernen, wie Suchen und Ersetzen mit Visual Basic. Erstellen Sie das Programm
Sie ein kurzes Programm , indem Sie es direkt in der IDE von Visual Basic werden zu erstellen. Aber müssen Sie zunächst eine Probe Dokument , das Programm mit zu testen. Innerhalb Wort , eröffnen Sie ein neues Dokument und speichern Sie es unter dem Namen " vbReplace.doc . " Kopieren Sie viel Text aus einem anderen Dokument und fügen Sie ihn in vbReplace.doc .
Drücken Sie Alt -F11 , um den Visual Basic-Entwicklungsumgebung ein und erweitern das Projekt vbReplace Teilbaum im Projekt- Fenster . Erweitern Sie den Microsoft Word Objekte Ordner und doppelklicken Sie auf das Symbol ThisDocument . Visual Basic Stellen Sie den Cursor in der Code-Eingabe -Fenster. Geben Sie folgenden Code in diesem Fenster.
Public Sub mac () Dim myRange As Range
' es zu tun mit den aktuellen paragraphSet myRange = Selection.Paragraphs (1). Reichweite
< p > Mit myRange.FindClearFormatting.Font.Bold = False.Format = True.Replacement.ClearFormatting.Replacement.Font.Bold = True.Execute Forward: = True , Replace : = wdReplaceAll , _FindText : = " die " , ReplaceWith : = " der " , MatchWholeWord : = TrueEnd mitend Sub
das Programm
, dass das Programm fertig ist Ausführen, ist es Zeit, es zu testen. Zurück zum Word-Dokument durch Drücken von ALT -F11 und platzieren Sie den Cursor in einem typischen Absatz , vor allem eine, die viele Instanzen des Worts hat "die. " Führen Sie das Makro mit Alt- F8, um die Aufnahme von Makros zu erhalten, wählen Sie " mac " aus der Liste und drücken Sie Run . Wenn es irgendwelche un - bolded Instanzen der in dem Absatz , wo Sie den Cursor platziert , sie jetzt sind alle fett .
Ändern Sie das Programm
gestützt ein Makro , um eine einzige Art von Suchen und Ersetzen tun einen gewissen Nutzen , aber die Fähigkeit, leicht anzupassen, das Makro , um verschiedene Arten von Ersetzungsoperationen decken ist ein echter Produktivität Booster. Wiederholen Sie die Visual Basic -IDE (alt- F11) , und navigieren Sie zurück zum Code, den Sie eingegeben haben, mit dem Projekt- Fenster wie oben beschrieben.
Ändern der Mac sub so , dass es einige der "The" Worte verwandelt Sie fett in kursiv "la" s . Dieses Mal werden Sie beschränken die Ersetzen-Operation , sich nur auf einen Satz zu arbeiten. Hier sind nur die Zeilen, die Sie ändern müssen : . . .
Set myRange = Selection.Paragraphs (1 ) Bereich wird Set myRange = Selection.Sentences (1) Font.Bold = False wird Font.Bold = true . Replacement.Font.Bold = True wird Replacement.Font.italic = True.ReplaceWith : . = " die " wird ReplaceWith : = "la"
Führen Sie das überarbeitete Programm
Jetzt werden Sie das Programm in der gleichen Weise wie die ursprüngliche Version getestet testen. Zurück zum Word-Dokument und platzieren Sie den Cursor in einem Satz mit einigen kühnen Instanzen von " Das . " Führen Sie Ihre überarbeitete Makro über die Schritte, die Sie verwendet, um die ursprüngliche Version laufen . Sehen Sie sich das bold " das" s wiederum in "la" s . Beachten Sie auch, dass der aktuelle Satz anstatt die gesamte Absatz betroffen war.