Set mydoc = .Documents.Add(Template:=ThisWorkbook.Path&("\") & "销售报告.doc", Visible:=True)
改成:Set mydoc = .Documents.Add(Template:=ThisWorkbook.Path & "\" & "销售报告.doc", Visible:=True)
mydoc.SaveAs ThisWorkbook.Path&("\") & Model & ".doc", wdFormatDocument
改成:mydoc.SaveAs ThisWorkbook.Path & "\" & Model & ".doc", wdFormatDocument