Preskoči na glavno vsebino

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

Avtor: Siluvia Zadnja sprememba: 2018-12-12

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.

Najboljša pisarniška orodja za produktivnost

Kutools za Word - Izboljšajte svojo besedno izkušnjo z Over 100 Izjemne lastnosti!

🤖 Kutools AI pomočnik: Preoblikujte svoje pisanje z AI - Ustvarite vsebino  /  Prepiši besedilo  /  Povzemite dokumente  /  Pridobite hitre odgovore, vse v Wordu

📘 Obvladovanje dokumentov: Razdeljene strani  /  Spoji dokumente  /  Izvozi izbor v različnih formatih (PDF/TXT/DOC/HTML ...)  /  Paketna pretvorba v PDF  /  Izvozi strani kot slike  /  Natisnite več datotek hkrati...

Urejanje vsebine: Serijsko iskanje in zamenjava čez več datotek  /  Spremeni velikost vseh slik  /  Prenos vrstic in stolpcev tabele  /  Pretvori tabelo v besedilo...

🧹 Čiščenje brez napora: Pometite stran Dodatni prostori  /  Prelomi oddelkov  /  Vse glave  /  Besedilna polja  /  Hiperpovezave  / Za več orodij za odstranjevanje pojdite na Odstrani skupino...

Ustvarjalni vložki: Vstavi Tisoč ločila  /  Potrditvena polja  /  Radijske tipke  /  QR koda  /  Črtna koda  /  Tabela z diagonalno črto  /  Naslov enačbe  /  Opis slike  /  Naslov tabele  /  Več slik  / Odkrijte več v Vstavi skupino...

???? Natančne izbire: Natančna točka Določene strani  /  Mize  /  Oblike  /  Odstavki naslova  / Izboljšajte navigacijo z več Izberite funkcije...

Izboljšave zvezdic: Navigirajte do katere koli lokacije  /  Samodejno vstavi ponavljajoče se besedilo  /  Preklapljanje med okni dokumentov  /  11 Orodja za pretvorbo...

???? Želite preizkusiti te funkcije? Prenesite Kutools for Word zdaj! 🚀
 
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This is an awesome post.Really very informative and creative contents. These concept is a good way to enhance the knowledge.I like it and help me to development very well.Thank you for this brief explanation and very nice information.Well, got a good knowledge.

Java Training in Chennai
Java Training in Coimbatore
Java Training in Bangalore
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations