Sending Text to MS Word

[klove1209]

Hi,
Does anyone have any suggestions on how I could send a paragraph of text to a MS Word document? I used a print# statement, but that would only allow text to appear in a .txt file.

Thanks

[ADezii]

Hi,
Does anyone have any suggestions on how I could send a paragraph of text to a MS Word document? I used a print# statement, but that would only allow text to appear in a .txt file.

Thanks

I am assuming that you are sending this paragraph of Text from an Access Text Box (we'll call it [txtWriteToWord] to a Microsoft Word Document. The technology that you want to use is called OLE Automation. It is a very difficult subject but I have condensed it to its simplest form below. The code will transfer the contents of an Access Text Box and insert it into a Microsoft Word Document which would then become visible. It will then be up to you to Save, Print, Format, etc. Here goes...

'Declare the variable
Dim WordApp As Object
 
'Set the variable to run a new instance of Word
Set WordApp = CreateObject("Word.Application")
  'If WordApp does not contain a Word Application Object, get out
  If WordApp Is Nothing Then
    MsgBox "Could not start Word - Application will terminate", vbCritical, "Failure to Initialize"
    Exit Sub
  End If
 
'Add a New Document
WordApp.Documents.Add
 
'Add some Text (contents of [txtWriteToWord])
WordApp.Selection.TypeText CStr(Me![txtWriteToWord])
 
'Make the Word Window visible
WordApp.Visible = True