Microsoft Word har ett kraftfullt skriptspråk som heter Visual Basic , som du kan använda för att automatisera alla uppgifter i Word . Du kan skapa Visual Basic -skript , så kallade makron , genom att spela in dem , eller genom att skriva in dem manuellt i Visual Basic IDE ( integrerad utvecklingsmiljö ) av Word.One av de vanligaste uppgifterna som Word-användare behöver göra är att hitta och ersätta text . Medan Word befintliga funktioner för sök och ersätt är lätt att använda , kan Visual Basic gör det ännu enklare . Gå in och kör följande makro för att lära sig att hitta och ersätta med Visual Basic . Skapa Program
Du skapar ett kort program genom att skriva in det direkt i Visual Basic IDE . Men du måste först ett prov dokument för att testa programmet med . Inne Word , öppna upp ett nytt dokument och spara det med namnet " vbReplace.doc . " Kopiera en hel del text från ett annat dokument och klistra in den i vbReplace.doc .
Tryck Alt- F11 för att komma in i Visual Basic IDE och utvidga projektet vbReplace delträdstrukturen i Project rutan . Expandera Microsoft Word Objects mappen och dubbelklicka på ThisDocument ikonen . Visual Basic placerar markören i koden fönstret . Skriv följande kod i det fönstret .
Public Sub mac ( ) Dim myRange Som Range
" göra det med nuvarande paragraphSet myRange = Selection.Paragraphs ( 1 ) . Räckvidd
med myRange.FindClearFormatting.Font.Bold = False.Format = True.Replacement.ClearFormatting.Replacement.Font.Bold = True.Execute Forward : = Sant , Ersätt : = wdReplaceAll , _FindText : = " det " , ReplaceWith : = " den " , MatchWholeWord : = TrueEnd WithEnd Sub
Kör programmet
nu att programmet är gjort , är det dags att testa det . Återgå till Word-dokumentet genom att trycka på alt - F11 och placera markören i ett typiskt stycke , speciellt en som har massor av förekomster av ordet " det ". Kör makrot genom att trycka Alt -F8 för att komma till listan över makron , välja " mac " i listan och trycka på Kör . Om det fanns några un - fetstilta instanser av i det stycke där du placerade markören , är de nu alla fetstil .
Ändra programmet
ha ett makro för att göra en enda typ av sök och ersätt har viss användning , men att lätt kunna anpassa makro för att täcka olika typer av ersätta verksamhet är en verklig produktivitet booster . Mata in Visual Basic IDE ( alt - F11 ) och navigera tillbaka till den kod du angett , genom att använda Project rutan som beskrivits tidigare .
Ändra MAC sub så att det blir en del av de " De" ord du fetstil i kursiv " la " s . Den här gången ska du begränsa ersättningsoperationen att arbeta just på en mening . Här är de enda linjer som du behöver ändra : . . .
Set myRange = Selection.Paragraphs ( 1 ) Räckvidd blir Ställ myRange = Selection.Sentences ( 1 ) Font.Bold = False blir Font.Bold = true . Replacement.Font.Bold = Sant blir Replacement.Font.italic = True.ReplaceWith : . = " det " blir ReplaceWith : = " la " Addera Kör det reviderade programmet
nu ska du testa programmet på samma sätt som du testat den ursprungliga versionen . Återgå till Word-dokumentet och placera markören inuti en mening med några djärva fall av " The . " Kör din ändrade makrot med hjälp av stegen du använde för att köra den ursprungliga versionen . Titta på djärva " det " s förvandlas till " la " s . Lägg också märke till att den aktuella meningen påverkades snarare än hela stycket .
