Line Feed

[dnayana]

I have an MS Access database that I automated to import an MS Word document into the database. When I look at a Report or Form I see weird characters that should be line feeds (the square boxes). Is there any way to correct this?
Any help would be greatly appreciated.

I am using the following code:

Public Sub GetWordData()

Dim appWord As Word.Application
Dim doc As Word.Document
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim strDocName As String
Dim blnQuitWord As Boolean
Dim strpath As String
Dim strfile As String
Dim strfilename As String

strpath = "C:\Testfolder\"
strfile = Dir("strpath & *.doc")
strfilename = strpath & strfile

On Error GoTo ErrorHandling


cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=C:\Testfolder\Customfeed.mdb;"
rst.Open "tblfeedbck", cnn, _
        adOpenKeyset, adLockOptimistic
        
' Outer WHILE
strfile = Dir(strfilename)
Do While strfile <> &quot;&quot;
    If strfile <> &quot;.&quot; And strfile <> &quot;..&quot; Then
        strDocName = strpath & strfile
        Set appWord = GetObject(, &quot;Word.Application&quot;)
        blnQuitWord = True
        Set doc = appWord.Documents.Open(strDocName)
        If ActiveDocument.ProtectionType <> wdNoProtection Then
            ActiveDocument.Unprotect
        End If
        With rst
            .AddNew
            !FRN = doc.FormFields(&quot;txtFRN&quot;).Result
            If (IsNull(doc.FormFields(&quot;dteSessionDate&quot;).Result)) Then
                !SessionDate = &quot;&quot;
            Else
                !SessionDate = doc.FormFields(&quot;dteSessionDate&quot;).Result
            End If
            If (IsNull(doc.FormFields(&quot;Dropdown1&quot;).Result)) Then
                !BranchName = &quot;&quot;
            Else
                !BranchName = doc.FormFields(&quot;Dropdown1&quot;).Result
            End If
            If (IsNull(doc.FormFields(&quot;Dropdown2&quot;).Result)) Then
                !ITName = &quot;&quot;
            Else
                !ITName = doc.FormFields(&quot;Dropdown2&quot;).Result
            End If
            If (IsNull(doc.FormFields(&quot;txtITLeadName&quot;).Result)) Then
                !ITLeadName = &quot;&quot;
            Else
                !ITLeadName = doc.FormFields(&quot;txtITLeadName&quot;).Result
            End If
            If (IsNull(doc.FormFields(&quot;txtITLExt&quot;).Result)) Then
                !ITLExt = &quot;&quot;
            Else
                !ITLExt = doc.FormFields(&quot;txtITLExt&quot;).Result
            End If
            If (IsNull(doc.FormFields(&quot;txtFSFName&quot;).Result)) Then
                !FSFName = &quot;&quot;
            Else
                !FSFName = doc.FormFields(&quot;txtFSFName&quot;).Result
            End If
            If (IsNull(doc.FormFields(&quot;txtFSFExt&quot;).Result)) Then
                !FSFExt = &quot;&quot;
            Else
                !FSFExt = doc.FormFields(&quot;txtFSFExt&quot;).Result
            End If
            If (IsNull(doc.FormFields(&quot;intNoAttendees&quot;).Result)) Then
                !NoAttendees = &quot;00&quot;
            Else
                !NoAttendees = doc.FormFields(&quot;intNoAttendees&quot;).Result
            End If
            If (IsNull(doc.FormFields(&quot;frmcombo&quot;).Result)) Then
                !PGSecNo = &quot;&quot;
            Else
                !PGSecNo = doc.FormFields(&quot;frmcombo&quot;).Result
            End If
            If (IsNull(doc.FormFields(&quot;Dropdown4&quot;).Result)) Then
                !FBSource = &quot;&quot;
            Else
                !FBSource = doc.FormFields(&quot;Dropdown4&quot;).Result
            End If
            If (IsNull(doc.FormFields(&quot;Dropdown5&quot;).Result)) Then
                !FBCategory = &quot;&quot;
            Else
                !FBCategory = doc.FormFields(&quot;Dropdown5&quot;).Result
            End If
            If (IsNull(doc.FormFields(&quot;memFBExpSummary&quot;).Result)) Then
                !FBExpSummary = &quot;&quot;
            Else
                !FBExpSummary = doc.FormFields(&quot;memFBExpSummary&quot;).Result
            End If
            If (IsNull(doc.FormFields(&quot;memFBExpDetail&quot;).Result)) Then
                !FBExpDetail = &quot;&quot;
            Else
                !FBExpDetail = doc.FormFields(&quot;memFBExpDetail&quot;).Result
            End If
            If (IsNull(doc.FormFields(&quot;memProposedAct&quot;).Result)) Then
                !ProposedAction = &quot;&quot;
            Else
                !ProposedAction = doc.FormFields(&quot;memProposedAct&quot;).Result
            End If
            If (IsNull(doc.FormFields(&quot;intNoSimilarExp&quot;).Result)) Then
                !NoSimilarExp = &quot;&quot;
            Else
                !NoSimilarExp = doc.FormFields(&quot;intNoSimilarExp&quot;).Result
            End If
            If (IsNull(doc.FormFields(&quot;Dropdown6&quot;).Result)) Then
                !FBPriority = &quot;&quot;
            Else
                !FBPriority = doc.FormFields(&quot;Dropdown6&quot;).Result
            End If
            If (IsNull(doc.FormFields(&quot;txtFBPOC&quot;).Result)) Then
                !FBPOC = &quot;&quot;
            Else
                !FBPOC = doc.FormFields(&quot;txtFBPOC&quot;).Result
            End If
            If (IsNull(doc.FormFields(&quot;txtPOCExt&quot;).Result)) Then
                !POCExt = &quot;&quot;
            Else
                !POCExt = doc.FormFields(&quot;txtPOCExt&quot;).Result
            End If
            If (IsNull(doc.FormFields(&quot;memNoAct&quot;).Result)) Then
                !AnticipatedImpactNoAction = &quot;&quot;
            Else
                !AnticipatedImpactNoAction = doc.FormFields(&quot;memNoAct&quot;).Result
            End If
            If (IsNull(doc.FormFields(&quot;memIsAct&quot;).Result)) Then
                !AnticipatedImpactIsAction = &quot;&quot;
            Else
                !AnticipatedImpactIsAction = doc.FormFields(&quot;memIsAct&quot;).Result
            End If
            .Update
        End With
    End If
    doc.Close
    strfile = Dir
Loop        ' DO WHILE strFileName<>&quot;&quot;

cnn.Close

MsgBox &quot;Document(s)Imported!&quot;

Cleanup:

If blnQuitWord Then appWord.Quit

Set rst = Nothing

Set cnn = Nothing

Set doc = Nothing

Set appWord = Nothing

Exit Sub

ErrorHandling:

Select Case Err

Case -2147022986, 429

    Set appWord = CreateObject(&quot;Word.Application&quot;)
    Resume Next

Case 5121, 5174

    MsgBox &quot;You must select a valid Word document.&quot; _
        & &quot;No data imported.&quot;, vbOKOnly, _
        &quot;Document Not Found&quot;
        
Case 5941

    MsgBox &quot;The document you selected does not&quot; _
        & &quot;contain the required form fields.&quot; _
        & &quot;No data imported.&quot;, vbOKOnly, _
        &quot;Fields Not Found&quot;

Case Else

    MsgBox Err & &quot;:&quot; & Err.Description
    
End Select

' Close the document if opened.
If (Not (doc Is Nothing)) Then
    doc.Close
End If

GoTo Cleanup
                                                                                                   
End Sub

 

[johnwm]

If it's from Word then you're probably seeing CRLF combinations. Can you just remove them?

strNew = Replace(strOld, vbCRLF, "&quot

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'People who live in windowed environments shouldn't cast pointers.'