Microsoft Office Forums

Go Back   Microsoft Office Forums > >

 
 
Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #1  
Old 08-14-2015, 06:04 AM
rajani rajani is offline Create an input box for arrays Windows XP Create an input box for arrays Office 2007
Novice
Create an input box for arrays
 
Join Date: Jul 2015
Posts: 6
rajani is on a distinguished road
Question Create an input box for arrays

Hi All,

I need a help to complete my code and make it live.

Please help me to create an input box where the user has to insert the list of words with out going to the code. Here the word list is ("Friend", "MITS", "ICMR").

Note that the list of words varies from document to document.

Below is the code.

Sub FindHighlightWord()
Dim oRng As Word.Range
Dim arrWords
Dim i As Long

Options.DefaultHighlightColorIndex = wdGreen

arrWords = Array("Friend", "MITS", "ICMR")
For i = 0 To UBound(arrWords)
Set oRng = ActiveDocument.Range
With oRng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Replacement.Highlight = True
.Text = arrWords(i)
.MatchWholeWord = True
.Execute Replace:=wdReplaceAll
End With
Next
End Sub

Many thanks for your help.

Regards,
Raj
Reply With Quote
 



Similar Threads
Thread Thread Starter Forum Replies Last Post
Create an input box for arrays Mail merge from excel - need to create sheets and create a table bluenosebex Mail Merge 5 08-02-2015 05:34 PM
Variable arrays from user input SeattleITguy Excel Programming 1 01-29-2015 09:19 AM
Create an input box for arrays Searching Arrays without Loops? ptmuldoon Word VBA 3 12-13-2014 11:21 AM
Create an input box for arrays Input Box ubns Word 2 04-13-2012 06:28 AM
Create an input box for arrays re-naming arrays in VBA? JDevsFan Excel Programming 4 03-15-2012 08:44 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 02:38 PM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft