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

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áirgeachta Focal Molta

 

Kutools For Word - Níos mó ná 100 Ardghnéithe Do Word, Sábháil Do 50% Am

  • Is féidir oibríochtaí casta agus arís agus arís eile a dhéanamh próiseáil aon-uaire i soicindí.
  • Cuir isteach íomhánna iomadúla thar fhillteáin i ndoiciméad Word ag an am céanna.
  • Cumaisc agus comhcheangail comhaid Word iolracha thar fhillteáin i gceann amháin leis an ord atá uait.
  • Roinn an doiciméad reatha i ndoiciméid ar leithligh de réir ceannteidil, briseadh ailt nó critéir eile.
  • Tiontaigh comhaid idir Doc agus Docx, Docx agus PDF, bailiú uirlisí le haghaidh comhshó agus roghnú coitianta, agus mar sin de ...
Sórtáil tuairimí de réir
Comments (1)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Is post uamhnach é seo. Ábhar an-fhaisnéiseach agus cruthaitheach. Tá na coincheap ar bhealach maith chun cur leis an knowledge.I maith liom é agus cabhrú liom a fhorbairt go han-well.Thank tú as an míniú gairid agus information.Well an-deas, fuair eolas maith.

Oiliúint Java i Chennai
Oiliúint Java i Coimbatore
Oiliúint Java i Bangalore
Níl aon tráchtanna curtha suas anseo go fóill

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL