#1
|
|||
|
|||
Insert input box into macro to allow user to define search term
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 |
#2
|
|||
|
|||
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? |
#3
|
|||
|
|||
Thanks for the reply. No, the macro creates one file containing all paragraphs including the search term.
|
#4
|
|||
|
|||
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 |