Hvordan finne og erstatte Word-stiler i Visual Basic Excel

Hvordan finne og erstatte Word-stiler i Visual Basic Excel


Excel Visual Basic for Applications (VBA) er et programmeringsspråk som er innebygd i Excel-arbeidsbøker. Du kan bruke språket til å skreddersy dine regneark til å passe dine behov. For eksempel kan du foretrekker et bestemt ord stil i teksten. Den tradisjonelle måten å formatere tekst er å markere teksten du vil endre, og klikk gjennom "stiler" -funksjonen, velge den stilen du ønsker. Med Excel VBA, men du kan erstatte denne kjedelige oppgaven med et museklikk eller tastatur slag.

Bruksanvisning

1 Trykk "Alt" + "F11" på tastaturet fra Excel for å åpne Visual Basic-redigering.

2 Åpne VBA-kode modulen fra venstre navigasjonsruten eller opprette en ny modul ved å klikke på "Sett inn" og "Module" i toppmenyen.

3 Kopier og lim inn følgende kode i modulen vinduet:
med ActiveDocument.Content.Find

.ClearFormatting
.Font.Bold = True
With .Replacement
.ClearFormatting
.Font.Bold = False
End With
.Execute FindText:="", ReplaceWith:="", _
Format:=True, Replace:=wdReplaceAll

End With

Denne koden vil finne all tekst som er fet og erstatte den med tekst som ikke er fet.

4 Endre ".Font.Bold = True" linjen for å endre stilen du ønsker å finne, eller legge til nye linjer for mer komplekse formater, for eksempel fet, blå eller understreket tekst. I så fall vil du erstatte linjen med:
.Font.Bold = True
.Font.Color = Blå
Font.Underlined = True

5 Rediger ".Font.Bold = False" linjen for å endre stilen du vil erstatte funnet stiler med. For eksempel vil du kanskje endre alle funnet teksten til rød, så du ville erstatte linjen med:
.Font.Color = Rød

6 Trykk "F5" for å kjøre VBA erstatning kode.

Hint

  • Hvis du er usikker på hvordan du angir den stilen du ønsker å finne eller erstatte, kan du prøve å spille inn en makro, endre tekst til den stilen du ønsker å vite koden for, og deretter se på koden som er generert. Du kan bruke den samme koden for å kopiere inn i tekstutdraget ovenfor.