वर्ड वीबीए मैक्रोज़ - टेक्स्टबॉक्स: जोड़ें, हटाएं, लिखें

टेक्स्टबॉक्स जोड़ें

यह मैक्रो सक्रिय वर्ड दस्तावेज़ में टेक्स्टबॉक्स जोड़ देगा:

उप AddTextBox () ActiveDocument.Shapes.AddTextBox Orientation:=msoTextOrientationHorizontal, बाएँ:=1, Top:=1, Width:=300, ऊंचाई:=100 End Sub

टेक्स्टबॉक्स हटाएं

यह वीबीए मैक्रो सक्रिय दस्तावेज़ में पहला टेक्स्टबॉक्स हटा देगा:

Sub DeleteTextBox() 'activedoc में पहले टेक्स्ट बॉक्स को हटाता है' स्ट्रेटफॉरवर्ड नहीं क्योंकि टेक्स्ट बॉक्स की पहचान करना आसान नहीं है यदि ActiveDocument.Shapes.Count> 0 फिर ActiveDocument में प्रत्येक oShape के लिए। हमें दोनों की जांच करने की आवश्यकता है कि क्या oShape प्रकार का है msoShapeRectangle और इसके टेक्स्टफ्रेम में लिखने के लिए जगह है यदि oShape.TextFrame.HasText = True तो oShape। यदि समाप्त होता है तो समाप्त करें यदि अगला oShape समाप्त होता है तो अंत उप

टेक्स्टबॉक्स में लिखें

यह वर्ड मैक्रो सक्रिय दस्तावेज़ में पहले टेक्स्टबॉक्स को लिखने के लिए समान पद्धति का उपयोग करता है:

Sub WriteInTextBox() 'सक्रिय दस्तावेज़ में पहले टेक्स्ट बॉक्स में लिखता है यदि ActiveDocument.Shapes.Count> 0 फिर ActiveDocument में प्रत्येक oShape के लिए। टाइप करें msoShapeRectangle और इसके टेक्स्टफ्रेम में लिखने के लिए जगह है यदि oShape.TextFrame.HasText = True तो oShape.TextFrame.TextRange.Insert "https://www.automateexcel.com/vba-code-library" के बाद बाहर निकलें 'हम सिर्फ लिखना चाहते हैं' पहले टेक्स्टबॉक्स में अंत यदि समाप्त होता है तो अगला ओ आकार समाप्त होता है यदि अंत उप