以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  有關DLL  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=27496)
--  作者：catyin1989
--  发布时间：2013/1/2 22:19:00
--  有關DLL

在外局引用加入了 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
--  发布时间：2013/1/3 21:55:00
--  
推
--  作者：lin_hailun
--  发布时间：2013/1/4 14:25:00
--  
 原帖测试可用，但是需要注意的是，你添加引用以后，要关闭重新打开一次狐表，然后再添加一次别名才可以正常试用的。
--  作者：catyin1989
--  发布时间：2013/1/5 0:05:00
--  
添加后重新打開, 然后引用, 再重新打開, 也不能用哦, 是因為我用的是試用版嗎? >.<
--  作者：catyin1989
--  发布时间：2013/1/5 0:57:00
--  
已解決了, 謝謝~~ ><
--  作者：catyin1989
--  发布时间：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應該換成甚麼?
--  作者：狐狸爸爸
--  发布时间：2013/1/7 9:30:00
--  
这个你要查查微软的文档才行。
--  作者：lin_hailun
--  发布时间：2013/1/7 14:09:00
--  
 文档都在这里了，楼主自己啃一下吧。

http://msdn.microsoft.com/zh-cn/library/microsoft.office.interop.word
--  作者：catyin1989
--  发布时间：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
--  发布时间：2013/1/14 17:48:00
--  
 我应该给你这个文档的，你看看就懂了。

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