Insert input box into macro to allow user to define search term

Hoxton118 · #1 05-16-2014, 06:34 AM

I would like to adapt this code so that the user is prompted by an input box to enter text which is then searched for. At the moment, it says "Las Vegas" and I am editing the code manually every time I want to change it and search for a different item. I'd like to be able to enter any text in a box when using Word. Ideally, I would have a keyboard shortcut to open the input box, enter text, press return and the macro would produce its result. Grateful for any help, please. Thanks.

Code:

Sub CreateSummary()
'
' CreateSummary Macro

Selection.Find.ClearFormatting
With Selection.Find
.Text = "Las Vegas"
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Do While Selection.Find.Execute
Selection.StartOf Unit:=wdParagraph
Selection.MoveEnd Unit:=wdParagraph
sBigString = sBigString + Selection.Text
Selection.MoveStart Unit:=wdParagraph

Loop
Documents.Add DocumentType:=wdNewBlankDocument
Selection.InsertAfter (sBigString)
End Sub

fumei · #2 05-16-2014, 12:38 PM

Code:

 .Text = InputBox("Type City and press Enter.")

Comments:
declare your variables!
if the Selection point is ahead of the text you enter, it will NOT find it. If you want to go through the entire document use the document range, rather than Selection.

Do you actually want to create a new document for every found instance of your text string?

Hoxton118 · #3 05-17-2014, 05:43 AM

Quote:

Originally Posted by fumei

Do you actually want to create a new document for every found instance of your text string?

Thanks for the reply. No, the macro creates one file containing all paragraphs including the search term.

Hoxton118 · #4 05-19-2014, 02:03 AM

Many thanks - this worked a treat. Best wishes.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Insert input box into macro to allow user to choose multiple text entries	Hoxton118	Word VBA	6	04-03-2014 12:12 AM
User input to a variable on the document	dsm1995gst	Word VBA	1	09-03-2013 03:43 PM
Replacing text with user input.?.?.?	brad1977	Word	3	11-20-2012 10:20 AM
Restricting User Input on a TextBox (and setting focus)	joatmon	Excel Programming	1	06-05-2012 03:01 PM
Look up an array based on user input	johnsmb	Excel	2	01-07-2011 01:12 PM