如何把EXCEL版本的审计报告自动生成WORD版本

saifouy

我听过EXCEL单元=单元的方式实现了自动生成审计报告，但是在EXCEL里很不好排版，我想从EXCEL里直接移到WORD吧，直接COPY只能一行行地弄，全部复制再粘贴，又把EXCEL的格式带过去了。请问有没有好的办法？

mourintong

你搜下邮件合并，大概就是一样的玩法

7176386

邮件合并不建议采纳。最好在excel用代码控制好科目的数据源生成附注后用代码附注进word即可。邮件合并定死的一个往来15行。如果一家公司有点大的话你的版本就不能用了。还要填写哪里的域。等等。excel 2003版本的就256列。。。哈哈。、

saifouy

7176386 发表于 2013-3-20 22:55
邮件合并不建议采纳。最好在excel用代码控制好科目的数据源生成附注后用代码附注进word即可。邮件合并定死的 ...

"最好在excel用代码控制好科目的数据源生成附注后用代码附注进word"
请问这个具体要怎么干呢？

saifouy

比如这个表。表里的数据如果都填写好了，如何自动转换为WORD呢？因为我们是大量出报告。如果一个个人工去转太麻烦了

saifouy

而且出的审计报告。有标题有文号，文章标题和段落标题要带格式。这个真心不懂如何自动转换了
我看他们弄的WORD里面写个EXVSDWERFDASF神马的就能直接从EXCEL考过来了。开始具体要如何去操作呢？

7176386

saifouy 发表于 2013-7-10 11:37
而且出的审计报告。有标题有文号，文章标题和段落标题要带格式。这个真心不懂如何自动转换了
我看他们弄的 ...

1. Option Explicit
   
2. Sub 简易生成()
   
3. Dim Myword As Object
   
4. Dim Wordapp As Object
   
5. Dim Mypath As String
   
6. Application.DisplayAlerts = False
   
7. Application.ScreenUpdating = False
   
8. Mypath = ThisWorkbook.Path
   
9. Set Wordapp = CreateObject("word.Application")
   
10. Set Myword = Wordapp.Documents.Add
    
11. With Sheets("审计报告")
    
12.   .Range("A8:D31").Copy
    
13. End With
    
14. With Wordapp
    
15.   .Visible = True '设置word为可见
    
16.   .Activate
    
17.   .Selection.PasteExcelTable False, False, False
    
18.    With Myword
    
19.     .SaveAs Filename:=Mypath & "" & "测试文档"
    
20.     .Close
    
21.    End With
    
22.   .Quit
    
23. End With
    
24. Set Myword = Nothing
    
25. Set Wordapp = Nothing
    
26. Application.CutCopyMode = False
    
27. Application.DisplayAlerts = True
    
28. Application.ScreenUpdating = True
    
29. MsgBox "文档已成功输出至当前文档下！", 64
    
30. End Sub

复制代码

今天才看到好久没上了。这个只是一个例子。自己学习的时候也要灵活运用其实想过去不难的。附件上传不上去郁闷。

7176386

saifouy 发表于 2013-7-10 11:37
而且出的审计报告。有标题有文号，文章标题和段落标题要带格式。这个真心不懂如何自动转换了
我看他们弄的 ...

附件后补。

saifouy

7176386 发表于 2013-7-12 22:34
附件后补。

非常棒！
你居然明白我想的是什么！！！亲一个！！！
八过！！我还想很过分滴提个要求：
如果我想去掉WORD里面的表格框框线，该如何去弄？？？？

lpyzh

选择全部表格，执行菜单－表格－转换－表格转换成文本　命令