#16
|
||||
|
||||
I've re-tested and the code works fine. Try again, with:
Code:
Sub AddFormFields() Dim pState As Boolean, Pwd As String, StrTmp As String, FFld As FormField With ActiveDocument pState = False If .ProtectionType <> wdNoProtection Then Pwd = InputBox("Please enter the Password", "Password") pState = True .Unprotect Pwd End If With .Range With .Find .ClearFormatting .Text = "My Kitchen" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = True .MatchSoundsLike = False .MatchAllWordForms = False .Execute End With Do While .Find.Found StrTmp = .Duplicate.Text Set FFld = ActiveDocument.FormFields.Add(Range:=.Duplicate, _ Type:=wdFieldFormTextInput) FFld.Result = StrTmp .Start = FFld.Range.End .Find.Execute Loop End With If pState = True Then .Protect Type:=wdAllowOnlyFormFields, Noreset:=True, _ Password:=Pwd pState = False End With End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#17
|
|||
|
|||
Paul,
This works. Don't know what I did wrong, but it works. Thanks for your quick support on an old ticket. Gr. Edwin |
Thread Tools | |
Display Modes | |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Macro to find text in between two characters and then format selected text? | qcom | Word | 5 | 02-19-2015 11:23 PM |
Form Fields - Create blank form text field with if statement? | LAssist2011 | Word | 5 | 12-14-2011 03:02 PM |
Macro to populate a text form field based on dropdown selection | koloa | Word | 0 | 10-20-2011 11:52 AM |
Need help on Macro 03- Find text - if text is blank then remove line | simpleonline1234 | Word VBA | 1 | 02-25-2011 02:28 AM |
Treating a text box like a form Text Field | jackaroo | Word | 0 | 08-18-2010 10:20 AM |