Conas an cló agus an clómhéid a athrú i ngach bosca téacs i ndoiciméad Word?
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 for Word - Elevate Your Word Experience with Over 100 Gnéithe Suntasacha!
Léim isteach sna gnéithe aibhsithe thíos nó cliceáil anseo chun cumhacht iomlán na Kutools for Word.
📘 Máistreacht Doiciméad: Leathanaigh Scoilte / Cumaisc Doiciméid / Roghnú Easpórtála i bhFormáidí Éagsúla (PDF/TXT/DOC/XLSX) / 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 / Le haghaidh tuilleadh uirlisí a bhaint, téigh chuig ár Bain Grúpa
➕ Ionsáigh Cruthaitheach: Ionsáigh 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ó inár Insert Group
🔍 Roghanna Beachtais: Pinpoint leathanaigh ar leith / táblaí / cruthanna / míreanna ceannteideal / Déan nascleanúint gan stró ag baint úsáide as ár Roghghrúpa
⭐ Feabhsuithe Réalta: Déan nascleanúint go tapa chuig aon láthair / cuir isteach téacs athchleachtach go huathoibríoch / scoránaigh gan uaim idir fuinneoga doiciméad / 11 Uirlisí Tiontaithe ...
Trasfhoirmigh do thascanna Word le Kutools. 👉 Íoslódáil le triail 30 lá Anois 🚀.
