Cookies ни помагат да постигнем нашите услуги. С помощта на нашите услуги, Вие се съгласявате да използвате нашите бисквитки.
Съвет: Други езици са преведени от Google. Можете да посетите English версия на тази връзка.
Влизане
x
or
x
x
Регистрирам
x

or

Как да промените шрифта и размера на шрифта във всички текстови полета в документа на Word?

Тази статия говори за промяна на шрифта и размера на шрифта в текстовите полета в текущия документ или документи в определена папка. Моля, опитайте с метода VBA в статията.

Променете шрифта и размера на шрифта в текстовите полета в текущия документ

Променете шрифта и размера на шрифта в текстовите полета на всички документи в папка


Променете шрифта и размера на шрифта в текстовите полета в текущия документ

За текстовите полета ще промените шрифта и размера на шрифта в текущия документ. Моля, приложете кода по-долу, за да решите проблема.

1. Натисни Друг + F11 за да отворите Microsoft Visual Basic за приложения прозорец.

2. В Microsoft Visual Basic за приложения прозорец, кликнете Поставете > Модули, след което копирайте следния код в прозореца на модула.

Код на VBA: Променете шрифта и размера на шрифта във всички текстови полета в текущия документ

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

Забележка: В кода "Arial"А"20"Е определеният шрифт и размер на шрифта в моя случай. Можете да ги промените въз основа на вашите собствени нужди.

3. Натисни F5 ключ за изпълнение на кода. Тогава шрифтът и шрифтът на всички текстове в текстовите полета се променят до посочения шрифт и размер на шрифта. Вижте екранна снимка:


Променете шрифта и размера на шрифта във всички текстови полета на всички документи в папка

За да промените шрифта и размера на шрифтовете в множество документи в Word, трябва да приложите кода по-долу.

1. Моля, съберете всички целеви документи, съдържащи текстови полета, които ще променят шрифта и размера на шрифта под същата папка.

2. В отворите Word документ, натиснете Друг + F11 за да отворите Microsoft Visual Basic за приложения прозорец.

3. В Microsoft Visual Basic за приложения прозорец, кликнете Поставете > Модули, след което копирайте следния код в прозореца на модула.

Код на VBA: Променете шрифта и размера на шрифта в текстовите полета на няколко документа

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. Натисни F5 ключ за изпълнение на кода. В отварянето паса прозорец, изберете папката (съдържа документи, в които ще промените шрифта и размера на шрифта в текстовите полета) и щракнете върху OK бутон.

След това шрифтът и размерът на шрифта на всички текстови полета на документите в избраната папка се променят до посочения шрифт и размер на шрифта.



Kutools за Word

Повече от 100 разширени функции за Word 2003, 2007, 2010, 2013, 2016 и 2019

снимани kutools-700-225-kte

Още функции | Безплатно сваляне | Само $ 39.00 за стотици функции

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.