VBA and Word basics help

gmayor · #1 04-19-2015, 09:47 PM

The code disappears almost certainly because you are saving the document as DOCX format which doesn't support macros, rather than DOCM format, which does.

Probably better still, save it as a macro enabled template (DOTM format) and create new documents from the template (File > New).

If you want the macro to ignore the default text in the list box, then leave in the two optional lines. The Debug.Print ContentControl.Range line is not required other than for testing.

Code:

Option Explicit

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
    If ContentControl.Tag = "TypeSelect" Then
        If Not ContentControl.Range = ContentControl.PlaceholderText Then 'Optional
            Select Case ContentControl.Range
                Case "Task"
                    ActiveDocument.ContentControls(2).Range = "Enter Steps"
                Case "Concept"
                    ActiveDocument.ContentControls(2).Range = "Enter Descriptive Content"
                Case Else
                    ActiveDocument.ContentControls(2).Range = "Enter Reference Data"
            End Select
        End If
    End If 'Optional with previous optional line
End Sub

Unk · #2 04-19-2015, 10:07 PM

gmayor:

Thanks, I was saving it as a macro-enabled doc, the problem seems to have been that I was putting the code in the project (in the document, basically) rather than in a template. I moved it into the normal template and the code now stays when I close and reopen. I think creating a template for this document and then creating new ones from that will be the way to go, just learning about all that,

Thanks very much for the advice about the placeholder text, that works.