Evästeet auttavat meitä tarjoamaan palveluitamme. Käyttämällä palveluitamme, hyväksyt evästeiden käytön.
Vihje: Muut kielet ovat Google-käännettyjä. Voit vierailla English tämän linkin versio.
Kirjaudu
x
or
x
x
Rekis.
x

or

Kuinka vaihtaa fontin ja fontin koko Word-asiakirjan kaikissa tekstiruutuissa?

Tässä artikkelissa käsitellään fontin ja fontin koon muuttamista nykyisissä asiakirjoissa tai asiakirjoissa määritetyissä kansioissa. Yritä artikkelissa VBA-menetelmää.

Muuta kirjasinta ja kirjasinkokoa nykyisessä asiakirjassa olevissa tekstiruutuissa

Muuta fontin ja kirjasinkokoa kaikkien kansiossa olevien asiakirjojen tekstilaatikoissa


Muuta kirjasinta ja kirjasinkokoa nykyisessä asiakirjassa olevissa tekstiruutuissa

Tekstiruutuissa muutat fontin ja kirjasinkokoa 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 > Moduulit, ja kopioi sitten seuraava koodi Moduuli-ikkunaan.

VBA-koodi: Muuta fontin ja fontin kokoa kaikissa nykyisessä asiakirjassa olevissa tekstiruutuissa

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 määritetty fontti ja fontin koko minun tapauksessani. Voit muuttaa niitä omien tarpeiden mukaan.

3. paina F5 avain koodin suorittamiseen. Sitten kaikki tekstin fonttikoko ja kirjasinkoko ovat tekstiruutuissa määritetylle fontille ja kirjasinkokoon. Katso kuvakaappaus:


Muuta fontin ja fontin kokoa kaikkien kansiossa olevien asiakirjojen kaikissa tekstiruutuissa

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

1. Kerää kaikki kohde-asiakirjat, jotka sisältävät tekstiruutuja, jolloin fontin ja fontin koko muuttuu samassa kansiossa.

2. Avaa Word-dokumentti painamalla muut + F11 avaimet avaamaan Microsoft Visual Basic for Applications ikkunassa.

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

VBA-koodi: Muuta fontin 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. Avattu selailla -ikkunasta, valitse kansio (sisältää asiakirjoja, jotka muokkaat fonttia ja fonttikokoa tekstiruutuissa) ja napsauta OK painiketta.

Sitten kaikki tekstiruutujen fontti ja fonttikoko asiakirjoista valituissa kansioissa muutetaan määritettyyn fonttikokoon ja kirjasinkokoon.



Kutools for Word

Yli 100-lisätoiminnot Word 2003, 2007, 2010, 2013, 2016 ja 2019

shot-kutools-700-225-kte

Lisää ominaisuuksia | Ilmainen lataus | Vain $ 39.00 satoja toimintoja varten

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.