शब्द वीबीए खोजें
यह उदाहरण एक साधारण शब्द मैक्रो है जो "ए" टेक्स्ट ढूंढता है:
Sub SimpleFind() Selection.Find.ClearFormatting with Selection.Find .Text = "a" .Replacement.Text = "" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = चयन के साथ गलत अंत। Find.Execute End Sub
ढूँढें और बदलें
यह सरल मैक्रो "उनके" शब्द की खोज करेगा और इसे "वहां" से बदल देगा:
Sub SimpleReplace() Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting with Selection.Find .Text = "उनका" .Replacement.Text = "वहां"। फॉरवर्ड = ट्रू। रैप = wdFindContinue। फॉर्मेट = गलत। मैचकेस = गलत .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = चयन के साथ गलत अंत। Find.Execute बदलें:=wdReplaceAll End Sub
केवल चयन में खोजें और बदलें
यह वीबीए मैक्रो एक चयन में टेक्स्ट ढूंढेगा और बदल देगा। यह बदले गए टेक्स्ट को इटैलिकाइज़ भी करेगा।
सब रिप्लेसइनसेलेक्शन () 'टेक्स्ट को जस्ट सिलेक्शन में बदल देता है। एडिट में यह टेक्स्ट को इटैलिक सिलेक्शन.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting with Selection.Find .Text = "उनका" .Replacement .Font.Italic = True .Text = "वहाँ" के साथ समाप्त करता है। फॉरवर्ड = ट्रू .Wrap = wdFindStop 'यह Word को doc के अंत तक जारी रहने से रोकता है। Format = True' हम टेक्स्ट के स्वरूपण को भी बदलना चाहते हैं।MatchCase = False .MatchWholeWord = True।MatchWildcards = False .MatchSoundsLike = False .MatchAllWord EndForms = False .MatchAllWordForms = False Selection.Find.Execute बदलें के साथ:=wdReplaceAll End Sub
कोड की यह पंक्ति VBA को Word दस्तावेज़ के अंत तक जारी रहने से रोकती है:
.Wrap = wdFindStop 'यह Word को दस्तावेज़ के अंत तक जारी रहने से रोकता है
कोड की यह पंक्ति पाठ के स्वरूपण को भी बदलने का संकेत देती है:
.Format = True 'हम टेक्स्ट के फ़ॉर्मेटिंग को भी बदलना चाहते हैं
केवल रेंज में खोजें और बदलें
पूरे दस्तावेज़ में या चयन में टेक्स्ट को बदलने के बजाय, हम वीबीए को केवल रेंज में खोजने और बदलने के लिए कह सकते हैं। इस उदाहरण में हमने श्रेणी को पहले पैराग्राफ के रूप में परिभाषित किया है:
रेंज सेट के रूप में डिम ओरेंज = एक्टिव डॉक्यूमेंट। पैराग्राफ (1)। रेंज
Sub ReplaceInRange () 'पाठ को केवल सीमा में बदल देता है [इस उदाहरण में केवल पहले पैराग्राफ में] मंद oRange As Range Set oRange = ActiveDocument. Paragraphs(1).Range oRange.Find.ClearFormatting oRange.Find.Replacement.ClearFormatting with oRange। खोजें। टेक्स्ट = "उनका"। रिप्लेसमेंट। टेक्स्ट = "वहां"। फॉरवर्ड = ट्रू। रैप = wdFindStop 'यह वर्ड को डॉक के अंत तक जारी रखने से रोकता है। फॉर्मेट = गलत। मैचकेस = गलत। मैचहोलवर्ड = गलत। मैचवाइल्डकार्ड = गलत .MatchSoundsLike = False .MatchAllWordForms = oRange के साथ गलत अंत
