Skip to main content

Conas an cló agus an clómhéid a athrú i ngach bosca téacs i ndoiciméad Word?

Údar: Siluvia Athraithe Deiridh: 2018-12-12

Tá an t-alt seo ag caint ar an gcló agus an clómhéid a athrú i mboscaí téacs i ndoiciméad reatha nó i ndoiciméid i bhfillteán sonraithe. Bain triail as an modh VBA san alt le do thoil.

Athraigh an cló agus an clómhéid i mboscaí téacs sa doiciméad reatha

Athraigh cló agus méid an chló i mboscaí téacs gach doiciméad i bhfillteán


Athraigh an cló agus an clómhéid i mboscaí téacs sa doiciméad reatha

Maidir leis na boscaí téacs athróidh tú an cló agus an clómhéid sa doiciméad reatha, cuir an cód VBA thíos i bhfeidhm chun an fhadhb a réiteach.

1. Brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil, agus ansin cóipeáil an cód seo a leanas i bhfuinneog an Mhodúil.

Cód VBA: Athraigh an cló agus an clómhéid i ngach bosca téacs sa doiciméad reatha

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

nótaí: Sa chód, “Arial"Agus"20”Is é an cló agus an clómhéid sonraithe i mo chás. Is féidir leat iad a athrú bunaithe ar do chuid riachtanas féin.

3. Brúigh an F5 eochair chun an cód a rith. Ansin athraítear cló agus méid cló gach téacs sna boscaí téacs go dtí an cló agus an clómhéid sonraithe. Féach an pictiúr:


Athraigh cló agus méid an chló i ngach bosca téacs de gach doiciméad i bhfillteán

Chun cló agus méid cló na mboscaí téacs a athrú ar an mórchóir i iliomad doiciméad Word, ní mór duit an cód VBA thíos a chur i bhfeidhm.

1. Bailigh gach spriocdhoiciméad ina bhfuil boscaí téacs, athróidh tú an cló agus an clómhéid faoin bhfillteán céanna.

2. I ndoiciméad Word tosaigh, brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

3. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil, agus ansin cóipeáil an cód seo a leanas i bhfuinneog an Mhodúil.

Cód VBA: Athraigh cló agus méid an chló i mboscaí téacs de dhoiciméid iolracha

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. Brúigh an F5 eochair chun an cód a rith. San oscailt Brabhsáil fhuinneog, roghnaigh an fillteán (tá cáipéisí ann a athróidh tú cló agus méid cló sna boscaí téacs) agus cliceáil ar an OK cnaipe.

Ansin athraítear cló agus méid cló gach bosca téacs i bhfillteán roghnaithe go dtí an cló agus an clómhéid sonraithe.

Uirlisí Táirgiúlachta Oifige is Fearr

Kutools le haghaidh Word - Elevate Your Word Experience with Over 100 Gnéithe Suntasacha!

🤖 Cúntóir Kutools AI: athraigh do chuid scríbhinn le AI - Gin Ábhar  /  Athscríobh Téacs  /  Déan achoimre ar Dhoiciméid  /  Faigh Freagraí Tapa, ar fad laistigh de Word

📘 Máistreacht Doiciméad: Leathanaigh Scoilte  /  Cumaisc Doiciméid  /  Roghnú Easpórtála i bhFormáidí Éagsúla (PDF/TXT/DOC/HTML...)  /  Baisc a thiontú go PDF  /  Easpórtáil Leathanaigh mar Íomhánna  /  Priontáil Comhaid Il ag an am céanna...

Eagarthóireacht na nÁbhar: Faigh Baisc agus Ionadaigh thar Chomhaid Il  /  Athraigh Méid Gach Pictiúr  /  Trasnaigh Rónna Tábla agus Colúin  /  Tiontaigh Tábla go Téacs...

🧹 Effortless Glan: Sguab as Spásanna Breise  /  Sosanna Alt  /  Gach Ceanntásca  /  Boscaí Téacs  /  Hipearnasc  / Chun níos mó uirlisí a bhaint, ceann go dtí an Bain an grúpa...

Ionsáigh Cruthaitheach: cuir isteach Míle Deighilteoir  /  Boscaí Seiceála  /  Cnaipí Raidió  /  Cód QR  /  barcode  /  Tábla Líne Trasnánach  /  Fotheideal Cothromóid  /  Fotheideal Íomhá  /  Fotheideal Tábla  /  Pictiúir Il  / Faigh amach níos mó sa Cuir isteach grúpa...

🔍 Roghanna Beachtais: Pionta Leathanaigh Sonracha  /  Táblaí  /  cruthanna  /  Míreanna Ceannteideal  / Feabhsaigh an loingseoireacht le níos mó Roghnaigh gnéithe...

Feabhsuithe Réalta: Déan nascleanúint chuig Suíomh ar bith  /  Uath-Ionsáigh Téacs Athchleachtach  /  Scoránaigh Idir Windows Doiciméad  /  11 Uirlisí Tiontaithe...

???? Ar mhaith leat triail a bhaint as na gnéithe seo? Íoslódáil Kutools do Word inniu agus taithí a fháil ar an difríocht! 🚀
 
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