Ms Access ReportOutput to MsWord but FormattingOut

[imfarhan]

Hi All,

<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
I have got a report generate the output in excel is fine, but the user would like to see the output in Ms Word.
I have used the following code to generate the results in Ms Word , the results are fine but the formatting is out.
<o></o>
appAccess.DoCmd.OutputTo acOutputReport, ReportName, OPType, DestinationPath & DestinationName<o></o>

To get the right format(Borders on Table ) I can generate the output on SNP format. But I would like the output only in DOC format so the user can further edit as per their requirement

I would be grateful if you could give any suggestion please.

Many thanks
Regards
Farhan

Trying to use the following VBA code but giving me error UserDefined Type not defined
The following code i'm trying to use on MsAccess-2003
Sub Export_Word()<o></o>
<o></o>

Dim rsdata As New ADODB.Recordset<o></o>
Dim strSql As String<o></o>
<o></o>
strSql = "SELECT * FROM Table1;"<o></o>
rsdata.Open strSql, CurrentProject.Connection<o></o>
<o></o>
Dim oWord As Word.Application<o></o>
Dim oDoc As Word.Document<o></o>
Set oWord = New Word.Application<o></o>
Set oDoc = New Word.Document<o></o>
<o></o>
oDoc.ActiveWindow.Selection.Tables.Add Range:=oDoc.ActiveWindow.Selection.Range, numrows:=1, numcolumns:=3<o></o>
'numcolumns:= has to be customized<o></o>
<o></o>
'Create headers<o></o>
oDoc.Tables(1).Columns(1).Cells(1).Range.Text = "..test1.."<o></o>
oDoc.Tables(1).Columns(2).Cells(1).Range.Text = "..test2.."<o></o>
oDoc.Tables(1).Columns(3).Cells(1).Range.Text = "..test3.."<o></o>
'etc.<o></o>
<o></o>
'Export Data<o></o>
i = 1<o></o>
Do Until rsdata.EOF<o></o>
oDoc.Tables(1).Columns(1).Cells.Add<o></o>
oDoc.Tables(1).Columns(1).Cells(i + 1).Range.Text = rsdata.Fields(0)<o></o>
oDoc.Tables(1).Columns(2).Cells(i + 1).Range.Text = rsdata.Fields(1)<o></o>
oDoc.Tables(1).Columns(3).Cells(i + 1).Range.Text = rsdata.Fields(2)<o></o>
'etc.<o></o>
i = i + 1<o></o>
<o></o>
rsdata.MoveNext<o></o>
<o></o>
Loop<o></o>
<o></o>
oDoc.ActiveWindow.Document.SaveAs ("C:\Export.doc")<o></o>
<o></o>
oDoc.ActiveWindow.Document.Close True<o></o>
oWord.Quit True<o></o>
Set oDoc = Nothing<o></o>
Set oWord = Nothing<o></o>
<o></o>
rsdata.Close<o></o>
Set rsdata = Nothing<o></o>

 

[SydneyGeek]

Did you set a reference to Word?

Also, as you have seen, outputting an Access report to Word without using some automation doesn't give the correct layout. That is because the output is rtf, and lines / logos etc don't get reproduced.

Denis

 

[imfarhan]

Thanks a lot Denis,
I just add the reference obje "MS Word 9.0 object library" and its works..
But the formatting need to be done meaning Borders created which is good but would like to change the layout of the word document It should be landscape because I have got around 13 coulums in the source table.

I hope, you people have no problem if I can post more related to same problem if I get stuck through any formatting issue i.e. layout change, header and so on.

Many thanks
Farhan

 

[SydneyGeek]

You get a lot more control by building the Word file as you want it, then merging the Access data to that document.
If you go to http://www.helenfeddema.com and download article #141 from the Access Archon page you will get a detailed example of how to do it.

Denis