Export report as RTF but save file name as .doc

[Ruegen]

I am using:

Dim strSql As String
Dim dlgOpen As FileDialog
    Set dlgOpen = Application.FileDialog(msoFileDialogSaveAs)
    With dlgOpen
        .InitialFileName = Me.CboArea.Column(1) & ".doc"
        .Show
        
    End With
    
    
strSql = "SELECT tblShows.ID, tblShows.ShowName, tblShows.Blurb, tblShowTour.DateTouringFrom, tblShowTour.DateTouringUntil, tblShowTour.TypeID, tblShowTour.AreasID, tblShowTour.YearID " & vbCrLf & _
"FROM tblYear INNER JOIN (tblType INNER JOIN (tblTerms INNER JOIN (tblStates INNER JOIN (tblShows INNER JOIN (tblAreas INNER JOIN tblShowTour ON tblAreas.ID = tblShowTour.AreasID) ON tblShows.ID = tblShowTour.ShowsID) ON tblStates.ID = tblAreas.StatesID) ON tblTerms.ID = tblShowTour.TermsID) ON tblType.ID = tblShowTour.TypeID) ON tblYear.ID = tblShowTour.YearID " & vbCrLf & _
"WHERE (((tblShowTour.TypeID)=[Forms]![frmOrganiser]![CboType]) AND ((tblShowTour.AreasID)=[forms]![frmOrganiser]![CboArea]) AND ((tblShowTour.YearID)=[forms]![frmOrganiser]![CboYear]));"


    DoCmd.OpenReport "rptPrintOut", acViewPreview, strSql, "", acHidden
    DoCmd.SelectObject acReport, "rptPrintOut"
    DoCmd.OutputTo acOutputReport, "rptPrintOut", acFormatRTF, dlgOpen & Me.CboArea.Column(1) & ".doc", False
    DoCmd.Close acReport, "rptPrintOut"

I need help with the file name - it does give me the right save file name however I get FileDialog(msoFileDialogSaveAs) in front of my file name... any help of course appreciated

[Ruegen]

*Makes a shrine to the June7 god*

[ranman256]

Access doesnt save as Word docs....you'd have to save the RTF then open Word and convert it...

Sub SaveAsWordDoc(ByVal pvFile)
Dim wrd As Word.Application
Dim vNewfile
Set wrd = CreateObject("word.Application")
wrd.Documents.Open pvFile
wrd.Visible = True
vNewfile = pvFile & ".doc"
wrd.Documents(1).SaveAs vNewfile, 0
wrd.Quit
Set wrd = Nothing
End Sub

DONT forget the Word REFERENCE in VBE..

[Ruegen]

Access doesnt save as Word docs....you'd have to save the RTF then open Word and convert it...

Sub SaveAsWordDoc(ByVal pvFile)
Dim wrd As Word.Application
Dim vNewfile
Set wrd = CreateObject("word.Application")
wrd.Documents.Open pvFile
wrd.Visible = True
vNewfile = pvFile & ".doc"
wrd.Documents(1).SaveAs vNewfile, 0
wrd.Quit
Set wrd = Nothing
End Sub

DONT forget the Word REFERENCE in VBE..

I'm guessing this requires and opens Word - neither of which I want due to staff running run time.

I'd prefer to have good file naming using the code I supplied above...