[求助]EXCEL自动生成WORD问题

桂M007

QUOTE:

以下是引用寅鹞在2008-9-9 9:28:00的发言：

模板可以自己建立啊，人家的模板你怎么能适用呢？

不过楼主的附件和牛肉面完全不沾边啊！

[em06][em06],我觉得两者同理呀

寅鹞

QUOTE:

以下是引用桂M007在2008-9-11 12:34:00的发言：

[em06][em06],我觉得两者同理呀

HB1AOrX2.rar (13.56 KB, 下载次数: 201)

2008-9-12 11:28 上传

点击文件名下载附件
[求助]EXCEL自动生成WORD问题

看看这个符合不符合你牛肉面的要求

桂M007

QUOTE:

以下是引用寅鹞在2008-9-12 11:29:00的发言：

ycT3SBlY.rar (19.39 KB, 下载次数: 123)

2008-9-12 17:43 上传

点击文件名下载附件
[求助]EXCEL自动生成WORD问题

桂M007

QUOTE:

以下是引用TeF在2008-9-5 19:19:00的发言：

大量的文件合并建议用邮件合并功能。

少量的匹配输出用以下代码：

1. </p><p>Public Sub cmdOutput_Click()<br/>&nbsp;&nbsp;&nbsp; On Error Resume Next<br/><br/>&nbsp;&nbsp;&nbsp; '声明Word应用程序对象及文档对象<br/>&nbsp;&nbsp;&nbsp; Dim WordAPP As Object, myWord As Object<br/>&nbsp;&nbsp;&nbsp;&nbsp;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br/>&nbsp;&nbsp;&nbsp; '实例化Word对象，从模板生成新文件<br/>&nbsp;&nbsp;&nbsp; Set WordAPP = CreateObject("Word.Application")<br/>&nbsp;&nbsp;&nbsp; Set myWord = WordAPP.documents.Open(Filename:=Application.Activeworkbook.path &amp; "\上行文模板.DOT")<br/>&nbsp;&nbsp;&nbsp;&nbsp;WordAPP.Visible = True<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;<font color="#ff0000"> '开始向WORD文件写入内容，采用写word预置在模板中的书签的方法。<br/><br/>&nbsp;&nbsp;&nbsp; myWord.Bookmarks("文号1").Range = CurrentNum<br/></font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br/>&nbsp;&nbsp;&nbsp;&nbsp;<br/>&nbsp;&nbsp;&nbsp; '新文档以文号命名保存[可根据需求以主题命名<br/>&nbsp;&nbsp;&nbsp; myWord.SaveAs Filename:=Fullname<br/>&nbsp;&nbsp;&nbsp;&nbsp;<br/><br/>&nbsp;&nbsp; myWord.Close<br/>&nbsp;&nbsp; WordAPP.Quit<br/>&nbsp; Set myWord = Nothing<br/>&nbsp; Set WordAPP = Nothing</p><p>End Sub<br/></p><p>

复制代码

能够搞个样品出来吗？

[em06][em06][em06][em06]

fydm

路过学习

bfgsbfgs

kankan

ahzll

在Excel取数助手中有相应功能，点模板套用，然后套用自动生成分析文档，无需编程。

ahzll

在Excel取数助手中有相应功能，点模板套用，然后套用自动生成分析文档，无需编程。

tclnxc

各位高手讲的内容本门外汉都不太懂,可否作一个实用的程序范例,我们可以套用,谢谢!

andyguo0537

来学习了。