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

桂M007

如图1:固定的WORD文档格式
F8ZzEjmT.rar (17.39 KB, 下载次数: 228)

2008-9-13 10:22 上传

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

[此贴子已经被作者于2008-9-17 16:12:58编辑过]

hupanshan

这项工作用Word的邮件合并实现比较方便。

不过，"牛肉项目"这四个字从哪里来？

dsp5000

呵呵，这么一个一个输入可是够辛苦的。

albert

是啊，邮件合并功能即可。原来的excel表格要重新设计一下。

一定要使用宏，做界面实现吗？

hhzjxss

想看看有什么好办法！

skywindzl

等待看看又没有好的方法~

TeF

QUOTE:

以下是引用skywindzl在2008-9-5 12:50: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>

复制代码

hhzjxss

学习楼主的方法了！

hhzjxss

QUOTE:

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

    
    '开始向WORD文件写入内容，采用写word预置在模板中的书签的方法。

    myWord.Bookmarks("文号1").Range = CurrentNum
      
  

我测试了一下，因为没有模板，所以不成功，请上传“上行文模板.DOT”模板好吗？

[此贴子已经被作者于2008-9-9 8:37:47编辑过]

寅鹞

QUOTE:

以下是引用hhzjxss在2008-9-9 8:37:00的发言：

我测试了一下，因为没有模板，所以不成功，请上传“上行文模板.DOT”模板好吗？

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

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

[此贴子已经被作者于2008-9-10 14:50:17编辑过]