MS Word 2007 Forms

[MrT82]

Hello, does anyone know that if in MS Word 2007 you can create a macro that says that if a check box is checked it automatically updates a plain text control box with a value and then locks it for editing please?

Thanks in adv,

Paul

 

[Macropod]

You can use a 'ContentControlOnExit' macro, in the document's 'ThisDocument' code module, coded like:

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Dim i As Long, StrTxt As String
StrTxt = "Conditional Text"
With ThisDocument
  For i = 1 To .ContentControls.Count
    If ContentControls(i).Title = "Chk1" Then
      If ContentControls(i).Checked = False Then StrTxt = " "
      Exit For
    End If
  Next
  For i = 1 To .ContentControls.Count
    With ContentControls(i)
      If .Title = "Txt1" Then
        .LockContents = False
        .Range.Font.Hidden = False
        .Range.Text = StrTxt
        If StrTxt = " " Then
          .Range.Font.Hidden = True
        End If
        .LockContents = True
        Exit For
      End If
    End With
  Next
End With
End Sub

where your checkbox content control is titled 'Chk1' and your text content control is titled 'Txt1'.

 

[strive4peace]

Hi Paul,

thanks for your code. Please, next time wrap it in CODE tags so it is easier to read, thank you

BB Code List - MrExcel Message Board

 

[Macropod]

Hi Paul,

thanks for your code. Please, next time wrap it in CODE tags so it is easier to read, thank you

Ordinarily, I do. An oversight last time. A more efficient version appears below.

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Dim i As Long, StrTxt As String
StrTxt = "Conditional Text"
With ThisDocument
  If ContentControl.Title = "Chk1" Then
    If ContentControl.Checked = False Then StrTxt = " "
  End If
  For i = 1 To .ContentControls.Count
    With ContentControls(i)
      If .Title = "Txt1" Then
        .LockContents = False
        .Range.Font.Hidden = False
        .Range.Text = StrTxt
        If StrTxt = " " Then .Range.Font.Hidden = True
        .LockContents = True
        Exit For
      End If
    End With
  Next
End With
End Sub

 

[Macropod]

Actually, I've just realised there's a more fundamental issue - unlike Word 2010 & later, Word 2007 doesn't have a checkbox content control. So that raises the question of what kind of checkbox the OP is referring to. In keeping with content control usage, a dropdown content control with, say, Yes/No options could be substituted.

 

[strive4peace]

thanks, Paul