VBA利用EXCEL表数据生成WORD文书代码优化！

守柔

“经审核“名称”关于“办理事项”的事项申请，特作出决定！？”在“台帐”中我没有发现这个“办理事项”字段，也是在台账中的吗？这个办理事项内容多吗？

另外，表格为何为置于文本框中？

还有，你的这个表，设计得很不好，我认为，可以修改一下，以符合和加速程序运行与定位，你看如何？

wangwei

EWbHbZC2.rar (35.88 KB, 下载次数: 32)

2005-9-19 17:33 上传

点击文件名下载附件
VBA利用EXCEL表数据生成WORD文书代码优化！

“办理事项”字段不超过十个汉字，台帐表格样式不能调整，不知要提高运行效率需要如何改动？

此事已过于麻烦守柔版主了！十分感谢版主的热心帮助！

[em17]

wangwei

M9JOXgS7.rar (35.03 KB, 下载次数: 49)

2005-9-20 16:46 上传

点击文件名下载附件
VBA利用EXCEL表数据生成WORD文书代码优化！

又重写了代码，请指点！

Private Sub CommandButton2_Click() Dim wd As New Word.Application Dim ra% ra = ActiveCell.Row wd.Documents.Add ThisWorkbook.Path + "\文书\文书.doc", False wd.Selection.GoTo wdGoToBookmark, , , "编号" wd.Selection.TypeText Cells(ra, 1) wd.Selection.GoTo wdGoToBookmark, , , "代码" wd.Selection.TypeText Cells(ra, 2) wd.Selection.GoTo wdGoToBookmark, , , "名称" wd.Selection.TypeText Cells(ra, 3) wd.Selection.GoTo wdGoToBookmark, , , "日期" wd.Selection.TypeText Cells(ra, 4) wd.Selection.GoTo wdGoToBookmark, , , "日期2" wd.Selection.TypeText Cells(ra, 4) wd.Selection.GoTo wdGoToBookmark, , , "地址" wd.Selection.TypeText Cells(ra, 5) wd.Selection.GoTo wdGoToBookmark, , , "办理事项" wd.Selection.TypeText Cells(ra, 6) wd.Selection.GoTo wdGoToBookmark, , , "名称2" wd.Selection.TypeText Cells(ra, 3) wd.Selection.GoTo wdGoToBookmark, , , "办理事项2" wd.Selection.TypeText Cells(ra, 6) wd.Visible = True End Sub

[此贴子已经被作者于2005-9-20 16:51:26编辑过]

守柔

6qlo8XFu.zip (38.31 KB, 下载次数: 326)

2005-9-21 07:22 上传

点击文件名下载附件
VBA利用EXCEL表数据生成WORD文书代码优化！

以下代码供参考：

Option Explicit Private Sub CommandButton2_Click() '请引用MICROSOFT WORD 10.0 OBJECT LIBRARY Dim appWD As Word.Application, MyDoc As Word.Document, wd As Word.Application Dim mc As String, RowId As Long On Error Resume Next '发生错误时执行下一行 RowId = ActiveCell.Row If RowId = 1 Then Exit Sub mc = Cells(RowId, 3) Set appWD = GetObject(, "Word.Application") If Err.Number <> 0 Then Err.Clear Set appWD = CreateObject("Word.Application") '创建 microsoft word 会话 End If Set MyDoc = appWD.Documents.Open(ThisWorkbook.Path & "\文书\文书.doc") With MyDoc With .Tables(1) .Cell(1, 2).Range = Cells(RowId, 3) '名称 .Cell(1, 4).Range = Cells(RowId, 2) '代码 .Cell(2, 4).Range = Cells(RowId, 5) '地址 .Cell(3, 4).Range = Cells(RowId, 4) '时间 .Cell(5, 2).Range = Cells(RowId, 6) '办理事项 End With .Content.InsertAfter "经审核" & mc & "关于" & Cells(RowId, 6) & "的事项申请，特作出决定！" & Chr(13) .Content.InsertAfter Cells(RowId, 4) .Paragraphs.Last.Alignment = wdAlignParagraphRight .Content.InsertAfter Chr(13) & Chr(13) .Content.InsertAfter "×××" .Paragraphs.Last.Alignment = wdAlignParagraphRight .SaveAs ThisWorkbook.Path & "\文书\" & mc '以名称为名保存在文书文件夹中 End With End Sub '----------------------

wangwei

多谢守柔版主指点！

javinking

这功能有点意思，学习一下

dwchung

学习了，对于经常汇总大量excel数据，并写成word文档分析报告的工作很有用。

zxzy

学习认真。

QQ107172400

守柔 发表于 2005-9-21 07:23
以下代码供参考：
Option Explicit
Private Sub CommandButton2_Click()

一看到守柔大师，我就油然起敬

fenghuaxue

守柔 发表于 2005-9-21 07:23
以下代码供参考：
Option Explicit
Private Sub CommandButton2_Click()

这个是怎么生效的，我点了没反应，谢谢