Reply to thread

Message: [QUOTE="JFREE223, post: 5891232"] Graham Mayor stated that the logic below would insert an intitial field at the place of the cursor. Is there a way to remove the intitial cursor field entry using the logic below???? Sub WageProtect() ' ' WageProtect Macro ' ' If document is protected, Unprotect it. If ActiveDocument.ProtectionType <> wdNoProtection Then ActiveDocument.Unprotect Password:="fixstyles" End If ' Insert a Field ActiveDocument.FormFields.Add _ Range:=Selection.Range, _ Type:=wdFieldFormTextInput With Selection.Find Do While .Execute(findText:="___________", _ Wrap:=wdFindContinue) Set oRng = Selection.Range oRng.FormFields.Add Range:=oRng, _ Type:=wdFieldFormTextInput Loop End With ' Insert a Field ActiveDocument.FormFields.Add _ Range:=Selection.Range, _ Type:=wdFieldFormTextInput With Selection.Find Do While .Execute(findText:="_______-__-_____", _ Wrap:=wdFindContinue) Set oRng = Selection.Range oRng.FormFields.Add Range:=oRng, _ Type:=wdFieldFormTextInput Loop End With ' ReProtect the document. If ActiveDocument.ProtectionType = wdNoProtection Then ActiveDocument.Protect Type:=wdAllowOnlyFormFields, _ Password:="fixstyles", NoReset:=True End If End Sub [/QUOTE]