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

守柔 · 发表于 2005-9-17 09:25

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

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

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

wangwei · 发表于 2005-9-19 17:39

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

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

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

[em17]

wangwei · 发表于 2005-9-20 16:49

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

又重写了代码，请指点！

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编辑过]

守柔 · 发表于 2005-9-21 07:23

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

以下代码供参考：

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 · 发表于 2005-9-21 08:17

多谢守柔版主指点！

javinking · 发表于 2010-4-16 17:23

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

dwchung · 发表于 2011-7-20 18:06

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

zxzy · 发表于 2013-1-23 14:09

学习认真。

QQ107172400 · 发表于 2015-7-16 08:37

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

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

fenghuaxue · 发表于 2023-3-24 10:03

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

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

		自动登录	找回密码
密码			免费注册