Services
Technology Web App Development Mobile App Development Windows App Development Database Development UI/UX Development Cloud Development SEO Digital Marketing Guest Posting Content Writing Artificial Intelligence Data Science ERP Development CRM Development CMS Development LMS Development Business Listing Blockchain Technology Startup Promotion AI Tools Integration
Products
Data Converter Cleaner TUC - Unit Converter Import Export Survey Manager Tweet Controller
Developer
Article Blog Forum Interview Beginner News Startup Quiz
Users
Career
Apply Job Internship
Pricing
Login Sign Up Get a Quote

forum

Ask Question

1 Answers

Aryan Kumar
Aryan Kumar 19 Jul 2023
Report Abuse

Sure, here is the code to find and replace in a Word document using VBA:

Sub FindAndReplace()

'Declare variables
Dim doc As Word.Document
Dim findWhat As String
Dim replaceWith As String
Dim startAt As Integer
Dim found As Boolean

'Get the active document
Set doc = ActiveDocument

'Get the find what text
findWhat = InputBox("Enter the text you want to find:")

'Get the replace with text
replaceWith = InputBox("Enter the text you want to replace with:")

'Get the start at location
startAt = InputBox("Enter the location where you want to start the search:")

'Set the found flag to false
found = False

'Loop through all the words in the document
For Each word In doc.Words

'If the current word matches the find what text
If word.Text = findWhat Then

'Set the found flag to true
found = True

'Replace the word with the replace with text
word.Text = replaceWith

End If
Next word

'If the find what text was not found
If Not found Then

'Display an error message
MsgBox "The text you were looking for was not found."

End If

End Sub

This code first declares a few variables:

  • doc is a variable of type Word.Document that represents the active document.
  • findWhat is a variable of type String that contains the text you want to find.
  • replaceWith is a variable of type String that contains the text you want to replace the find what text with.
  • startAt is a variable of type Integer that contains the location in the document where you want to start the search.
  • found is a variable of type Boolean that indicates whether or not the find what text was found.

The code then gets the active document using the ActiveDocument property. It then gets the find what text from the user using the InputBox function. It then gets the replace with text from the user using the InputBox function. It then gets the start at location from the user using the InputBox function.

The code then sets the found flag to false. It then loops through all the words in the document. For each word, the code checks if the word's text matches the find what text. If it does, the code sets the found flag to true and replaces the word with the replace with text.

If the find what text was not found, the code displays an error message.

To use this code, you would first need to insert it into a new or existing Word VBA project. You would then need to run the code. When running the code, you would be prompted to enter the find what text, the replace with text, and the start at location. Once you have entered all of the information, the code will find and replace the text in the document.

advertising
Markdown for AI

A clean, structured version of this page for AI assistants and LLMs.

Open .md