کوکیز ہماری خدمات فراہم کرنے میں ہماری مدد کرتی ہے. ہماری خدمات کو استعمال کرتے ہوئے، آپ کو کوکیز کے استعمال سے اتفاق کرتے ہیں.
ٹپ: دوسری زبانیں Google-Translated ہیں. آپ ملاحظہ کر سکتے ہیں English اس لنک کا ورژن.
لاگ ان کریں
x
or
x
x
رجسٹر
x

or

لفظ دستاویز میں تمام ٹیکسٹ بکس میں فونٹ اور فونٹ کا سائز کس طرح تبدیل کرنا ہے؟

یہ مضمون ایک مخصوص فولڈر میں موجودہ دستاویز یا دستاویزات میں متن باکس میں فونٹ اور فونٹ کا سائز تبدیل کرنے کے بارے میں بات کر رہا ہے. مضمون میں VBA طریقہ کار کی کوشش کریں.

موجودہ دستاویز میں متن باکس میں فونٹ اور فونٹ کا سائز تبدیل کریں

ایک فولڈر میں تمام دستاویزات کے متن بکس میں فونٹ اور فونٹ کا سائز تبدیل کریں


موجودہ دستاویز میں متن باکس میں فونٹ اور فونٹ کا سائز تبدیل کریں

متن باکس کے لئے آپ موجودہ دستاویز میں فونٹ اور فونٹ کا سائز تبدیل کریں گے، براہ کرم مسئلہ کو حل کرنے کے لئے درج ذیل VBA کوڈ پر عمل کریں.

1. دبائیں آلٹ + F11 کلیدوں کو کھولنے کے لئے مائیکروسافٹ بصری بنیادی کے لئے درخواستیں کھڑکی.

2. میں مائیکروسافٹ بصری بنیادی کے لئے درخواستیں ونڈو کی، مظاہرہ داخل > ماڈیول، اور پھر مندرجہ ذیل کوڈ کو ماڈیول ونڈو میں کاپی کریں.

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

نوٹکوڈ میں، "ایریل"اور"20"میرے کیس میں مخصوص فونٹ اور فونٹ کا سائز ہے. آپ ان کی اپنی ضروریات پر مبنی تبدیل کر سکتے ہیں.

3. دبائیں F5 کوڈ چلانے کی کلید. اس کے بعد ٹیکسٹ بکس میں تمام نصوص 'فونٹ اور فونٹ کا سائز مخصوص فونٹ اور فونٹ سائز میں بدل گیا ہے. اسکرین شاٹ دیکھیں:


ایک فولڈر میں تمام دستاویزات کے تمام متن باکس میں فونٹ اور فونٹ کا سائز تبدیل کریں

ایک سے زیادہ کلام کے دستاویزات میں متن باکس میں فونٹ اور فونٹ کا سائز بدلنے کے لۓ، آپ کو مندرجہ ذیل VBA کوڈ پر لاگو کرنا ہوگا.

1. براہ کرم تمام ہدف دستاویزات جمع کریں جن میں متن والے باکس شامل ہیں جنہیں آپ فولڈر اور فونٹ کا سائز اسی فولڈر میں تبدیل کرسکتے ہیں.

2. ایک افتتاحی ورڈ دستاویز میں، دبائیں آلٹ + F11 کلیدوں کو کھولنے کے لئے مائیکروسافٹ بصری بنیادی کے لئے درخواستیں کھڑکی.

3. میں مائیکروسافٹ بصری بنیادی کے لئے درخواستیں ونڈو کی، مظاہرہ داخل > ماڈیول، اور پھر مندرجہ ذیل کوڈ کو ماڈیول ونڈو میں کاپی کریں.

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 بٹن.

اس کے بعد منتخب کردہ فولڈر میں تمام ٹیکسٹ بکس 'فونٹ اور فونٹ سائز دستاویزات کو مخصوص فونٹ اور فونٹ سائز میں تبدیل کر دیا جاتا ہے.



کلام کے لئے کلو

لفظ 100، 2003، 2007، 2010، 2013 اور 2016 کے لئے 2019 اعلی درجے کی افعال سے زیادہ

شاٹ-کٹولس- 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.