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

Sut i newid maint y ffont a'r ffont ym mhob blwch testun yn nogfen Word?

Mae'r erthygl hon yn sôn am newid maint y ffont a'r ffont mewn blychau testun mewn dogfen gyfredol neu ddogfennau mewn ffolder benodol. Rhowch gynnig ar y dull VBA yn yr erthygl.

Newid maint y ffont a'r ffont mewn blychau testun yn y ddogfen gyfredol

Newid maint ffont a ffont ym mlychau testun yr holl ddogfennau mewn ffolder


Newid maint y ffont a'r ffont mewn blychau testun yn y ddogfen gyfredol

Ar gyfer y blychau testun byddwch yn newid maint y ffont a'r ffont yn y ddogfen gyfredol, defnyddiwch y cod VBA isod i ddatrys y broblem.

1. Gwasgwch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau, ac yna copïwch y cod canlynol i mewn i ffenestr y Modiwl.

Cod VBA: Newid y ffont a maint y ffont ym mhob blwch testun yn y ddogfen gyfredol

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

Nodyn: Yn y cod, “Arial"A"20”Yw'r ffont a'r maint ffont penodedig yn fy achos i. Gallwch eu newid yn seiliedig ar eich anghenion eich hun.

3. Gwasgwch y F5 allwedd i redeg y cod. Yna mae maint ffont a maint ffont yr holl destunau yn y blychau testun yn cael eu newid i'r ffont a'r maint ffont penodedig. Gweler y screenshot:


Newid maint y ffont a'r ffont ym mhob blwch testun o'r holl ddogfennau mewn ffolder

Ar gyfer newid maint ffont a ffont blychau testun mewn swmp mewn sawl dogfen Word, mae angen i chi gymhwyso'r cod VBA isod.

1. Casglwch yr holl ddogfennau targed sy'n cynnwys blychau testun, byddwch chi'n newid y ffont a maint y ffont o dan yr un ffolder.

2. Mewn dogfen Word agoriadol, pwyswch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

3. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau, ac yna copïwch y cod canlynol i mewn i ffenestr y Modiwl.

Cod VBA: Newid maint y ffont a'r ffont mewn blychau testun o sawl dogfen

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. Gwasgwch y F5 allwedd i redeg y cod. Yn yr agoriad Pori ffenestr, dewiswch y ffolder (yn cynnwys dogfennau y byddwch chi'n newid maint ffont a ffont yn y blychau testun) a chliciwch ar y OK botwm.

Yna mae ffont a maint ffont yr holl flychau testun mewn ffolder a ddewiswyd yn cael eu newid i'r ffont a'r maint ffont penodedig.


Offer Cynhyrchedd Geiriau a Argymhellir

 

Kutools Ar gyfer Word - Mwy Na 100 Nodweddion Uwch Ar gyfer Word, Arbedwch Eich 50% Amser

  • Gellir gwneud gweithrediadau cymhleth ac ailadroddus brosesu un-amser mewn eiliadau.
  • Mewnosodwch ddelweddau lluosog ar draws ffolderau yn nogfen Word ar unwaith.
  • Uno a chyfuno ffeiliau Word lluosog ar draws ffolderau yn un gyda'r drefn a ddymunir gennych.
  • Rhannwch y ddogfen gyfredol yn ddogfennau ar wahân yn ôl pennawd, toriad adran neu feini prawf eraill.
  • Trosi ffeiliau rhwng Doc a Docx, Docx a PDF, casglu offer ar gyfer trawsnewid a dewis cyffredin, ac ati ...
sylwadau (1)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hwn yn bost anhygoel.Cynnwys addysgiadol a chreadigol iawn. Mae'r cysyniadau hyn yn ffordd dda o wella'r wybodaeth. Rwy'n ei hoffi ac yn fy helpu i ddatblygu'n dda iawn. Diolch am yr esboniad byr hwn a'r wybodaeth neis iawn.

Hyfforddiant Java yn Chennai
Hyfforddiant Java yn Coimbatore
Hyfforddiant Java yn Bangalore
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir