如何用EXCEL的VBA控制WORD表格？

LYYVBA

我在excel里已经有相关的一切数据，如何将这些数据传给WORD，并保存和打印？
WORD只要接收数值，不做其它设置变化之类。

请大家指点一下，谢谢！！

wjhere

'引用Word对象
'请使用普通书签，而不是窗体域，因为窗体域锁定了，可能无法操作。
Sub test()
Dim myDoc As Word.Document
Set myDoc = GetObject(ThisWorkbook.Path & "\j601.doc")
With myDoc
.Application.Visible = False
.Bookmarks("工程名称").Range.Text = Sheet1.Cells(1, 2)
.Application.Visible = True
End With

Set myDoc = Nothing
End Sub

LYYVBA

哦，谢谢指教，我吃完饭试试

LYYVBA

这几天一直自己在查书，因WORD基础差，看得很辛苦，但自己想，一定能弄好它的。

Sub userbm()
Dim myarray()
Dim wdbkmk As String
Dim wdapp As Word.Application
Dim wdrang As Word.Range
Dim mydate As String

Dim i As Integer

'Dim myDoc As Word.Document
'Set myDoc = GetObject(ThisWorkbook.Path & "\j601.doc")

myarray = Array("工程名称", "单元名称", "仪表名称", "仪表型号", "仪表位号", "制造厂", "精确度", "出厂编号", "输入", _
"允许误差", "电气源", "输出", "迁移量", "分度号", "标准表名称")

Set wdapp = GetObject(, "Word.Application")

For i = 1 To 15

Set wdrng = wdapp.ActiveDocument.Bookmarks(myarray(i - 1)).Range
wdrng.Cut
mydate = ActiveWorkbook.Worksheets("Sheet1").Cells(i, 2)
wdrng.InsertBefore (mydate)

Next i

'Set wdrng = wdapp.ActiveDocument.Bookmarks(myarray(1)).Range
'wdrng.Cut
'mydate = ActiveWorkbook.Worksheets("Sheet1").Cells(2, 2)
'wdrng.InsertBefore (mydate)

Set wdapp = Nothing

End Sub

注意，word与excel文件都要打开，当然你可以修改下我的代码。

淡淡的爱

看不懂啊，高手们，　我想哭　

ke3088

运行到仪表名称,出现集合所要求的成员不存在

ke3088

运行到仪表名称,出现"集合所要求的成员不存在"的错误,是什么原因?请予指教!谢谢!

LYYVBA

您好，你要先设置好每一个单元格的名称的。
myarray = Array("工程名称", "单元名称", "仪表名称", "仪表型号", "仪表位号", "制造厂", "精确度", "出厂编号", "输入", _
"允许误差", "电气源", "输出", "迁移量", "分度号", "标准表名称")。。。。。。

这些名称要先在WORD中设置好！

LYYVBA

我将文件上传给大家参考，呵呵，我只是编写了一部分，其余的大家自己完善吧。

ke3088

原帖由 LYYVBA 于 2009-9-15 21:07 发表
您好，你要先设置好每一个单元格的名称的。
myarray = Array("工程名称", "单元名称", "仪表名称", "仪表型号", "仪表位号", "制造厂", "精确度", "出厂编号", "输入", _
"允许误差", "电气源", "输出", "迁移量", ...

我昨天在双击你表中的窗体后,无意中发现了问题的症结所在,不过还是要谢谢你!!
还一个问题:每次使用都要设置VBA的工具--引用,可以编写代码来一次性解决这个问题吗?