View Single Post
 
Old 09-26-2018, 10:31 AM
gmaxey gmaxey is offline Windows 7 32bit Office 2016
Expert
 
Join Date: May 2010
Location: Brasstown, NC
Posts: 1,617
gmaxey is just really nicegmaxey is just really nicegmaxey is just really nicegmaxey is just really nicegmaxey is just really nice
Default

Your content control in the document showing "Contract" is a richtext content control. The "Value" stored in the customXMLPart is the entire OpenOfficeXMLContent package associated with a word document which contains the single word "Contract."

You can see this if you delete the content control and insert a new mapped "Plain Text" CC to that node. You will end up with several pages of XML gobbledeegook.

You can extract the text content from that using:

Code:
Sub ScratchMacro2()
'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
Dim strContent As String
Dim arrParts() As String
  For Each oCC In ActiveDocument.ContentControls 'You only have one.
    If oCC.XMLMapping.IsMapped Then
      Set oNode = oCC.XMLMapping.CustomXMLNode.SelectSingleNode(oCC.XMLMapping.XPath)
      strContent = oNode.Text
      arrParts = Split(strContent, "w:t>")
      strContent = Left(arrParts(1), Len(arrParts(1)) - 2)
      MsgBox strContent
      Set oNode = Nothing
    End If
  Next oCC
lbl_Exit:
  Exit Sub
End Sub
__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/
Reply With Quote