关于按格式导出WORD的问题

Private Sub cmdJoinString_Click()
 Dim db As dao.Database
 Dim rst As dao.Recordset
 Dim m As String

 Dim wordApp As Object
Dim wordDoc As Object

Set db = CurrentDb
Set rst = db.OpenRecordset("表1", dbOpenDynaset)
 Do Until rst.EOF
 m = m & "," & rst!电话一 & "," & rst!电话二
 rst.MoveNext
 Loop
  m = Right(m, Len(m) - 1)
Set rst = Nothing

Set wordApp = CreateObject("Word.application")
wordApp.Visible = True
Set wordDoc = wordApp.Documents.Add
wordApp.Visible = True
With wordApp.Selection
    .Font.Name = "微软雅黑"
    .Font.Size = 10
    .TypeText Text:=m
   
End With
wordDoc.SaveAs "导出格式.docx"
Set wordApp = Nothing
Set wordDoc = Nothing

End Sub