Печыва дапамагчы нам даставіць нашы паслугі. Карыстаючыся нашымі паслугамі, Вы згаджаецеся на выкарыстанне намі печыва.
Рада: Іншыя мовы Google-Перакладзеныя. Вы можаце наведаць English версія гэтай спасылкі.
Увайсці
x
or
x
x
рэгістрацыя
x

or

Як змяніць шрыфт і памер шрыфта ва ўсіх тэкставых палях у дакуменце Word?

Гэты артыкул кажа аб змяненні памеру шрыфта і шрыфта ў тэкставых палях у бягучым дакуменце або дакументах у названай тэчцы. Калі ласка, паспрабуйце метад VBA ў артыкуле.

Змена шрыфта і памеру шрыфта ў тэкставых палях у бягучым дакуменце

Змена шрыфта і памеру шрыфта ў тэкставых палях ўсіх дакументаў у тэчцы


Змена шрыфта і памеру шрыфта ў тэкставых палях у бягучым дакуменце

Для тэкставых палёў вы змяніць шрыфт і памер шрыфта ў бягучым дакуменце, калі ласка, звяртайцеся ніжэй VBA кода, каб вырашыць гэтую праблему.

1. націсніце Alt + 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, неабходна прымяніць ніжэй VBA кода.

1. Калі ласка, зьбярэце ўсе мэтавыя дакументы, якія змяшчаюць тэкставыя палі вы будзеце змяняць шрыфт і памер шрыфта ў адпаведнасці з той жа самай тэчкай.

2. У адкрыцці дакумента Word, націсніце Alt + 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 для слова

Больш 100 Пашыраныя функцыі для Word, 2003, 2007, 2010, 2013, 2016 і 2019

драбавік kutools-700-225-КТЭ

дадатковыя магчымасці | спампаваць | Толькі $ 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.