Highlighted

Force Entry in Text Field and Unprotect Template

New Here ,
Aug 12, 2020

Copy link to clipboard

Copied

I’m creating a template in Word 2016, and I have a couple of issues. Most of the fields have an on entry macro associated with them to force text input for the prior field. A message box comes up if the user tabs out of the field without inputting text.

My first issue is this: The last field, E-mail, has an on entry macro for the field before it, Extension, and an on exit macro so if the user tabs out of the E-mail field a message box comes up.

When the user completes the Extension field and tabs to the E-mail field, if they tab out of the field without entering text a message box comes up letting the user know they need to enter text into that field. However, when the user clicks the OK button the cursor advances to the first input field (Dropdown1). I would like it to stay on the Extension field, Text 13. Below is my coding:

 

Sub ForceEmail()

Dim Msg, Style, Title, Response

On Error GoTo fError

If ActiveDocument.FormFields("Text13").Result = "" Then

   Msg = "You must enter text in the E-mail field."

   Style = vbOKOnly + vbCritical

   Title = "Input Text Warning"

   Response = MsgBox(Msg, Style, Title)

   Selection.GoTo wdGoToBookmark, Name:="Text13"

End If

Exit Sub

fError:

   MsgBox Err.Description

End Sub

 

My second issue is when the user has entered text into the E-mail field and they tab out of it, I need the template to unprotect and delete the header of the template. The coding below is what I have been using as an on exit macro on many templates and it has worked before, but now I am thinking I need to add the below coding to the ForceEmail coding since I have placed that as an on exit macro in the E-mail field. I have tried adding the coding below to the coding above but cannot get it to work.

 

Sub DocUnPro()

'If document is protected, unprotect it.

   If ActiveDocument.ProtectionType <> wdNoProtection Then

       ActiveDocument.Unprotect Password:=""

   End If

   With ActiveDocument.Sections(1)

       .Headers(wdHeaderFooterPrimary).Range.Text = ""

   End With

   ActiveDocument.Bookmarks("Dropdown1").Select

End Sub

 

Any help you can give me on these two issues is greatly appreciated. Jamie

TOPICS
Acrobat SDK and JavaScript

Views

38

Likes

Translate

Translate

Report

Report
Community Guidelines
Be kind and respectful, give credit to the original source of content, and search for duplicates before posting. Learn more

Force Entry in Text Field and Unprotect Template

New Here ,
Aug 12, 2020

Copy link to clipboard

Copied

I’m creating a template in Word 2016, and I have a couple of issues. Most of the fields have an on entry macro associated with them to force text input for the prior field. A message box comes up if the user tabs out of the field without inputting text.

My first issue is this: The last field, E-mail, has an on entry macro for the field before it, Extension, and an on exit macro so if the user tabs out of the E-mail field a message box comes up.

When the user completes the Extension field and tabs to the E-mail field, if they tab out of the field without entering text a message box comes up letting the user know they need to enter text into that field. However, when the user clicks the OK button the cursor advances to the first input field (Dropdown1). I would like it to stay on the Extension field, Text 13. Below is my coding:

 

Sub ForceEmail()

Dim Msg, Style, Title, Response

On Error GoTo fError

If ActiveDocument.FormFields("Text13").Result = "" Then

   Msg = "You must enter text in the E-mail field."

   Style = vbOKOnly + vbCritical

   Title = "Input Text Warning"

   Response = MsgBox(Msg, Style, Title)

   Selection.GoTo wdGoToBookmark, Name:="Text13"

End If

Exit Sub

fError:

   MsgBox Err.Description

End Sub

 

My second issue is when the user has entered text into the E-mail field and they tab out of it, I need the template to unprotect and delete the header of the template. The coding below is what I have been using as an on exit macro on many templates and it has worked before, but now I am thinking I need to add the below coding to the ForceEmail coding since I have placed that as an on exit macro in the E-mail field. I have tried adding the coding below to the coding above but cannot get it to work.

 

Sub DocUnPro()

'If document is protected, unprotect it.

   If ActiveDocument.ProtectionType <> wdNoProtection Then

       ActiveDocument.Unprotect Password:=""

   End If

   With ActiveDocument.Sections(1)

       .Headers(wdHeaderFooterPrimary).Range.Text = ""

   End With

   ActiveDocument.Bookmarks("Dropdown1").Select

End Sub

 

Any help you can give me on these two issues is greatly appreciated. Jamie

TOPICS
Acrobat SDK and JavaScript

Views

39

Likes

Translate

Translate

Report

Report
Community Guidelines
Be kind and respectful, give credit to the original source of content, and search for duplicates before posting. Learn more
Aug 12, 2020 0
Adobe Community Professional ,
Aug 12, 2020

Copy link to clipboard

Copied

So what does this have to do with Acrobat?

Likes

Translate

Translate

Report

Report
Community Guidelines
Be kind and respectful, give credit to the original source of content, and search for duplicates before posting. Learn more
Reply
Loading...
Aug 12, 2020 0
New Here ,
Aug 12, 2020

Copy link to clipboard

Copied

Oh my gosh Thom, you're right, wrong platform. My apologies.

Likes

Translate

Translate

Report

Report
Community Guidelines
Be kind and respectful, give credit to the original source of content, and search for duplicates before posting. Learn more
Reply
Loading...
Aug 12, 2020 0