קאָאָקיעס העלפֿן אונדז צושטעלן אונדזער באַדינונגס. דורך ניצן אונדזער באַדינונגס, איר שטימען צו אונדזער נוצן פון קיכלעך.
שפּיץ: אנדערע שפּראַכן זענען גוגל-איבערגעזעצט. איר קענען באַזוכן דעם English ווערסיע פון ​​דעם לינק.
צייכן אריין
x
or
x
x
רעגיסטרירן
x

or

ווי צו טוישן די שריפֿט און שריפֿט גרייס אין אַלע טעקסט באָקסעס אין וואָרט דאָקומענט?

דעם אַרטיקל איז גערעדט וועגן טשאַנגינג די שריפֿט און שריפֿט גרייס אין טעקסט באָקסעס אין קראַנט דאָקומענט אָדער דאקומענטן אין אַ ספּעסאַפייד טעקע. ביטע פּרובירן די וובאַ אופֿן אין דעם אַרטיקל.

טוישן די שריפֿט און שריפֿט גרייס אין טעקסט באָקסעס אין קראַנט דאָקומענט

טוישן די שריפֿט און שריפֿט גרייס אין טעקסט באָקסעס פון אַלע דאָקומענטן אין אַ טעקע


טוישן די שריפֿט און שריפֿט גרייס אין טעקסט באָקסעס אין קראַנט דאָקומענט

פֿאַר די טעקסט באָקסעס איר וועט טוישן די שריפֿט און שריפֿט גרייס אין קראַנט דאָקומענט, ביטע אַרייַן די ונטער וובאַ קאָד צו סאָלווע די פּראָבלעם.

1. דרוק די אַלט + פקסנומקס שליסלען צו עפענען די מיקראָסאָפט וויסואַל באַסיק פֿאַר אַפּפּליקאַטיאָנס פֿענצטער.

2. אין די מיקראָסאָפט וויסואַל באַסיק פֿאַר אַפּפּליקאַטיאָנס פֿענצטער, גיט אַרייַנלייגן > מאָדולעס, און דעמאָלט קאָפּיע די ווייַטערדיק קאָד אין די מאָדולע פֿענצטער.

וובאַ קאָד: טוישן די שריפֿט און שריפֿט גרייס אין אַלע טעקסט באָקסעס אין קראַנט דאָקומענט

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

טאָן: אין דעם קאָד, "אַריאַל"און"20"איז די ספּעסאַפייד שריפֿט און שריפֿט גרייס אין מיין פאַל. איר קענען טוישן זיי באזירט אויף דיין אייגן באדערפענישן.

3. דרוק די F5 שליסל צו לויפן די קאָד. און אַלע טעקסץ 'שריפֿט און שריפֿט גרייס אין די טעקסט באָקסעס זענען פארענדערט צו די ספּעסאַפייד שריפֿט און שריפֿט גרייס. זען סקרעענשאָט:


טוישן די שריפֿט און שריפֿט גרייס אין אַלע טעקסט באָקסעס פון אַלע דאָקומענטן אין אַ טעקע

פֿאַר טשאַנגינג טעקסט באָקסעס 'שריפֿט און שריפֿט גרייס אין פאַרנעם אין קייפל וואָרט דאָקומענטן, איר דאַרפֿן צו צולייגן די ונטער וובאַ קאָד.

1. ביטע קלייַבן אַלע ציל דאָקומענטן אַז אַנטהאַלטן טעקסט באָקסעס איר וועט טוישן די שריפֿט און שריפֿט גרייס אונטער דער זעלביקער טעקע.

2. אין אַ עפענען וואָרט דאָקומענט, דריקן די אַלט + פקסנומקס שליסלען צו עפענען די מיקראָסאָפט וויסואַל באַסיק פֿאַר אַפּפּליקאַטיאָנס פֿענצטער.

3. אין די מיקראָסאָפט וויסואַל באַסיק פֿאַר אַפּפּליקאַטיאָנס פֿענצטער, גיט אַרייַנלייגן > מאָדולעס, און דעמאָלט קאָפּיע די ווייַטערדיק קאָד אין די מאָדולע פֿענצטער.

וובאַ קאָד: טוישן די שריפֿט און שריפֿט גרייס אין טעקסט באָקסעס פון קייפל דאָקומענטן

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 קנעפּל.

און אַלע טעקסט באָקסעס 'שריפֿט און שריפֿט גרייס פון דאקומענטן אין אויסגעקליבן טעקע זענען פארענדערט צו די ספּעסאַפייד שריפֿט און שריפֿט גרייס.



קוטאָאָלס פֿאַר וואָרט

מער ווי קסנומקס אַוואַנסירטע פאַנגקשאַנז פֿאַר וואָרט קסנומקס, קסנומקס, קסנומקס, קסנומקס, קסנומקס און קסנומקס

shot-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.