Exporting Word 2007 to Access 2007

Thanks but that did not help. I still am unable to find the correct VB code to extract the data entered in a text content control.

Paul,
Ok, try this.  If this doesn't work state what error message you are getting.  Note that I am using ActiveDocument and ContentControls vs ContentControl.   I will try and pursue this for you if no other expert responds:

strTagB = ActiveDocument.ContentControls("TagB").Result


 
   

I get a Compile error: Method or data member not found

Try this ...if it doesn't work, please post more of your code so that I can see your code in context, and see how you declared the object and string variables.

strTagB = ActiveDocument.ContentControls.Item("TagB").Result

Option Explicit

Sub TransferShipper()
  'Transfer new shipping company record to
  'Shippers table in Northwind database.
  Dim cnn As ADODB.Connection
  Dim strConnection As String
  Dim strSQL As String
  Dim strPath As String
  Dim doc As Word.Document
  Dim strTagA As String
  Dim strTagB As String
  Dim bytContinue As Byte
  Dim lngSuccess As Long
 
  Set doc = ThisDocument
  On Error GoTo ErrHandler
 
  strTagA = ActiveDocument.ContentControls.items("TagA").Results
 
 
 
  'strTagB = doc.ContentControl("TagB").Result
 
  'strTagA = Chr(39) & doc.FormFields("txtTagA").Result & Chr(39)
  'strTagB = Chr(39) & doc.FormFields("txtTagB").Result & Chr(39)

  'Confirm new record.
  bytContinue = MsgBox("Do you want to insert this record?", vbYesNo, "Add Record")
  Debug.Print bytContinue
  'Process input values.
  If bytContinue = vbYes Then
    strSQL = "INSERT INTO Shippers" _
     & "(TagA, TagB) " _
     & "VALUES (" _
     & strTagA & ", " _
     & strTagB & ")"
    Debug.Print strSQL
    'Substitute path and connection string with DSN if available.
    strPath = "C:\Documents and Settings\BigDog\My Documents\Work 09\Sponsored Programs\Nwind.accdb"
   
    'strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" _& "Data Source = " & strPath
     
     
    strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" _
     & "Data Source = " & strPath
     
    Debug.Print strConnection
    Set cnn = New ADODB.Connection
    cnn.Open strConnection
    cnn.Execute strSQL, lngSuccess
    cnn.Close
    MsgBox "You inserted " & lngSuccess & " record", _
     vbOKOnly, "Error Added"
    doc.FormFields("txtTagA").TextInput.Clear
    doc.FormFields("txtTagB").TextInput.Clear
  End If
 
  Set doc = Nothing
  Set cnn = Nothing
  Exit Sub
 
ErrHandler:
  MsgBox Err.Number & ": " & Err.Description, _
   vbOKOnly, "Error"
  On Error GoTo 0
  On Error Resume Next
  cnn.Close
  Set doc = Nothing
  Set cnn = Nothing
End Sub

Finally, I found a code that works. I now get an error at the "cnn.Execute strSql, lngSuccess" line.

Error: -214721900: Syntax error (missing operator) in query expression 'TabA entry'.

TabA entry is the test data in content control TabA.

-------------------------------


Option Explicit

Sub TransferShipper()
  'Transfer new shipping company record to
  'Shippers table in Northwind database.
  Dim cnn As ADODB.Connection
  Dim strConnection As String
  Dim strSQL As String
  Dim strPath As String
  Dim doc As Word.Document
  Dim strTagA As String
  Dim strTagB As String
  Dim bytContinue As Byte
  Dim lngSuccess As Long
 
  Set doc = ThisDocument
  On Error GoTo ErrHandler
 
  strTagA = ActiveDocument.SelectContentControlsByTitle("TagA").Item(1).Range.Text
  strTagB = ActiveDocument.SelectContentControlsByTitle("TagB").Item(1).Range.Text
   
  'Confirm new record.
  bytContinue = MsgBox("Do you want to insert this record?", vbYesNo, "Add Record")
  Debug.Print bytContinue
  'Process input values.
  If bytContinue = vbYes Then
    strSQL = "INSERT INTO Shippers" _
     & "(TagA, TagB) " _
     & "VALUES (" _
     & strTagA & ", " _
     & strTagB & ")"
    Debug.Print strSQL
    'Substitute path and connection string with DSN if available.
    strPath = "C:\Documents and Settings\BigDog\My Documents\Work 09\Sponsored Programs\Nwind.accdb"
   
    strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source = " & strPath
     
    Debug.Print strConnection
    Set cnn = New ADODB.Connection
    cnn.Open strConnection
    cnn.Execute strSQL, lngSuccess
    cnn.Close
    MsgBox "You inserted " & lngSuccess & " record", _
     vbOKOnly, "Error Added"
    doc.FormFields("txtTagA").TextInput.Clear
    doc.FormFields("txtTagB").TextInput.Clear
  End If
 
  Set doc = Nothing
  Set cnn = Nothing
  Exit Sub
 
ErrHandler:
  MsgBox Err.Number & ": " & Err.Description, _
   vbOKOnly, "Error"
  On Error GoTo 0
  On Error Resume Next
  cnn.Close
  Set doc = Nothing
  Set cnn = Nothing
End Sub

Using the Execute method on a Connection Object (ADO) object executes whatever sql you pass to it and returns a closed Recordset if there are results and they are from a sql select statement.
                    http://msdn.microsoft.com/en-us/library/ms675023(VS.85).aspx

so change this:       cnn.Execute strSQL, lngSuccess
to this:                Set recordset = cnn.Execute strSQL, lngSuccess

In addition, I think you are closing your connection too soon.  Try moving the cnn.Close statement to the line between the End If and Set doc = Nothing

I found a snytax that will extract the data from the content controls.

strDateSubmitted = ActiveDocument.SelectContentControlsByTitle("DateSubmitted").Item(1).Range.Text

If a content control does not have data entered, I get an error stateing that it is missing operator in the query expression. Is there code to entry null values or  create a msgbox relating the missing data?

Try the nz string function which converts nulls to spaces:  

strDateSubmitted = ActiveDocument.SelectContentControlsByTitle(nz("DateSubmitted", "")).Item(1).Range.Text

This looks like something I could use. The next issue is when a content control is not filled in, I get a error. How can I code this to allow for empty entries. I can use a If statement to check for content but the argument needs to read If strDateSubmitted = "Click here to enter text." then... to relay the present content.

If nulls and spaces are both a problem, try this way:

If nz("DateSubmitted", "") = "" Then
      MsgBox "You must enter the date submitted."
      Exit Sub
Else
      strDateSubmitted = ActiveDocument.SelectContentControlsByTitle("DateSubmitted").Item(1).Range.Text
End If

Looks and works great. I am using this as a marco attached to a .docm word file. The objective is to permit users to fill in some information and after review, be stored in a Access database. On problem now arises when the .docm file is opened on others computers, the maroc seems to disappear.