Word दस्तावेज़ में सभी टेक्स्ट बॉक्स में फ़ॉन्ट और फ़ॉन्ट आकार कैसे बदलें?
यह आलेख वर्तमान दस्तावेज़ या निर्दिष्ट फ़ोल्डर में दस्तावेज़ों में टेक्स्ट बॉक्स में फ़ॉन्ट और फ़ॉन्ट आकार बदलने के बारे में बात कर रहा है। कृपया लेख में VBA विधि आज़माएँ।
वर्तमान दस्तावेज़ में टेक्स्ट बॉक्स में फ़ॉन्ट और फ़ॉन्ट आकार बदलें
किसी फ़ोल्डर में सभी दस्तावेज़ों के टेक्स्ट बॉक्स में फ़ॉन्ट और फ़ॉन्ट आकार बदलें
वर्तमान दस्तावेज़ में टेक्स्ट बॉक्स में फ़ॉन्ट और फ़ॉन्ट आकार बदलें
टेक्स्ट बॉक्स के लिए आप वर्तमान दस्तावेज़ में फ़ॉन्ट और फ़ॉन्ट आकार बदल देंगे, कृपया समस्या को हल करने के लिए नीचे दिया गया VBA कोड लागू करें।
1। दबाएं ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
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 कोड चलाने की कुंजी. फिर टेक्स्ट बॉक्स में सभी टेक्स्ट के फ़ॉन्ट और फ़ॉन्ट आकार को निर्दिष्ट फ़ॉन्ट और फ़ॉन्ट आकार में बदल दिया जाता है। स्क्रीनशॉट देखें:
किसी फ़ोल्डर में सभी दस्तावेज़ों के सभी टेक्स्ट बॉक्स में फ़ॉन्ट और फ़ॉन्ट आकार बदलें
एकाधिक Word दस्तावेज़ों में टेक्स्ट बॉक्स के फ़ॉन्ट और फ़ॉन्ट आकार को थोक में बदलने के लिए, आपको नीचे दिए गए VBA कोड को लागू करना होगा।
1. कृपया उन सभी लक्षित दस्तावेज़ों को एकत्र करें जिनमें टेक्स्ट बॉक्स हैं, आप उसी फ़ोल्डर के अंतर्गत फ़ॉन्ट और फ़ॉन्ट आकार बदल देंगे।
2. किसी आरंभिक Word दस्तावेज़ में, दबाएँ ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
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 बटन.
फिर चयनित फ़ोल्डर में सभी टेक्स्ट बॉक्स के फ़ॉन्ट और दस्तावेज़ों के फ़ॉन्ट आकार को निर्दिष्ट फ़ॉन्ट और फ़ॉन्ट आकार में बदल दिया जाता है।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
वर्ड के लिए कुटूल - ओवर के साथ अपने शब्द अनुभव को उन्नत करें 100 उल्लेखनीय विशेषताएं!
🤖 कुटूल्स एआई असिस्टेंट: एआई के साथ अपना लेखन बदलें - सामग्री उत्पन्न करें / पाठ पुनः लिखें / दस्तावेज़ों को सारांशित करें / जानकारी के लिए पूछताछ करें दस्तावेज़ पर आधारित, सभी वर्ड के भीतर
📘 दस्तावेज़ महारत: पन्ने विभाजित करें / दस्तावेज़ मर्ज करें / विभिन्न प्रारूपों में निर्यात चयन (पीडीएफ/टीएक्सटी/डीओसी/एचटीएमएल...) / बैच को पीडीएफ में कनवर्ट करें / पेजों को छवियों के रूप में निर्यात करें / एक साथ अनेक फ़ाइलें प्रिंट करें...
✏ सामग्री संपादन: बैच ढूंढें और बदलें अनेक फ़ाइलों में / सभी चित्रों का आकार बदलें / तालिका पंक्तियों और स्तंभों को स्थानांतरित करें / तालिका को पाठ में बदलें...
🧹 सहज स्वच्छ: साफ़ कर दो अतिरिक्त स्थान / अनुभाग टूट जाता है / सभी शीर्षलेख / पाठ बक्से / हाइपरलिंक / अधिक हटाने वाले टूल के लिए, यहां जाएं समूह हटाएँ...
➕ रचनात्मक निवेशन: डालें हजार विभाजक / चेक बॉक्स / रेडियो बटन / क्यूआर कोड / बारकोड / विकर्ण रेखा तालिका / समीकरण कैप्शन / तस्वीर का शीर्षक / सारणी का शीर्षक / एकाधिक चित्र / में और अधिक खोजें समूह सम्मिलित करें...
🔍 परिशुद्धता चयन: सटीक विशिष्ट पृष्ठ / टेबल्स / आकृतियाँ / शीर्षक पैराग्राफ / के साथ नेविगेशन बढ़ाएँ अधिक सुविधाएँ चुनें...
⭐ स्टार संवर्द्धन: किसी भी स्थान पर नेविगेट करें / दोहरावदार पाठ स्वतः सम्मिलित करें / दस्तावेज़ विंडोज़ के बीच टॉगल करें / 11 रूपांतरण उपकरण...