✅ वर्ड मैक्रो उदाहरण और वीबीए ट्यूटोरियल

विषय - सूची

वीबीए पीडीएफ (मुफ्त डाउनलोड)
वर्ड वीबीए उदाहरण "चीटशीट"
वर्ड वीबीए मैक्रो ट्यूटोरियल
सरल शब्द मैक्रो उदाहरण
वर्ड दस्तावेज़ वस्तु
दस्तावेज़
रेंज, चयन, पैराग्राफ
वर्ड मैक्रो उदाहरण

हमारे वर्ड वीबीए / मैक्रोज़ मेगा-गाइड में आपका स्वागत है!

इस पृष्ठ में शामिल हैं:

1. वर्ड वीबीए ट्यूटोरियल पीडीएफ (मुफ्त डाउनलोड)
2. वर्ड वीबीए "चीट शीट" जिसमें सबसे अधिक इस्तेमाल किए जाने वाले वर्ड वीबीए कोड स्निपेट्स की सूची है
3. पूर्ण वर्ड वीबीए / मैक्रो ट्यूटोरियल।
4. हमारे सभी वर्ड वीबीए मैक्रो ट्यूटोरियल की खोज योग्य सूची

एक्सेल के लिए हमारे इंटरएक्टिव वीबीए ट्यूटोरियल में भी आपकी रुचि हो सकती है। जबकि कुछ उदाहरण / अभ्यास एक्सेल वीबीए के लिए विशिष्ट हैं, अधिकांश सामग्री सभी वीबीए के लिए सामान्य है और आपको इफ स्टेटमेंट्स, लूप्स, मैसेजबॉक्स और अन्य जैसी अवधारणाओं को सीखना उपयोगी हो सकता है।

वीबीए पीडीएफ (मुफ्त डाउनलोड)

हमारा मुफ्त माइक्रोसॉफ्ट वर्ड वीबीए ट्यूटोरियल डाउनलोड करें! या अन्य कार्यालय कार्यक्रमों के लिए वीबीए ट्यूटोरियल!

डाउनलोड

वर्ड वीबीए उदाहरण "चीटशीट"

नीचे आपको माइक्रोसॉफ्ट वर्ड के साथ काम करने के लिए सरल वीबीए कोड उदाहरण मिलेंगे।

चुनें / यहां जाएं

विवरणवीबीए कोडबैकस्पेसचयन। टाइपबैकस्पेससंपूर्ण दस्तावेज़ का चयन करेंSelection.HomeKey Unit:=wdStory
चयन.विस्तारप्रतिलिपिचयन.प्रतिलिपिहटाएंचयन। हटाएं इकाई: = डब्ल्यूडी चरित्र, गणना: = 1बाद में डालेंचयन। "पाठ" के बाद सम्मिलित करेंलाइन की शुरुआतचयन.होमकी इकाई:=wdLineपंक्ति का अंतSelection.EndKey यूनिट:=wdLineपेस्ट करेंचयन.पेस्टसभी का चयन करेचयन। पूरी कहानीसंपूर्ण पंक्ति का चयन करेंSelection.EndKey Unit:=wdLine, Extend:=wdExtendअनुच्छेद ऊपर ले जाएँचयन.मूवअप यूनिट:=wdपैराग्राफ, गणना:=1दाएँ एक वर्ण ले जाएँचयन। मूव राइट यूनिट: = डब्ल्यूडी कैरेक्टर, गणना: = 1तालिका में दाएँ एक सेल ले जाएँचयन.मूवराइट यूनिट:=wdCellडॉक के प्रारंभ में जाएंSelection.HomeKey Unit:=wdStoryदस्तावेज़ के अंत में जाएंSelection.EndKey Unit:=wdStoryपेज 1 पर जाएंSelection.GoTo What:=wdGoToPage, जो:=wdGoToNext, Name:=”1″पृष्ठ के शीर्ष पर जाएंSelection.GoTo What:=wdGoToBookmark, Name:=”\Page”
Selection.MoveLeft Unit:=wdCharacter, Count:=1

ऊपर लौटें

बुकमार्क

विवरणवीबीए कोडजोड़ेंActiveDocument.Bookmarks के साथ
श्रेणी जोड़ें: = चयन। श्रेणी, नाम: = "नाम"
.DefaultSorting = wdSortByName
.दिखाएँ छुपा = झूठा
के साथ समाप्त करनागिनतीडिम एन के रूप में पूर्णांक
n = ActiveDocument.Bookmarks.CountहटाएंActiveDocument.Bookmarks(“BookmarkName”).Deleteमौजूद?अगर ActiveDocument.Bookmarks.Exists(“BookmarkName”) = True तब
'कुछ करो
अगर अंतके लिए जाओSelection.GoTo What:=wdGoToBookmark, Name:="BookmarkName"चुनते हैंActiveDocument.Bookmarks ("बुकमार्कनाम")। चुनेंटेक्स्ट बदलेंSelection.GoTo What:=wdGoToBookmark, Name:="BookmarkName"
चयन। हटाएं इकाई: = डब्ल्यूडी चरित्र, गणना: = 1
चयन। "नया पाठ" के बाद सम्मिलित करें
ActiveDocument.Bookmarks.Add Range:=Selection.Range, _
नाम: = "बुकमार्कनाम"

ऊपर लौटें

डाक्यूमेंट

विवरणवीबीए कोडसक्रियदस्तावेज़ ("उदाहरण। डॉक्टर")। सक्रिय करेंचर में जोड़ेंदस्तावेज़ के रूप में मंद दस्तावेज़
doc = Documents.Add . सेट करेंजोड़ेंदस्तावेज़।जोड़ेंजोड़ें (किसी अन्य दस्तावेज़ से)Documents.Add Template:="C:\Forms\FormDoc.doc", _
नया साँचा:=गलतबंद करेदस्तावेज़ ("उदाहरण। डॉक्टर")। बंद करेंबंद करें - परिवर्तन सहेजेंदस्तावेज़ ("Example.doc")। सहेजें परिवर्तन बंद करें: = wdSaveChangesबंद करें - सेव न करेंदस्तावेज़ ("Example.doc")। सहेजें परिवर्तन बंद करें: = wdDoNotSaveChangesबंद करें - सहेजने का संकेत देंदस्तावेज़ ("Example.doc")। SaveChanges बंद करें: = wdPromptToSaveChanges

ऊपर लौटें

कॉलम

विवरणवीबीए कोडके रूप रक्षित करेंDocuments(“Example.doc”).SaveAs (“C:\Example\Example.doc”)सहेजेंदस्तावेज़ ("उदाहरण। डॉक्टर")। सहेजेंरक्षा करनादस्तावेज़ ("उदाहरण। डॉक्टर")। पासवर्ड सुरक्षित रखें: = "पासवर्ड"असुरक्षितदस्तावेज़ ("Example.doc")। अनप्रोटेक्ट पासवर्ड: = "पासवर्ड"पृष्ठों की संख्याDim varNumberPages as Variant
varNumberPages = _
ActiveDocument.Content.Information (wdActiveEndAdjustedPageNumber)छापदस्तावेज़ ("उदाहरण। डॉक्टर")। प्रिंट

ऊपर लौटें

VBA कोड उदाहरण खोज कर थक गए हैं? ऑटोमैक्रो का प्रयास करें!

फ़ॉन्ट

विवरणवीबीए कोडआकारचयन। फ़ॉन्ट। आकार = 12बोल्डचयन। फ़ॉन्ट। बोल्ड = सत्यतिर्छाSelection.Font.Italic = TrueरेखांकनSelection.Font.Underline = wdUnderlineSingleसभी कैपिटलचयन। फ़ॉन्ट। ऑलकैप्स = ट्रूरंगSelection.Font.TextColor = vbRedनामSelection.Font.Name = "आबादी"सबस्क्रिप्टचयन.फ़ॉन्ट.सबस्क्रिप्ट = सत्यऊपर की ओर लिखा हुआचयन। फ़ॉन्ट। सुपरस्क्रिप्ट = सत्यहाइलाइट रंगचयन.रेंज.हाइलाइटकलरइंडेक्स = wdYellowअंदाजचयन। शैली = सक्रिय दस्तावेज़। शैलियाँ ("सामान्य")

ऊपर लौटें

डालने

विवरणवीबीए कोडऑटोटेक्स्ट डालेंचयन। टाइप टेक्स्ट टेक्स्ट: = "ए 3"
चयन। रेंज। ऑटोटेक्स्ट डालेंदिनांक कोड डालेंफ़ाइल डालेंSelection.InsertFile ("C:\Docs\Something.doc")पेज ब्रेक डालेंSelection.InsertBreak प्रकार:=wdPageBreakपैराग्राफ सिंबल डालेंचयन। टाइप टेक्स्ट टेक्स्ट: = Chr$(182)टैब डालेंचयन। टाइप टेक्स्ट टेक्स्ट:=vbTabटेक्स्ट डालेंचयन। टाइप टेक्स्ट टेक्स्ट: = "कोई भी टेक्स्ट"सम्मिलित प्रकार अनुच्छेदचयन। प्रकार पैराग्राफपैराग्राफ डालेंचयन।सम्मिलित करेंपैराग्राफ

ऊपर लौटें

छोरों

विवरणवीबीए कोडदस्तावेज़ के अंत तक करेंActiveDocument.Bookmarks ("\Sel") = ActiveDocument.Bookmarks ("\ EndOfDoc") तक करें
'कुछ करो
विषयडॉक्स में प्रत्येक दस्तावेज़ के लिएदस्तावेज़ के रूप में मंद दस्तावेज़
दस्तावेज़ों में प्रत्येक दस्तावेज़ के लिए
'कुछ करो
अगला दस्तावेज़पैराग्राफ के माध्यम से लूपपैराग्राफ के माध्यम से उप
डिम आई एज़ लॉन्ग, iParकाउंट अस लॉन्ग
iParCount = ActiveDocument.Pargraphs.CountFori = 1 से iParCount
ActiveDocument.Paragraphs(i).Alignment = wdAlignParagraphLeft
अगला मैं

ऊपर लौटें

अनुच्छेद

विवरणवीबीए कोडएक साथ रखेंचयन।पैराग्राफफॉर्मेट।एक साथ रखें = सहीके साथ रखेंअगलाचयन.पैराग्राफफॉर्मेट.KeepWithNext = Trueअंतरिक्ष के बादचयन.पैराग्राफफॉर्मेट.स्पेसआफ्टर = 12अंतरिक्ष पहलेचयन.पैराग्राफफॉर्मेट.स्पेसबिफोर = 0मध्य में संरेखित करेंसिलेक्शन.पैराग्राफफॉर्मेट.एलाइनमेंट = wdAlignपैराग्राफसेंटरसही संरेखितचयन.पैराग्राफफ़ॉर्मेट.संरेखण = wdAlignपैराग्राफराइटबाये को करीसिलेक्शन.पैराग्राफफॉर्मेट.एलाइनमेंट = wdAlignपैराग्राफ लेफ्टलेफ्ट इंडेंटसिलेक्शन.पैराग्राफफॉर्मेट.लेफ्टइंडेंट = इनचेसटॉपॉइंट्स(3.75)राइट इंडेंटसिलेक्शन.पैराग्राफफॉर्मेट।राइटइंडेंट = इनचेसटॉप्वाइंट्स(1)पंक्ति रिक्तिचयन के साथ।पैराग्राफफॉर्मेट
.LineSpaceingRule = wdLineSpaceExactly
.लाइनस्पेसिंग = 12
के साथ समाप्त करनासभी अनुच्छेदों के माध्यम से लूपपैराग्राफ के माध्यम से उप
डिम आई एज़ लॉन्ग, iParकाउंट अस लॉन्ग
iParCount = ActiveDocument.Pargraphs.CountFori = 1 से iParCount
ActiveDocument.Pargraphs(i).Alignment = wdAlignPargraphLeft
अगला मैं

ऊपर लौटें

वर्ड वीबीए मैक्रो ट्यूटोरियल

यह माइक्रोसॉफ्ट वर्ड के साथ वीबीए का उपयोग करने के लिए एक ट्यूटोरियल है। यह ट्यूटोरियल आपको सिखाएगा कि कैसे एक साधारण मैक्रो लिखना है और दस्तावेज़, रेंज, चयन और पैराग्राफ के साथ बातचीत करना है।

नोट: यदि आप मैक्रोज़ / वीबीए के लिए बिल्कुल नए हैं तो आपको यह लेख उपयोगी भी मिल सकता है: स्क्रैच से वीबीए मैक्रोज़ कैसे लिखें।

वीबीए वर्ड, एक्सेल, आउटलुक, पॉवरपॉइंट और एक्सेस सहित माइक्रोसॉफ्ट ऑफिस प्रोग्राम को स्वचालित करने के लिए उपयोग की जाने वाली प्रोग्रामिंग भाषा है।

मैक्रो VBA कोड के ब्लॉक हैं जो विशिष्ट कार्य करते हैं।

जब आप मैक्रो रिकॉर्ड करें, Word एक मैक्रो में VBA कोड लिखेगा, जिससे आप अपने कार्यों को दोहरा सकेंगे। आप यहां से सभी उपलब्ध मैक्रो की सूची देख सकते हैं देखें > मैक्रो.

मैक्रो रिकॉर्ड करने के बाद, आप मैक्रो सूची से मैक्रो को संपादित करने में सक्षम होंगे:

जब आप क्लिक करते हैं संपादित करें, आप खोलें वीबीए संपादक. वीबीए संपादक का उपयोग करके आप रिकॉर्ड किए गए मैक्रोज़ को संपादित कर सकते हैं या स्क्रैच से वर्ड मैक्रो लिख सकते हैं। VBA संपादक तक पहुँचने के लिए शॉर्टकट का उपयोग करें एएलटी + एफ11 या क्लिक करें मूल दृश्य से डेवलपर रिबन.

सरल शब्द मैक्रो उदाहरण

यह वर्ड वीबीए मैक्रो का एक सरल उदाहरण है। यह निम्नलिखित कार्य करता है:

एक वर्ड दस्तावेज़ खोलता है
दस्तावेज़ को लिखता है
Word दस्तावेज़ को बंद और सहेजता है।

123456789101112131415

उप वर्डमैक्रो उदाहरण ()'डॉक्टर खोलें और वैरिएबल को असाइन करें'दस्तावेज़ के रूप में मंद oDocसेट oDoc = Documents.Open("c:\Users\someone\NewDocument.docx")'डॉक्टर को लिखें'Selection.TypeText "www.automateexcel.com"चयन। प्रकार पैराग्राफ'सहेजें और बंद करें दस्तावेज़'oDoc.SaveoDoc.बंद करेंअंत उप

वर्ड मैक्रो मूल बातें

सभी वीबीए कोड को इस तरह की प्रक्रियाओं के भीतर संग्रहित किया जाना चाहिए। VBA में एक प्रक्रिया बनाने के लिए "Sub WordMacroExample" टाइप करें (जहाँ "WordMacroExample" आपका वांछित मैक्रो नाम है) और दबाएँ प्रवेश करना. VBA स्वचालित रूप से कोष्ठक और अंत उप जोड़ देगा।

वर्ड दस्तावेज़ वस्तु

वीबीए में माइक्रोसॉफ्ट वर्ड के साथ बातचीत करते समय, आप अक्सर वर्ड "ऑब्जेक्ट्स" का संदर्भ देंगे। सबसे आम वस्तुएं हैं:

आवेदन वस्तु - माइक्रोसॉफ्ट वर्ड ही

दस्तावेज़ वस्तु - एक शब्द दस्तावेज़

रेंज ऑब्जेक्ट - वर्ड डॉक्यूमेंट का एक हिस्सा

चयन वस्तु - एक चयनित श्रेणी या कर्सर स्थान।

आवेदन

एप्लिकेशन "टॉप-लेवल" ऑब्जेक्ट है। Word में अन्य सभी वस्तुओं तक इसके माध्यम से पहुँचा जा सकता है।

अन्य वर्ड ऑब्जेक्ट्स तक पहुँचने के अलावा, "एप्लिकेशन-लेवल" सेटिंग्स हैं जिन्हें लागू किया जा सकता है:

1	Application.Options.AllowDragAndDrop = True

यह एप्लिकेशन में "विंडोज़ (1)" के "चयन" तक पहुंचने का एक उदाहरण है:

1	एप्लिकेशन। विंडोज (1)। चयन। वर्ण। गणना:

हालांकि, सबसे सामान्य वर्ड ऑब्जेक्ट्स को पूर्ण पदानुक्रम टाइप किए बिना सीधे एक्सेस किया जा सकता है। तो इसके बजाय, आप (और चाहिए) बस टाइप कर सकते हैं:

1	चयन। वर्ण। गणना:

दस्तावेज़

सक्रिय दस्तावेज़

अक्सर, आपके पास Word में दो या दो से अधिक दस्तावेज़ खुले होंगे और आपको यह निर्दिष्ट करने की आवश्यकता होगी कि किस विशिष्ट Word दस्तावेज़ के साथ सहभागिता करनी है। यह निर्दिष्ट करने का एक तरीका है कि किस दस्तावेज़ का उपयोग करना है सक्रिय दस्तावेज़. उदाहरण के लिए:

1	ActiveDocument.PrintOut

… ActiveDocument प्रिंट करेगा। ActiveDocument Word में दस्तावेज़ है जिसमें "फोकस है"

ActiveDocument स्विच करने के लिए, सक्रिय करें आदेश का उपयोग करें:

1	दस्तावेज़ ("उदाहरण। docx")। सक्रिय करें

इस दस्तावेज़

सक्रिय दस्तावेज़ को संदर्भित करने के लिए ActiveDocument का उपयोग करने के बजाय, आप उस दस्तावेज़ को संदर्भित करने के लिए इस दस्तावेज़ का उपयोग कर सकते हैं जहां मैक्रो संग्रहीत है। यह दस्तावेज़ कभी नहीं बदलेगा।

1	यह दस्तावेज़। प्रिंट आउट

दस्तावेज़ चर

हालाँकि, अधिक जटिल मैक्रोज़ के लिए, सक्रिय दस्तावेज़ का ट्रैक रखना कठिन हो सकता है। दस्तावेजों के बीच आगे और पीछे स्विच करना भी निराशाजनक हो सकता है।

इसके बजाय, आप दस्तावेज़ चर का उपयोग कर सकते हैं।

यह मैक्रो ActiveDocument को एक वेरिएबल को असाइन करेगा और फिर वेरिएबल का उपयोग करके दस्तावेज़ को प्रिंट करेगा:

12345

उप VarExample ()दस्तावेज़ के रूप में मंद oDocoDoc = ActiveDocument सेट करेंoDoc.PrintOutअंत उप

दस्तावेज़ के तरीके

दस्तावेज़ खोलें

Word दस्तावेज़ खोलने के लिए:

1	Documents.Open "c:\Users\SomeOne\Desktop\Test PM.docx"

हम अनुशंसा करते हैं कि किसी दस्तावेज़ को खोलने पर उसे हमेशा असाइन किया जाए:

12	दस्तावेज़ के रूप में मंद oDocसेट oDoc = Documents.Open("c:\Users\SomeOne\Desktop\Test PM.docx")

नया दस्तावेज़ बनाएँ

एक नया वर्ड डॉक्यूमेंट बनाने के लिए:

1	दस्तावेज़।जोड़ें

हम Word को कुछ टेम्पलेट के आधार पर एक नया दस्तावेज़ बनाने का निर्देश दे सकते हैं:

1	Documents.Add Template:="C:\Program Files\Microsoft Office\Templates\MyTemplate.dotx"

हमेशा की तरह, बनाने या खोलने पर दस्तावेज़ को वेरिएबल में असाइन करना उपयोगी और बड़ी समस्या बचाने वाला है:

12	दस्तावेज़ के रूप में मंद oDocसेट oDoc = Documents.Add (टेम्पलेट:="C:\Program Files\Microsoft Office\Templates\MyTemplate.dotx")

दस्तावेज़ सहेजें

किसी दस्तावेज़ को सहेजने के लिए:

1	सक्रिय दस्तावेज़। सहेजें

या SaveAs:

1	ActiveDocument.SaveAs FileName:= c:\Users\SomeOne\Desktop\test2.docx", FileFormat:=wdFormatDocument

दस्तावेज़ बंद करें

किसी दस्तावेज़ को बंद करने और परिवर्तनों को सहेजने के लिए:

1	ActiveDocument.Close wdSaveChanges

या परिवर्तनों को सहेजे बिना:

1	ActiveDocument.Close wdDoNotSaveChanges

दस्तावेज़ प्रिंट करें

यह सक्रिय दस्तावेज़ को प्रिंट करेगा:

1	ActiveDocument.PrintOut

रेंज, चयन, पैराग्राफ

श्रेणी तथा चयन वर्ड वीबीए में शायद सबसे महत्वपूर्ण वस्तुएं हैं, निश्चित रूप से सबसे ज्यादा इस्तेमाल की जाती हैं।

श्रेणी दस्तावेज़ के कुछ हिस्से को संदर्भित करता है, आमतौर पर, लेकिन जरूरी नहीं, पाठ।

चयन चयनित पाठ (या चित्र जैसी अन्य वस्तु) या, यदि कुछ भी नहीं चुना गया है, तो एक सम्मिलन बिंदु को संदर्भित करता है।

पैराग्राफ दस्तावेज़ में पैराग्राफ का प्रतिनिधित्व करते हैं। यह जितना लगता है उससे कम महत्वपूर्ण है, क्योंकि आप सीधे पैराग्राफ टेक्स्ट तक नहीं पहुंच सकते हैं (संशोधन करने के लिए आपको विशेष पैराग्राफ रेंज तक पहुंचने की आवश्यकता है)।

श्रेणी

सीमा पूरे दस्तावेज़ सहित दस्तावेज़ का कोई भी भाग हो सकती है:

12	मंद oRange as Rangeसेट oRange = ActiveDocument.Content

या यह एक वर्ण के रूप में छोटा हो सकता है।

एक अन्य उदाहरण, यह श्रेणी दस्तावेज़ में पहले शब्द को संदर्भित करेगी:

12	मंद oRange as Rangeसेट oRange = ActiveDocument.Range.Words(1)

आम तौर पर, आप रेंज प्राप्त करना चाहते हैं जो दस्तावेज़ के विशिष्ट भाग को संदर्भित करता है और फिर इसे संशोधित करता है।

निम्नलिखित उदाहरण में हम दूसरे पैराग्राफ के पहले शब्द को बोल्ड करेंगे:

123	मंद oRange as Rangeसेट oRange = ActiveDocument.Paragraphs(2).Range.Words(1)oRange.Bold = True

रेंज टेक्स्ट सेट करें

किसी श्रेणी का टेक्स्ट मान सेट करने के लिए:

123	मंद oRange as Rangeसेट oRange = ActiveDocument.paragraphs(2).Range.Words(1)oRange.Text = "नमस्ते"

(टिप: "हैलो" के बाद के स्थान पर ध्यान दें। क्योंकि शब्द वस्तु में शब्द के बाद स्थान शामिल है, केवल "हैलो" के साथ हमें "हेलोनेक्स्ट शब्द" मिलेगा)

सैकड़ों चीजें हैं जो आप श्रेणियों के साथ कर सकते हैं। बस कुछ उदाहरण (ये मानते हैं कि आप पहले से ही वस्तु चर बना चुके हैं संतरा ब्याज की सीमा का जिक्र करते हुए):

फ़ॉन्ट बदलें

1	oRange.Font.Name = "एरियल"

संदेश बॉक्स में विशेष श्रेणी में वर्णों की संख्या प्रदर्शित करें

1	MsgBox oRange.Characters.Count

इसके पहले कुछ टेक्स्ट डालें

1	oRange.InsertBefore "यह सम्मिलित पाठ है"

श्रेणी में फुटनोट जोड़ें

12	ActiveDocument.Footnotes। रेंज जोड़ें: = ओ रेंज, _टेक्स्ट: =" easyexcel.net पर और पढ़ें।"

इसे क्लिपबोर्ड पर कॉपी करें

1234	ओ रेंज.कॉपीअक्सर आपको उस विशेष श्रेणी के संदर्भ में बदलने की आवश्यकता होती है जिसे संदर्भित किया जाता है। तो आप इसे शुरू और अंत कर सकते हैंoRange.Start = 5oRange.End = ५०

उपरोक्त कोड के बाद, oRange दस्तावेज़ में पांचवें से शुरू होने वाले और 50 वें वर्ण के साथ समाप्त होने वाले पाठ को संदर्भित करेगा।

चयन

चयन से भी अधिक व्यापक रूप से उपयोग किया जाता है श्रेणी, क्योंकि इसके साथ काम करना आसान है चयन से सीमाओं, यदि आपका मैक्रो केवल ActiveDocument के साथ इंटरैक्ट करता है।

सबसे पहले अपने दस्तावेज़ के वांछित भाग का चयन करें। उदाहरण के लिए सक्रिय दस्तावेज़ में दूसरा पैराग्राफ चुनें:

1	सक्रिय दस्तावेज़। पैराग्राफ (2)। रेंज। चयन करें

फिर आप कुछ टेक्स्ट टाइप करने के लिए Selection Object का उपयोग कर सकते हैं:

1	चयन। टाइप टेक्स्ट "कुछ टेक्स्ट"

हम नीचे कुछ पैराग्राफ टाइप कर सकते हैं "कुछ टेक्स्ट":

12	चयन। टाइप टेक्स्ट "कुछ टेक्स्ट"चयन। प्रकार पैराग्राफ

अक्सर, यह जानना आवश्यक है कि क्या कुछ पाठ चुना गया है या हमारे पास केवल एक सम्मिलन बिंदु है:

12345

यदि चयन। टाइप करें wdSelectionIP तबचयन। फ़ॉन्ट। बोल्ड = सत्यअन्यथाMsgBox "आपको कुछ पाठ का चयन करने की आवश्यकता है।"अगर अंत

चयन वस्तु के साथ काम करते समय हम सम्मिलन बिंदु को विशेष स्थान पर रखना चाहते हैं, और इस बिंदु से शुरू होने वाले आदेश जारी करना चाहते हैं।

दस्तावेज़ की शुरुआत:

1	Selection.HomeKey Unit:=wdStory, Extend:=wdMove

वर्तमान लाइन की शुरुआत:

1	Selection.HomeKey Unit:=wdLine, Extend:=wdMove

विस्तार पैरामीटर wdMove सम्मिलन बिंदु को ले जाता है। इसके बजाय, आप wdExtend का उपयोग कर सकते हैं जो वर्तमान सम्मिलन बिंदु के बीच सभी पाठ का चयन करेगा।

1	Selection.HomeKey Unit:=wdLine, Extend:=wdExtend

चयन ले जाएँ

सम्मिलन बिंदु की स्थिति बदलने के लिए सबसे उपयोगी तरीका मूव है। चयन को दो वर्णों को आगे ले जाने के लिए:

1	चयन। मूव यूनिट: = डब्ल्यूडी कैरेक्टर, काउंट: = 2

इसे पीछे की ओर ले जाने के लिए, गणना पैरामीटर के लिए ऋणात्मक संख्या का उपयोग करें:

1	चयन। मूव यूनिट: = डब्ल्यूडी कैरेक्टर, काउंट: = -2

यूनिट पैरामीटर wdCharacter, wdWord, wdLine, या अधिक हो सकता है (दूसरों को देखने के लिए Word VBA सहायता का उपयोग करें)।

इसके बजाय शब्दों को स्थानांतरित करने के लिए:

1	चयन। मूव यूनिट:=wdWord, काउंट:=2

चयन के साथ काम करना आसान है (श्रेणियों की तुलना में) क्योंकि यह वर्ड का उपयोग करने वाले रोबोट की तरह है, जो मानव उपयोगकर्ता की नकल करता है। जहां सम्मिलन बिंदु है - कुछ कार्रवाई होगी। लेकिन, इसका मतलब है कि आपको इस बात का ध्यान रखना चाहिए कि सम्मिलन बिंदु कहाँ है! कोड में कई चरणों के बाद यह आसान नहीं है। अन्यथा, Word टेक्स्ट को वांछित स्थान पर नहीं बदलेगा।

यदि आपको चयन वस्तु में उपलब्ध कुछ संपत्ति या विधि की आवश्यकता नहीं है तो आप हमेशा चयन से जुड़ी सीमा आसानी से प्राप्त कर सकते हैं:

1	सेट oRange = Selection.Range

युक्ति: उपयोग करना चयन श्रेणियों का उपयोग करने की तुलना में अक्सर आसान होता है, लेकिन यह भी धीमा होता है (जब आप बड़े दस्तावेज़ों से निपटते हैं तो महत्वपूर्ण)

पैराग्राफ

आप टेक्स्ट बदलने के लिए सीधे पैराग्राफ़ ऑब्जेक्ट का उपयोग नहीं कर सकते:

1	ActiveDocument.Pargraphs(1).Text = "नहीं, यह काम नहीं करेगा"

ऊपर काम नहीं करेगा (वास्तव में यह एक त्रुटि फेंक देगा)। आपको पहले विशेष पैराग्राफ से जुड़ी रेंज प्राप्त करने की आवश्यकता है:

1	ActiveDocument.Pargraphs(1).Range.Text = "यह अब काम करता है :)"

लेकिन आप सीधे इसकी शैली बदल सकते हैं:

1	ActiveDocument.पैराग्राफ (1)। शैली = "सामान्य"

या इसके अनुच्छेद स्तर स्वरूपण को बदलें:

1	ActiveDocument.Pargraphs(1).LeftIndent = 10

या हो सकता है कि आप इस अनुच्छेद को अगले अनुच्छेद के साथ उसी पंक्ति पर रखना चाहते हैं:

1	ActiveDocument.पैराग्राफ(1).KeepWithNext = True

पैराग्राफ़ को केन्द्रित करें:

1	ActiveDocument.पैराग्राफ(1).संरेखण = wdAlignPargraphCenter

ऑब्जेक्ट वेरिएबल के लिए एक विशेष पैराग्राफ असाइन करना बहुत उपयोगी है। यदि हम चर के लिए विशेष पैराग्राफ निर्दिष्ट करते हैं तो हमें चिंता करने की ज़रूरत नहीं है कि पहला पैराग्राफ दूसरा बन जाता है क्योंकि हमने इससे पहले एक पैराग्राफ डाला है:

12	मंद ओपारा पैराग्राफ के रूप मेंसेट ओपारा = चयन। पैराग्राफ (1) 'यहां हम वर्तमान चयन के पहले पैराग्राफ को चर के लिए असाइन करते हैं'

यहां एक उदाहरण दिया गया है जहां हम पहले पैराग्राफ के ऊपर एक पैराग्राफ डालते हैं, लेकिन हम अभी भी पुराने पहले पैराग्राफ को संदर्भित कर सकते हैं क्योंकि इसे एक वेरिएबल को सौंपा गया था:

1234567

उप पैराग्राफ उदाहरण ()अनुच्छेद के रूप में मंद ओपारासेट oPara = ActiveDocument.Pargraphs(1)MsgBox oPara.Range.TextoPara.Range.Insertपैराग्राफ से पहले 'पैराग्राफ डालें'MsgBox oPara.Range.Textअंत उप

पैराग्राफ ऑब्जेक्ट का उपयोग अक्सर लूप में किया जाता है:

123456789101112

उप लूपथ्रूपैराग्राफ ()अनुच्छेद के रूप में मंद ओपारासक्रिय दस्तावेज़ में प्रत्येक ओपारा के लिए। पैराग्राफ'इसके साथ कुछ करो। हम सिर्फ प्रदर्शित करेंगे'पैराग्राफ टेक्स्ट यदि इसकी शैली "शीर्षक 4" हैअगर oPara.Style = "Heading 4" तोMsgBox oPara.Range.Textअगर अंतअगला ओपैराअंत उप

वर्ड वीबीए ट्यूटोरियल निष्कर्ष

इस ट्यूटोरियल में Word VBA की मूल बातें शामिल हैं। यदि आप वीबीए के लिए नए हैं, तो आपको वेरिएबल्स, लूप्स, मैसेजबॉक्स, सेटिंग्स, कंडीशनल लॉजिक और बहुत कुछ के बारे में अधिक जानने के लिए हमारे सामान्य वीबीए ट्यूटोरियल की समीक्षा करनी चाहिए।