怎样利用vba自动生成word报告答:"{ksrq}" '开始日期sReplace = Format(Range("D1").Value, "YYYY年M月DD日")WordDoc.Range.Find.Execute sText, False, True, False, False, False, True, 0, False, sReplace, 2sText = "{jsrq}" '结束日期sReplace = Format(Range("F1").Value, "YYYY年M月DD日")WordDoc....