如题所述
以ä¸æ¯èªè¡ç¼åç代ç å®ä¾ç段ï¼ä¾åèï¼
'ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼'çæåææ¥å
'ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼
Private Sub btnDtyp_Click()
sPathName = ThisWorkbook.Path & "\模æ¿\" & "å¨æç å¤åæ.doc"
Set WordApp = CreateObject("Word.Application") 'çæWORD对象
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Add(sPathName)
With Sheet6
sText = "{ksrq}" 'å¼å§æ¥æ
sReplace = Format(Range("D1").Value, "YYYYå¹´MæDDæ¥")
WordDoc.Range.Find.Execute sText, False, True, False, False, False, True, 0, False, sReplace, 2
sText = "{jsrq}" 'ç»ææ¥æ
sReplace = Format(Range("F1").Value, "YYYYå¹´MæDDæ¥")
WordDoc.Range.Find.Execute sText, False, True, False, False, False, True, 0, False, sReplace, 2
sText = "{zj}" 'æ»è®¡äººæ°
sReplace = .Range("E48").Value
WordDoc.Range.Find.Execute sText, False, True, False, False, False, True, 0, False, sReplace, 2
sText = "{nan}" 'ç·æ§äººæ°
sReplace = .Range("B33").Value
WordDoc.Range.Find.Execute sText, False, True, False, False, False, True, 0, False, sReplace, 2
sText = "{nv}" '女æ§äººæ°
sReplace = .Range("B34").Value
WordDoc.Range.Find.Execute sText, False, True, False, False, False, True, 0, False, sReplace, 2
sText = "{jyrs}" 'å°±ä¸äººæ°
sReplace = .Range("B84").Value + .Range("B85").Value
WordDoc.Range.Find.Execute sText, False, True, False, False, False, True, 0, False, sReplace, 2
sText = "{jxrs}" 'å°±å¦äººæ°
sReplace = .Range("B86").Value
WordDoc.Range.Find.Execute sText, False, True, False, False, False, True, 0, False, sReplace, 2
End With
sFileName = "åæè®°å½ï¼" & Range("D1").Value & "è³" & Range("F1").Value & "ï¼.doc"
WordApp.ChangeFileOpenDirectory "E:\åææ¥å\"
WordDoc.SaveAs Filename:=sFileName, FileFormat:=wdFormatDocument
End Sub
vba自动生成word报告大多可以解决简单的逻辑替换工作,对于生成逻辑比较复杂的报告还需更加专业的生成系统才行。推荐你看看以上链接