Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey, http://gregmaxey.com/word_tips.html, 9/25/2018
Dim oCC As ContentControl
Dim oNode As CustomXMLNode
  For Each oCC In ActiveDocument.ContentControls
    If oCC.XMLMapping.IsMapped Then
      Set oNode = oCC.XMLMapping.CustomXMLNode.SelectSingleNode(oCC.XMLMapping.XPath)
      MsgBox oNode.Text
      Set oNode = Nothing
    End If
  Next oCC
lbl_Exit:
  Exit Sub
End Sub