Veksling Font Oppdrag i en Macro

May 3  by Eliza

Jacie skrev at hun hadde laget en makro som satt tekst til Time New Roman. Hun ønsket å endre makro å være en veksle mellom Times New Roman og Arial Narrow Bold, og lurte på hvordan du gjør det.

Den enkleste måten å gjøre det på en makro er ganske enkelt å sjekke fonten som brukes i den valgte teksten, og deretter iverksette tiltak basert på hva du finner. For eksempel vil følgende makro bare ta affære hvis den markerte teksten er enten Times New Roman eller Arial Narrow:

Sub ChangeSelectedFont ()
Velg sak Selection.Font.Name
Case "Times New Roman"
Selection.Font.Name = "Arial Narrow"
Selection.Font.Bold = True
Case "Arial Narrow"
Selection.Font.Name = "Times New Roman"
Selection.Font.Bold = False
End Select
End Sub

Det er en annen, ikke-makro måte som kan gjøre noe fornuftig, men. Hvorfor ikke bruke stiler? Du kan definere stiler å omfatte eventuelle formateringsattributter ønsket. For eksempel kan du definere en stil som brukes Times New Roman, og en annen som brukes Arial Narrow Bold. Du kan bruke stiler på vilje, fra verktøylinjen, og du kan selv søke og erstatte ved hjelp av stiler.

WordTips er din kilde for kostnadseffektiv Microsoft Word trening. (Microsoft Word er den mest populære tekstbehandlingsprogrammet i verden.) Dette tipset (1300) gjelder for Microsoft Word 97, 2000, 2002, og 2003. Du kan finne en versjon av dette tipset for Båndet av Word (Word 2007 og senere) her: Veksling Font Oppdrag i en makro.