Sådan ændrer du skriftstørrelsen på kommentarballonen Word dokumentere?

Som vist nedenfor skærmbillede, hvis du vil forstørre skriftstørrelsen på kommentarballonen Word dokument, hvad kan du gøre? Denne artikel viser dig to metoder til at løse dette problem.

Skift skriftstørrelsen på kommentarballonen med indbygget funktion Word

Skift skriftstørrelse på kommentarballonen med VBA-kode

Skift skriftstørrelsen på kommentarballonen med indbygget funktion Word

Du kan direkte ændre skriftstørrelsen på ballontekst i ruden Alle typografier i Word. Gør som følger.

1. Tryk på Ctrl + andre + Flytte + S nøgler til at åbne Styles rude.

2. i Styles rude, klik Indstillinger. Se skærmbillede:

3. I åbningen Indstillinger for stilrude vindue, vælg Alle stilarter fra Vælg stilarter, der skal vises rulleliste.

4. Klik derefter på OK at vende tilbage til Styles rude, rul venligst ned for at finde Ballontekst linje, skal du klikke på knappen for at udvide rullelisten, og klik derefter på Ændre. Se skærmbillede:

5. i Rediger stil vindue skal du vælge en skriftstørrelse, som du har brug for i Formatering sektion som vist nedenstående skærmbillede, og klik derefter på OK .

6. Luk Styles rude.

Derefter ændres skriftstørrelsen på alle kommentarballoner til den angivne.

Bemærk: Indstillingen gælder for alle kommentarer i fremtiden.

Skift skriftstørrelse på kommentarballonen med VBA-kode

Dette afsnit introducerer en VBA-kode, der hjælper dig med nemt at ændre skriftstørrelsen på kommentarballonen Word dokument.

1. I dokumentet ændres skriftstørrelsen på kommentarballonen, tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik på i vinduet indsatte > Moduler. Kopier derefter under VBA-koden i modulvinduet.

VBA-kode: ændre skriftstørrelsen på kommentarballonen Word

Sub SetCommentTextStyle()
'Updated by ExtendOffice 20181112
    Dim objComment As Comment
    Dim objDoc As Document
    Dim strFontName As String
    Dim strFontSize As String 
    Set objDoc = ActiveDocument
    strFontName = InputBox("Enter text font name here: ", "Font name")
    strFontSize = InputBox("Enter font size here: ", "Font size") 
    With objDoc
      For Each objComment In .Comments
        objComment.Range.Font.Name = strFontName
        objComment.Range.Style = ActiveDocument.Styles("Balloon Text Char")
      Next objComment
    End With
    ActiveDocument.Styles("Balloon Text").Font.Size = Val(strFontSize)
End Sub

3. Tryk på F5 nøgle for at køre koden.

4. I den første Kutools for Word i dialogboksen, skal du indtaste en ny skrifttype til din kommentar og klikke OK.

5. I det andet Kutools for Word i dialogboksen, skriv skriftstørrelsen ind efter behov, og klik på OK.

Derefter ændres skriftstørrelsen på alle kommentarballoner til den angivne i det aktuelle dokument.

Anbefales Word Produktivitetsværktøjer

shot kutools word kutools plus fane 1180x120

Kutools For Word - Mere end 100 avancerede funktioner til Word, Spar din 50 % tid

Komplicerede og gentagne operationer kan udføres engangsbehandling på få sekunder.
Indsæt flere billeder på tværs af mapper i Word dokument med det samme.
Flet og kombiner flere Word filer på tværs af mapper i én med din ønskede rækkefølge.
Opdel det aktuelle dokument i separate dokumenter efter overskrift, sektionsskift eller andre kriterier.
Konverter filer mellem Doc og Docx, Docx og PDF, samling af værktøjer til almindelige konverteringer og markering osv. ...

Læs mere Hent nu Køb