Note: The other languages of the website are Google-translated. Back to English
English English

Kako spremeniti pisavo in velikost pisave v vseh besedilnih poljih v dokumentu Word?

Ta članek govori o spreminjanju pisave in velikosti pisave v besedilnih poljih trenutnega dokumenta ali dokumentov v določeni mapi. V članku preizkusite metodo VBA.

Spremenite pisavo in velikost pisave v besedilnih poljih trenutnega dokumenta

Spremenite pisavo in velikost pisave v besedilnih poljih vseh dokumentov v mapi


Spremenite pisavo in velikost pisave v besedilnih poljih trenutnega dokumenta

Za besedilna polja boste spremenili pisavo in velikost pisave v trenutnem dokumentu, za rešitev težave uporabite spodnjo kodo VBA.

1. Pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduliin nato v okno modula kopirajte naslednjo kodo.

Koda VBA: Spremenite pisavo in velikost pisave v vseh besedilnih poljih trenutnega dokumenta

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

Opombe: V kodi je »Arial"In"20"Je določena pisava in velikost pisave v mojem primeru. Lahko jih spremenite glede na svoje potrebe.

3. Pritisnite F5 tipko za zagon kode. Nato se besedilo in velikost pisave v besedilnih poljih spremenita v določeno pisavo in velikost pisave. Oglejte si posnetek zaslona:


Spremenite pisavo in velikost pisave v vseh besedilnih poljih vseh dokumentov v mapi

Za množično spreminjanje pisave in velikosti pisav v besedilnih poljih v več Wordovih dokumentih morate uporabiti spodnjo kodo VBA.

1. Zberite vse ciljne dokumente, ki vsebujejo besedilna polja, v isti mapi boste spremenili pisavo in velikost pisave.

2. V uvodnem Wordovem dokumentu pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

3. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduliin nato v okno modula kopirajte naslednjo kodo.

Koda VBA: spremenite pisavo in velikost pisave v besedilnih poljih več dokumentov

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. Pritisnite F5 tipko za zagon kode. V uvodu Brskanje izberite mapo (vsebuje dokumente, v besedilnih poljih boste spremenili pisavo in velikost pisave) in kliknite OK gumb.

Nato se pisava vseh besedilnih polj in velikost pisave dokumentov v izbrani mapi spremeni v določeno pisavo in velikost pisave.


Priporočena orodja za produktivnost besed

 

Kutools za Word - več kot 100 naprednih funkcij za Word prihranite 50% časa

  • Zapletene in ponavljajoče se operacije je mogoče enkrat obdelati v nekaj sekundah.
  • V Wordov dokument hkrati vstavite več slik v mape.
  • Združite in združite več datotek Word v mapah v eno z želenim vrstnim redom.
  • Trenutni dokument razdelite na ločene dokumente glede na naslov, prelom odseka ali druga merila.
  • Pretvarjanje datotek med dokumenti Doc in Docx, Docx in PDF, zbirka orodij za pogoste pretvorbe in izbiro itd. ...
Komentarji (1)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
To je super objava. Res zelo poučna in ustvarjalna vsebina. Ta koncept je dober način za izboljšanje znanja. Všeč mi je in mi zelo pomaga pri razvoju. Hvala za to kratko razlago in zelo lepe informacije. No, dobil sem dobro znanje.

Usposabljanje Java v Chennaiju
Usposabljanje Java v Coimbatoreju
Usposabljanje Java v Bangaloreju
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije