Foxtable(狐表)用户栏目专家坐堂 → 有關DLL


  共有8648人关注过本帖树形打印复制链接

主题:有關DLL

美女呀,离线,留言给我吧!
catyin1989
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:165 积分:1647 威望:0 精华:0 注册:2012/9/12 21:46:00
有關DLL  发帖心情 Post By:2013/1/2 22:19:00 [只看该作者]

在外局引用加入了 Microsoft.Office.Interop.word.dll

命名空間為 Microsoft.Office.Interop.word.dll, 空間別名為 MSWord

然後在某窗口寫下代碼: Dim App As New MSWord.Application, 出現錯誤: 型別 MSWord.Application 未定義

 

是遺留了甚麼設定嗎?

 

dll是下載和參考這個帖子的: http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=14778&replyID=&skin=1


 回到顶部
美女呀,离线,留言给我吧!
catyin1989
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:165 积分:1647 威望:0 精华:0 注册:2012/9/12 21:46:00
  发帖心情 Post By:2013/1/3 21:55:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
lin_hailun
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2013/1/4 14:25:00 [只看该作者]

 原帖测试可用,但是需要注意的是,你添加引用以后,要关闭重新打开一次狐表,然后再添加一次别名才可以正常试用的。

 回到顶部
美女呀,离线,留言给我吧!
catyin1989
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:165 积分:1647 威望:0 精华:0 注册:2012/9/12 21:46:00
  发帖心情 Post By:2013/1/5 0:05:00 [只看该作者]

添加后重新打開, 然后引用, 再重新打開, 也不能用哦, 是因為我用的是試用版嗎? >.<

 回到顶部
美女呀,离线,留言给我吧!
catyin1989
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:165 积分:1647 威望:0 精华:0 注册:2012/9/12 21:46:00
  发帖心情 Post By:2013/1/5 0:57:00 [只看该作者]

已解決了, 謝謝~~ ><

 回到顶部
美女呀,离线,留言给我吧!
catyin1989
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:165 积分:1647 威望:0 精华:0 注册:2012/9/12 21:46:00
  发帖心情 Post By:2013/1/6 20:21:00 [只看该作者]

請問運用word的話, 有VBA的列表嗎?

例如EXCEL, 要列印就需要
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
WS.print

但是轉換成WORD的話, 這裡的MsExcel.WorkBook要換成MsWord.Document,
MSExcel.Worksheet應該換成甚麼?



 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/1/7 9:30:00 [只看该作者]

这个你要查查微软的文档才行。

 回到顶部
帅哥哟,离线,有人找我吗?
lin_hailun
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2013/1/7 14:09:00 [只看该作者]

 文档都在这里了,楼主自己啃一下吧。

http://msdn.microsoft.com/zh-cn/library/microsoft.office.interop.word

 回到顶部
美女呀,离线,留言给我吧!
catyin1989
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:165 积分:1647 威望:0 精华:0 注册:2012/9/12 21:46:00
  发帖心情 Post By:2013/1/12 22:10:00 [只看该作者]

看不懂文呀... 試過以下的都不行... 有誰能幫幫忙把適合的代碼找出來嗎? >.<

Dim wdPrintOutPages1 As WdPrintOutPages = WdPrintOutPages.wdPrintAllPages

Dim Background As
				Object
				Dim Append As
				Object
				Dim Range As
				Object
				Dim OutputFileName As
				Object
				Dim
				From
				As
				Object
				Dim
				To
				As
				Object
				Dim Item As
				Object
				Dim Copies As
				Object
				Dim Pages As
				Object
				Dim PageType As
				Object
				Dim PrintToFile As
				Object
				Dim Collate As
				Object
				Dim FileName As
				Object
				Dim ActivePrinterMacGX As
				Object
				Dim ManualDuplexPrint As
				Object
				Dim PrintZoomColumn As
				Object
				Dim PrintZoomRow As
				Object
				Dim PrintZoomPaperWidth As
				Object
				Dim PrintZoomPaperHeight As
				Object
				Dim _Application1 As _Application
_Application1.PrintOut(Background, Append, Range, OutputFileName, From, To, Item, Copies, Pages, PageType, PrintToFile, Collate, FileName, ActivePrinterMacGX, ManualDuplexPrint, PrintZoomColumn, PrintZoomRow, PrintZoomPaperWidth, PrintZoomPaperHeight)

 回到顶部
帅哥哟,离线,有人找我吗?
lin_hailun
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2013/1/14 17:48:00 [只看该作者]

 我应该给你这个文档的,你看看就懂了。

http://msdn.microsoft.com/zh-cn/library/tcyt0y1f%28v=vs.80%29.aspx

 回到顶部