Pääsisältö

Tutustu uuteen, ilmainen versio Kutools for Outlookista tänään!

Kuinka muuttaa fonttia ja fonttikokoa kaikissa Word-asiakirjan tekstilaatikoissa?

Kirjailija: Siluvia Viimeksi muokattu: 2024-08-12

Tämä artikkeli käsittelee nykyisen asiakirjan tai tietyn kansion asiakirjojen fontin ja kirjasinkoon muuttamisesta tekstilaatikoissa. Kokeile artikkelissa olevia VBA-menetelmiä.

Muuta fonttia ja fonttikokoa nykyisen asiakirjan tekstikentissä

Muuta fonttia ja fonttikokoa kaikkien kansion asiakirjojen tekstilaatikoissa

Muuta fonttia ja fonttikokoa nykyisen asiakirjan tekstikentissä

Tekstiruutujen fonttia ja fonttikokoa muutetaan nykyisessä asiakirjassa. Käytä alla olevaa VBA-koodia ongelman ratkaisemiseksi.

1. paina muut + F11 avaimet avaamaan Microsoft Visual Basic for Applications ikkunassa.

2. Vuonna Microsoft Visual Basic for Applications -ikkunassa liite > Moduulitja kopioi sitten seuraava koodi Moduuli-ikkunaan.

VBA-koodi: Muuta fonttia ja fonttikokoa kaikissa nykyisen asiakirjan tekstilaatikoissa

Sub FormatTextsInTextBoxes()
'Updated by ExtendOffice 20181128
    Dim I As Long
    Dim xShape As Shape
    Dim xDoc As Document
    Set xDoc = ActiveDocument
    On Error Resume Next
    For Each xShape In xDoc.Shapes
        xShape.Select
        If xShape.GroupItems Is Nothing Then
            With xShape.TextFrame.TextRange.Font
                .Name = "Arial"
                .Size = 20
            End With
            GoTo LblExit
        End If
        For I = 1 To xShape.GroupItems.Count
            With xShape.GroupItems(I).TextFrame.TextRange.Font
                .Name = "Arial"
                .Size = 20
            End With
        Next
LblExit:
    Next
End Sub

Huomautuksia: Koodissa "arial"Ja"20” on minun tapauksessani määritetty fontti ja fonttikoko. Voit muuttaa niitä omien tarpeidesi mukaan.

3. paina F5 avain koodin suorittamiseen. Sitten kaikkien tekstien fontti ja fonttikoko tekstikentissä muutetaan määritettyyn fonttiin ja fonttikokoon. Katso kuvakaappaus:

Fontti ja fonttikoko tekstikentissä muutetaan määritetyiksi

Muuta fonttia ja fonttikokoa kaikkien kansion asiakirjojen kaikissa tekstilaatikoissa

Jos haluat muuttaa tekstiruutujen fonttia ja kirjasinkokoa useissa Word-asiakirjoissa, sinun on käytettävä alla olevaa VBA-koodia.

1. Kerää kaikki kohdeasiakirjat, jotka sisältävät tekstiruutuja, muutat fontin ja fontin koon samassa kansiossa.

2. Paina avautuvassa Word-asiakirjassa -painiketta muut + F11 avaimet avaamaan Microsoft Visual Basic for Applications ikkunassa.

3. Vuonna Microsoft Visual Basic for Applications -ikkunassa liite > Moduulitja kopioi sitten seuraava koodi Moduuli-ikkunaan.

VBA-koodi: Muuta fonttia ja fonttikokoa useiden asiakirjojen tekstilaatikoissa

Sub FormatTextsInTextBoxesInMultiDoc()
'Updated by ExtendOffice 20181128
    Dim I As Long
    Dim xShape As Shape
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xFileStr As String
    On Error Resume Next
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show = -1 Then
        xFolder = xDlg.SelectedItems(1) + "\"
        xFileStr = Dir(xFolder & "*.doc", vbNormal)
        While xFileStr <> ""
            Documents.Open xFolder & xFileStr
            For Each xShape In ActiveDocument.Shapes
                xShape.Select
                If xShape.GroupItems Is Nothing Then
                    With xShape.TextFrame.TextRange.Font
                        .Name = "Arial"
                        .Size = 20
                    End With
                    GoTo LblExit
                End If
                For I = 1 To xShape.GroupItems.Count
                    With xShape.GroupItems(I).TextFrame.TextRange.Font
                        .Name = "Arial"
                        .Size = 20
                    End With
                Next
LblExit:
            Next
            ActiveDocument.Save
            ActiveDocument.Close
            xFileStr = Dir()
       Wend
    End If
End Sub

4. paina F5 avain koodin suorittamiseen. Avauksessa selailla -ikkunassa, valitse kansio (sisältää asiakirjoja, muutat fonttia ja fonttikokoa tekstikentissä) ja napsauta OK painiketta.

Selaa ikkunaa

Sitten kaikkien tekstiruutujen fontti ja valitun kansion asiakirjojen fonttikoko muutetaan määritettyyn fonttiin ja fonttikokoon.

Parhaat toimiston tuottavuustyökalut

Kutools for Word - Paranna sanakokemustasi Overilla 100 Merkittäviä ominaisuuksia!

🤖 Kutools AI -ominaisuudet: AI-avustaja / Reaaliaikainen avustaja / Super Polish (säilytettävä muoto) / Super Translate (säilytä muoto) / AI editointi / AI Proofread...

📘 Asiakirjan hallinta: Jaa sivut / Yhdistä asiakirjat / Vie valikoima eri muodoissa (PDF/TXT/DOC/HTML...) / Erämuunnos PDF-muotoon...

✏ Sisältö Editointi: Eräetsi ja korvaa useita tiedostoja / Muuta kaikkien kuvien kokoa / Transponoi taulukon rivit ja sarakkeet / Muunna taulukko tekstiksi...

🧹 Vaivaton puhdistus: Pyyhkäise pois Ylimääräiset tilat / Leikkaukset / Tekstilaatikot / Hyperlinkit / Jos haluat lisää irrotustyökaluja, siirry kohtaan poista ryhmä...

➕ Luovat lisäosat: Aseta Tuhat erottimet / Valintaruudut / Radiopainikkeet / QR koodi / Viivakoodi / Useita kuvia / Tutustu lisää osoitteessa liite ryhmä...

🔍 Tarkkuusvalinnat: Tarkka kohta Tietyt sivut / taulukot / Muodot / Otsikko Kappaleet / Paranna navigointia lisää valita piirteet...

⭐ Tähtien parannukset: Siirry mihin tahansa sijaintiin / Lisää toistuvaa tekstiä automaattisesti / Vaihda asiakirjaikkunoiden välillä / 11 Muuntaminen Työkalut...

Kutools- ja Kutools Plus -välilehdet Word Ribbonissa
???? Haluatko kokeilla näitä ominaisuuksia? Lataa Kutools for Word nyt! 🚀
 

Parhaat toimiston tuottavuustyökalut

Kutools for Word - Yli 100 Wordin työkalua

Ilmainen lataus Osta nyt Lue lisää Kutoolsista