Excel新建word遇到的问题.

ningyong58

Sub Createword()
   Dim appWD As Object 'Word.Application
   Set appWD = CreateObject("Word.Application")
   Dim Wd As Word.Document
   Set Wd = appWD.Documents.Add
   
   appWD.Visible = True
   Wd.Range = 123456
End Sub
"引用" 项选择word程序通过
   Dim Wd As Word.Document
   Set Wd = appWD.Documents.Add


"引用" 项没有选择word程序,程序不通过
   Dim Wd As Object
   Set Wd = appWD.Documents.Add



两种方法表现结果
  Dim Wd As Word.Document
   Wd.Range = 123456  '--在Word中,光标处,显示123456这个数据

  Dim Wd As Object
   Wd.Range = 123456  '--错误提示见上图.

详见附件
Book1.rar (4.89 KB, 下载次数: 5)

2010-2-3 23:16 上传

点击文件名下载附件

[ 本帖最后由 ningyong58 于 2010-2-3 23:16 编辑 ]

mineshine

参见4楼代码
如何遍历用CreateObject("Word.Application")创建的文档？
http://club.excelhome.net/redire ... 2&goto=lastpost

lhteee

按照提供的方法出现下列提示。

mineshine

我在OfficeXP下测试可以使用
或者你参考这个2楼Office2007版本吧
请问如何在excel的中新建一个word文档
http://club.excelhome.net/thread-374705-1-16.html

ningyong58

谢谢各位大侠的参与
从理论讲Set newDoc1 = wdApp.Documents.Add是可行的,

试一下这段程序是可操作,有时间再看一下,原来发帖的原因在哪里.
Sub Test()
Dim wdApp As Object, newDoc1 As Object, Doc As Object
On Error GoTo Extsub
Set wdApp = GetObject(, "Word.Application")
wdApp.Visible = True
Set newDoc1 = wdApp.Documents.Add
'newDoc1.SaveAs "C:\newdoc1.doc"
For Each Doc In wdApp.Documents
    Debug.Print Doc.Name
Next
Exit Sub
Extsub: Set wdApp = CreateObject("Word.Application")
Resume Next
End Sub