excel怎樣自動(dòng)生成word報(bào)告？

?Private?Sub?cmd_makedoc_Click()On?Error?GoTo?Err_cmdExportToWord_Click ????Dim?objApp?As?Object?'Word.Application????Dim?objDoc?As?Object?'Word.Document????Dim?strTemplates?As?String?'模板文件路徑名????Dim?strFileName?As?String?'將數(shù)據(jù)導(dǎo)出到此文件????Dim?i?As?Integer ????Dim?contact_NO?As?String ????Dim?side_A?As?String ????Dim?side_B?As?String ????i?=?ActiveCell.Row ????contact_NO?=?Cells(i,?1) ????side_A?=?Cells(i,?2) ????side_B?=?Cells(i,?3) ? ????With?Application.FileDialog(msoFileDialogFilePicker) ?????????.Filters.Add?"word文件",?"*.doc*",?1 ?????????.AllowMultiSelect?=?False ?????????If?.Show?Then?strTemplates?=?.SelectedItems(1)?Else?Exit?Sub ????End?With ??'通過文件對(duì)話框生成另存為文件名????With?Application.FileDialog(msoFileDialogSaveAs) ????????'.InitialFileName?=?CurrentProject.Path?&?""?&?contact_NO?&?".doc"????????.InitialFileName?=?contact_NO?&?".doc" ????????If?.Show?Then?strFileName?=?.SelectedItems(1)?Else?Exit?Sub ????End?With ????'文件名必須包括“.doc”的文件擴(kuò)展名，如沒有則自動(dòng)加上????If?Not?strFileName?Like?"*.doc"?Then?strFileName?=?strFileName?&?".doc" ????'如果文件已存在，則刪除已有文件????If?Dir(strFileName)??""?Then?Kill?strFileName ????'打開模板文件????Set?objApp?=?CreateObject("Word.Application") ????objApp.Visible?=?True ????Set?objDoc?=?objApp.Documents.Open(strTemplates,?,?False) ? ??'開始替換模板預(yù)置變量文本???With?objApp.Application.Selection ????????.Find.ClearFormatting ????????.Find.Replacement.ClearFormatting ????????With?.Find ?????????????.Text?=?"{$合同編號(hào)}" ?????????????.Replacement.Text?=?contact_NO ????????End?With ????????.Find.Execute?Replace:=wdReplaceAll ? ????????With?.Find ?????????????.Text?=?"{$甲方}" ?????????????.Replacement.Text?=?side_A ????????End?With ????????.Find.Execute?Replace:=wdReplaceAll ? ???????With?.Find ????????????.Text?=?"{$乙方}" ????????????.Replacement.Text?=?side_B ???????End?With ???????.Find.Execute?Replace:=wdReplaceAll ????End?With ? ????'將寫入數(shù)據(jù)的模板另存為文檔文件????objDoc.SaveAs?strFileName ????objDoc.Saved?=?True???????????? ????MsgBox?"合同文本生成完畢！",?vbYes?+?vbExclamationExit_cmdExportToWord_Click: ????If?Not?objDoc?Is?Nothing?Then?objApp.Visible?=?True ????Set?objApp?=?Nothing ????Set?objDoc?=?Nothing ????Set?objTable?=?Nothing ????Exit?SubErr_cmdExportToWord_Click: ????MsgBox?Err.Description,?vbCritical,?"出錯(cuò)" ????Resume?Exit_cmdExportToWord_ClickEnd?Sub