Skip to main content

Replace vba code

 #####################

oem       Remove word
warranty        Remove heading
installation        Remove heading

  #####################

Sub replace()
'
' replace Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "Should have"
        .Replacement.Text = "is has"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute replace:=wdReplaceAll
    With Selection.Find
        .Text = "Should be"
        .Replacement.Text = "is"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute replace:=wdReplaceAll
    With Selection.Find
        .Text = "Should"
        .Replacement.Text = "is"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute replace:=wdReplaceAll
    With Selection.Find
        .Text = "Would have"
        .Replacement.Text = "is has"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute replace:=wdReplaceAll
    With Selection.Find
        .Text = "Would be"
        .Replacement.Text = "is"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute replace:=wdReplaceAll
    With Selection.Find
        .Text = "Would"
        .Replacement.Text = "is"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute replace:=wdReplaceAll
    With Selection.Find
        .Text = "Shall have"
        .Replacement.Text = "is has"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute replace:=wdReplaceAll
    With Selection.Find
        .Text = "Shall be"
        .Replacement.Text = "is"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute replace:=wdReplaceAll
    With Selection.Find
        .Text = "Shall"
        .Replacement.Text = "is"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute replace:=wdReplaceAll
    With Selection.Find
        .Text = "will have"
        .Replacement.Text = "is has"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute replace:=wdReplaceAll
    With Selection.Find
        .Text = "will be"
        .Replacement.Text = "is"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute replace:=wdReplaceAll
    With Selection.Find
        .Text = "will"
        .Replacement.Text = "is"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute replace:=wdReplaceAll
    With Selection.Find
        .Text = "must have"
        .Replacement.Text = "is has"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute replace:=wdReplaceAll
    With Selection.Find
        .Text = "must be"
        .Replacement.Text = "is"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute replace:=wdReplaceAll
    With Selection.Find
        .Text = "must"
        .Replacement.Text = "is"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute replace:=wdReplaceAll
    With Selection.Find
        .Text = "providing"
        .Replacement.Text = "given"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute replace:=wdReplaceAll
    With Selection.Find
        .Text = "provides"
        .Replacement.Text = "given"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute replace:=wdReplaceAll
    With Selection.Find
        .Text = "provided"
        .Replacement.Text = "given"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute replace:=wdReplaceAll
    With Selection.Find
        .Text = "provide"
        .Replacement.Text = "given"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute replace:=wdReplaceAll
    With Selection.Find
        .Text = "certificate"
        .Replacement.Text = "approval"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute replace:=wdReplaceAll
    With Selection.Find
        .Text = "certification"
        .Replacement.Text = "approval"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute replace:=wdReplaceAll
    With Selection.Find
        .Text = "certified"
        .Replacement.Text = "approval"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute replace:=wdReplaceAll
    With Selection.Find
        .Text = "oem"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute replace:=wdReplaceAll
End Sub

Labels:

Popular posts from this blog

Autoclave working principle and Uses

  Autoclaves are essential devices in medical, laboratory, and industrial settings, known for their effectiveness in sterilizing equipment and materials. Their functionality revolves around the principle of moist heat sterilization, where steam under pressure is used to sterilize various items. This article delves into the autoclave's working principles, sterilization process, diagram, uses, pressure requirements, and the role of manufacturers and exporters in India. Autoclave Working Principle The working principle of an autoclave is based on the principle of moist heat sterilization. This method uses steam under pressure to kill harmful bacteria, viruses, fungi, and spores, ensuring that the items being sterilized are free from any microorganisms. The autoclave generates steam inside a closed chamber, increasing the pressure, which in turn raises the boiling point of water, allowing the steam to reach higher temperatures than boiling water at normal atmospheric pressure. Autoclav
Read more

Incinerators Purpose, Principles, and Types

Scientific Laboratory Equipment's & Instruments Manufacturer Incinerators play a crucial role in waste management, providing an effective solution for reducing waste volume and managing hazardous materials. This article delves into the details of incinerators, their uses, working principles, and the different types available, focusing on small incinerators and their applications. What is an Incinerator Used For? An incinerator is a device used for burning waste materials at high temperatures until they are reduced to ash, gas, and heat. The primary purpose of incineration is to reduce the volume of waste, which in turn decreases the burden on landfills. Additionally, incineration helps in managing hazardous waste, ensuring that dangerous substances are destroyed and rendered harmless. Key applications of incinerators include: Municipal Waste Management: Reducing the volume of household waste and producing energy from waste. Medical Waste Disposal: Safely destroying infectious
Read more

Common Laboratory Equipment and Their Uses

  Common Laboratory Equipment and Their Uses Laboratories are the backbone of scientific research and education, providing a controlled environment for experimentation, analysis, and discovery. Whether you're a student, a researcher, or a professional, understanding the essential laboratory equipment and their uses is crucial. This article will highlight some of the most common laboratory equipment and explain their functions, along with pictures to aid in identification. Scientific Laboratory Equipment's & Instruments Manufacturer 1. Microscope Use: Microscopes are essential for observing small specimens that are not visible to the naked eye. They magnify the images of these tiny objects, allowing scientists to study their details. Common types include light microscopes and electron microscopes. https://healthandeducationblog.blogspot.com/2024/07/incinerators-purpose-principles-and.html https://healthandeducationblog.blogspot.com/2024/07/autoclave-working-principle-and-us
Read more

राशन कार्ड पर क्या-क्या सामान मिलता है और कितना मिलता है। Family id से Status ऑनलाइन देख सकते है |

  राशन कार्ड पर कितना राशन मिलता है  ration card par kitna ration milta hai : खाद्य विभाग द्वारा पात्रता के अनुसार अलग – अलग राशन कार्ड जारी किये जाते है। अलग – अलग प्रकार के राशन कार्ड के अनुसार राशन कार्ड पर अलग – अलग राशन मिलता है। आज भी कई हितग्राहियों को नहीं पता कि राशन कार्ड पर कितना राशन मिलता है ? लेकिन अगर आप एक राशन कार्ड धारक है, तो इनकी जानकारी आपको जरूर होनी चाहिए। अलग – अलग वर्ग के लोगों को उनकी जरुरत के अनुसार लाभ प्रदान करने के लिए अलग – अलग राशन कार्ड जारी किया जाता है। इसलिए किसी राशन कार्ड धारक को कम राशन तो किसी को अधिक राशन मिलता है। इसके साथ ही राशन की मात्रा भी अलग – अलग होती है। चलिए यहाँ है राशन कार्ड के अनुसार आपको बताते है कि  राशन कार्ड पर क्या-क्या सामान मिलता है और कितना मिलता है। Family id से Status ऑनलाइन देख सकते है | https://epos.haryanafood.gov.in/  
Read more

Saree with Blouse Material - Embrace Trendy Style and Timeless Elegance in this Exquisite Attire

Free Size Women's Saree With blouse piece Colour: Peach Material composition : 100% Magludi Art Silk Occasion type: Festival, Party, Wedding Machine Wash Versatile and elegant saree suitable for various occasions, including casual parties, festive celebrations, religious ceremonies, and weddings. Timeless design that seamlessly transitions from formal office wear to a chic and trendy ensemble. Crafted from soft fabric for a luxurious feel, ensuring comfort throughout the day. Comes with matching blouse material for customization to suit individual preferences. Embrace style with ease by draping this saree in various captivating ways, allowing for a personalized and fashionable look.
Read more

Great Indian Festival is LIVE! Half Price Store

  *Amazon Great Indian Festival - Half Price Store* Minimum 50% off on 2 lakh+ items Electronics & mobile accessories at minimum 50% off* Up to 70% off on Home, Kitchen, and outdoor Deals starting ₹199 on Fashion & beauty Daily needs, baby care, books and more Pay with UPI or Cash on delivery Great Prices! Secure Payment! Easy Returns* Click here - https://amzn.to/3Skftga *10% Instant Discount with ICICI and AU Small Finance Bank** *T&C Apply, visit Amazon
Read more

BPL राशन कार्ड बनने शुरू? Family id से Status ऑनलाइन देख सकते है |

हरियाणा सरकार   द्वारा हर व्यक्ति की आय और परिवार की स्थिति के आधार पर   APL/BPL Ration Card New List   को   जारी किया जाता है | इस लिस्ट के आधार पर जो परिवार गरीबी रेखा से नीचे आते है उन लोगो के लिए    BPL राशन कार्ड   बनाये जाते है और जो गरीबी रेखा से ऊपर आते है उनके लिए APL  Ration Card  बनाये जाते है और इस के आधार पर व्यक्ति को APL /BPL  लिस्ट में चुना जाता है | राज्य के लोगो को अब कही जाने की ज़रूरत नहीं है अब लोग घर बैठे इंटरनेट के माध्यम से   Haryana Ration Card List 2022  में अपना नाम चैक कर सकते है | आज हम आपको बताएगे कि आप किस प्रकार राशन कार्ड सूची में अपना नाम देख सकते है | BPL राशन कार्ड   बनने शुरू ? Family id से  राशन कार्ड  Status ऑनलाइन   देख सकते है | https://epds.haryanafood.gov.in/search-rc
Read more

General Laboratory Equipment and Their Uses

General Laboratory Equipment Laboratories are crucial environments for scientific research, experimentation, and analysis. Equipped with a variety of tools and instruments, laboratories facilitate precise measurements and observations necessary for scientific discovery. Here, we explore some essential general laboratory equipment and their uses. Microscopes Microscopes are fundamental in laboratories for viewing objects that are too small for the naked eye. They come in various types:     Light Microscopes: Widely used for examining small samples like bacteria and cells.   Electron Microscopes: Provide high-resolution images of specimens, used in advanced research fields like nanotechnology. Centrifuges Centrifuges separate mixtures by density through rapid spinning. They are essential in biology and chemistry labs for processes such as:     Sample Purification: Isolating cells, organelles, or macromolecules.     Blood Testing: Separating plasma from blood samples. Balances a
Read more

Self Design Art Silk Saree (White)

The Big Billion Days Sale 2024 कपड़ा: आर्ट सिल्क ब्लाउज पीस: अनसिलाई साड़ी की लंबाई: 5.2 मीटर ब्लाउज पीस की लंबाई: 0.8 मीटर वजन: 0.3 किलोग्राम साड़ी आपके स्वभाव और व्यक्तित्व को दर्शाती है।  लेस वाली साड़ी लोकप्रिय है और यह ट्रेंडी लगती है।    Flipkart:  हमारे पास कई प्रकार के डिज़ाइन और नवीनतम साड़ियाँ उपलब्ध हैं जैसे प्रिंटेड साड़ी, सॉलिड प्रिंटेड साड़ी, प्लेन सॉलिड प्रिंटेड साड़ी, शिफॉन सॉलिड प्रिंटेड साड़ी, जॉर्जेट साड़ी, जॉर्जेट प्रिंटेड साड़ी, प्लेन जॉर्जेट प्रिंटेड साड़ी, शिफॉन साड़ी, शिफॉन लेस बॉर्डर साड़ी, शिफॉन प्रिंटेड साड़ी, कॉटन सिल्क साड़ी, भागलपुरी साड़ी, आर्ट सिल्क साड़ी, कॉटन साड़ी, सिल्क साड़ी, हाफ एंड हाफ साड़ी इत्यादि।   Flipkart Affiliate Program
Read more