Hur ändrar jag teckenstorleken på kommentarballongen i Word-dokument?
Som nedan visas skärmdump, om du vill förstora teckenstorleken på kommentarballongen i Word-dokument, vad kan du göra? Den här artikeln visar två metoder för att lösa detta problem.
Ändra teckenstorleken på kommentarballongen med inbyggnadsfunktionen i Word
Ändra teckenstorleken på kommentarballongen med VBA-kod
Ändra teckenstorleken på kommentarballongen med inbyggnadsfunktionen i Word
Du kan direkt ändra teckenstorleken på ballongtexten i rutan Alla stilar i Word. Gör så här.
1. tryck på ctrl + andra + shift + S nycklar för att öppna Stilar rutan.
2. I Stilar fönster, klicka Tillbehör. Se skärmdump:
3. I öppningen Alternativ för stilruta fönster, välj Alla stilar från Välj stilar att visa listrutan.
4. Klicka sedan OK att återvända till Stilar ruta, bläddra ner för att hitta Ballongtext raden, klicka på för att expandera rullgardinsmenyn och klicka sedan på Ändra. Se skärmdump:
5. I Ändra stil välj en teckenstorlek som du behöver i formatering avsnittet som visas nedan och klicka sedan på OK knapp.
6. Stäng Stilar rutan.
Sedan ändras teckensnittsstorleken för alla kommentarballonger till den angivna.
Anmärkningar: Inställningen kommer att gälla för alla kommentarer i framtiden.
Ändra teckenstorleken på kommentarballongen med VBA-kod
Detta avsnitt kommer att införa en VBA-kod som hjälper dig att enkelt ändra teckenstorleken på kommentarballongen i Word-dokument.
1. I dokumentet kommer du att ändra teckenstorleken på kommentarballongen, tryck på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. Klicka på i fönstret Insert > Modulerna. Kopiera sedan VBA-koden nedan till modulfönstret.
VBA-kod: ändra teckenstorleken på kommentarballongen i 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. tryck på F5 för att köra koden.
4. I den första Kutools för Word dialogrutan, ange ett nytt teckensnitt för din kommentar och klicka OK.
5. På sekunden Kutools för Word dialogrutan, skriv in teckenstorleken efter behov och klicka OK.
Sedan ändras teckensnittsstorleken för alla kommentarballonger till den angivna i det aktuella dokumentet.
Bästa kontorsproduktivitetsverktyg
Kutools för Word - Höj din ordupplevelse med Over 100 Anmärkningsvärda funktioner!
🤖 Kutools AI Assistant: Förvandla ditt skrivande med AI - Generera innehåll / Skriv om text / Sammanfatta dokument / Fråga för information baserat på dokument, allt i Word
📘 Dokumentbehärskning: Dela sidor / Sammanfoga dokument / Exportera urval i olika format (PDF/TXT/DOC/HTML...) / Batchkonvertera till PDF / Exportera sidor som bilder / Skriv ut flera filer samtidigt...
✏ Innehållsredigering: Batch Hitta och ersätt över flera filer / Ändra storlek på alla bilder / Transponera tabellrader och kolumner / Konvertera tabell till text...
🧹 Enkel rengöring: Svep bort Extra utrymmen / Avsnitt bryter / Alla rubriker / Textrutor / Hyperlänkar / För fler borttagningsverktyg, gå till vår Ta bort gruppen...
➕ Kreativa inlägg: Föra in Tusen avskiljare / Kryssrutor / radio Knappar / QR-kod / Streckkod / Diagonal linjebord / Bildtext för ekvation / Bild Bildtext / Tabelltextning / Flera bilder / Upptäck mer i Infoga grupp...
🔍 Precisionsval: Precisera specifika sidor / Tabellerna / former / rubrikerna / Förbättra navigering med mer Välj funktioner...
⭐ Stjärnförbättringar: Navigera snabbt till vilken plats som helst / infoga repetitiv text automatiskt / växla sömlöst mellan dokumentfönster / 11 Konverteringsverktyg...