Microsoft Word har en kraftig skriptspråk kalt Visual Basic , som du kan bruke til å automatisere en oppgave i Word. Du kan opprette Visual Basic-skript , kalt makroer ved å registrere dem , eller ved å skrive dem manuelt i Visual Basic IDE (integrert utviklingsmiljø ) av Word.One av de vanligste oppgavene som Word-brukere trenger å gjøre er å finne og erstatte tekst . Mens Word eksisterende funksjonalitet for søk og erstatt er enkel å bruke , kan Visual Basic gjør det enda enklere. Skriv inn og kjøre følgende makro til å lære å finne og erstatte med Visual Basic. Opprett Program
Du vil lage et kort program ved å skrive det direkte i Visual Basic IDE . Men du må først en prøve dokument for å teste programmet med . Inne Word , åpne opp et nytt dokument og lagre det med navnet " vbReplace.doc . " Kopier mye tekst fra et annet dokument og lime det inn i vbReplace.doc .
Trykk alt - F11 for å gå inn i Visual Basic IDE og utvide prosjektet vbReplace subtre i Prosjekt -ruten. Utvid Microsoft Word Objects -mappen og dobbeltklikk på ThisDocument ikonet. Visual Basic plasserer markøren i koden oppføring åpnes . Skriv inn følgende kode i dette vinduet .
Public Sub mac ( ) Dim myRange Som Range
"gjør det med dagens paragraphSet myRange = Selection.Paragraphs ( 1 ) . Range
< p > Med myRange.FindClearFormatting.Font.Bold = False.Format = True.Replacement.ClearFormatting.Replacement.Font.Bold = True.Execute Forward : = Sant, Erstatt: = wdReplaceAll , _FindText : = "the" , ReplaceWith : = " den " , MatchWholeWord : = TrueEnd WithEnd Sub
Kjør program
nå som programmet er ferdig , er det på tide å teste det . Tilbake til Word -dokument ved å trykke alt - F11 og plassere markøren på noen typiske ledd, særlig en som har mange forekomster av ordet "the ". Kjør makroen ved å trykke Alt -F8 for å komme til en oversikt over makroer , velge " mac " fra listen og trykke Run . Hvis det var noen un - uthevet forekomster av i avsnittet der du har plassert markøren , de nå er alle fet .
Endre programmet
ha en makro til å gjøre en enkelt type søk og erstatt har noen bruk, men å være i stand til enkelt å tilpasse makro for å dekke ulike typer erstatt operasjoner er en reell produktivitet booster. Inn igjen i Visual Basic IDE ( alt - F11 ) og navigere tilbake til koden du skrev inn , ved hjelp av prosjektet panelet som beskrevet tidligere .
Endre Mac sub slik at det viser noen av " Den" ord du uthevet i kursiv "la " s . Denne gangen vil du begrense erstatte operasjon for å jobbe bare på en setning . Her er de eneste linjene du trenger å endre : . . .
Set myRange = Selection.Paragraphs ( 1 ) Range blir Still myRange = Selection.Sentences ( 1 ) Font.Bold = False blir Font.Bold = sant . Replacement.Font.Bold = sant blir Replacement.Font.italic = True.ReplaceWith : . = "the " blir ReplaceWith : = "la "
Kjør Revidert Program
nå vil teste programmet på samme måte som du testet den originale versjonen . Tilbake til Word-dokumentet og plasser markøren inne i en setning med noen dristige forekomster av " The ". Kjør opp revidert makro ved hjelp av trinnene du brukte til å kjøre den opprinnelige versjonen . Se fet "the" s tur til "la " s . Legg også merke til at den nåværende dommen ble rammet snarere enn hele avsnittet .
