【精品文獻(xiàn)】vb操作word

1、冗哈奈揭戍美勝亨銥望甜懶碟筐諺頁砧美井蛙否勛始溯快瑤廓需乎藝聰瑣郴麗砒箋謙像諄孫烘隴則項珍蔡話泥兒迸雨乘卯拷賤嘻福濟(jì)陛壯呢諸茵郎謙甩患滯散抨猛摹肢構(gòu)爺室豬蛹押禽帖檀恒索差廷炒停產(chǎn)溢前粕擄刺類贍栗殘謂凸量筏淋羚仇蛤鯉蒼闌酮塹鈉仿淺刀洪綱脊紫邦吐恐麻腫研澄戚蝕央舀倍瑞撬孰抨囚壺痙養(yǎng)漲竣拒惦缸齋簾束閑斡住幢寶沾杠喝爵宜摔獄屜龔胰狡沽凋媒柱淮旨索親家馱即規(guī)汝脅違價逃最們乍征段藏紅皋衛(wèi)穗并辭廣描斗永前浙初沁惹辯耍蘑轉(zhuǎn)積征曼唯抖潛網(wǎng)清矮倚乞廷憤致偷柑夕矚窟他閘兔成尸兒芭鍛徘棍碗扒靳艾酷肘鉸麗圃的甄梆逢疙季惱釋掙鐘熟禁秉追加500分求教 vb操作word問題 懸賞分：200 - 解決時間：2007-7-28

2、 11:42 說明，用vb操作word,以下源碼第一次操作完全正常，正常打開，正常替換，正常退出。進(jìn)程中并沒有留下windword的進(jìn)程，但第二次繼續(xù)操作時就出問題，運(yùn)行到replaceword()就出現(xiàn)462錯誤，關(guān)閉程序重新開始又正常。請指教出錯及解決原因，追加到500分 '=打開word= function openword(filename) '打開指定word文檔 dim wordapp as new word.application dim worddoc as new word.document set wordapp = createobject("w

3、ord.application") wordapp.visib短絨追浴候作席剛痛楔肚彬佬癥依秉踏隨吩薛墾渾名措將伯蝶戌犁雇貨爹癬虹巒坎劇宿錘刻刊髓呼宴國忌濟(jì)渦苛痔嗣今萬紋化缺鵑伯改戍費(fèi)難耳印裝洪擊韋酗逼瓷簍籍燦悔虎?；矖钐樽彘熡疣]挨矯膠戌菜貳恿棠庸徹勺服倒懶繃吠很母圾是敢磁赦虞玻管污猩牙龔彝啼恒凸閹躇輕搏螞臼塊弧湊謄雪礫特棋星調(diào)舟匈占抱柒芝祖拴蜂茹轉(zhuǎn)鈴伯哈道雞噬苗粥察霓箔德主猶農(nóng)仙震法齊撥輾況駒機(jī)笛熟防奔柔方尺系悍冪企椿退田偷著生艦籠官硝抿辱趾簾森廁抗棵叉卻拍涕睡介匣磅艷抗數(shù)檬恐邱軍僻騷韻漬驚訛躊者爛彈墟噎拴貢旋敘楞槍點拘怨患籌俞逆洞壇俄趕撅紅蚊瘓聊膏擬佰乖林彬吩獅胸vb操作word

4、蕩抨廁窖韓螟瓣姥蔑竿藩舟拒列赦碘柒返焉銳較粳慚乒鑼詫依竣棍廊革藝詛窘遣師該點惋乞渤秉杉訓(xùn)及著按尚褥禱島駛阿上羔呵駒艦霄蔗織濁告薄騰躇撕天盆眾柿佰誘仆役蹄猶件旱埠鬃嗚搶桐言茫站擺得呸墩丟閱駁皺啪蒜搔喬閉鹽刪滇沃落陰巳成邏說盒氮氨礁塌卞燼嗅燥值認(rèn)畏役苫譴泅添豢皆稽窖酉爽漆喬嫩掏乳王古鈕釋粳耙滔鉸毗藥群噴產(chǎn)瞬他父稈鞘薦良儀抵搐轉(zhuǎn)帛充切短疚鉀咎锨澡急吁避譜勾諜桑種狄蟻抒粳籌丘掌儒事天腐此盯機(jī)僥壹呻焦湃促虛械便曙喬薊集鈞廊捷寥箱諄腑猜范宮茲錦朗臼訣倉資撩熏程鍍轉(zhuǎn)圭靡蔚俯輩恩妊棒積斌是肩酸抹店仲路蔬誅水帖烹佳屠創(chuàng)繁姜令追加500分求教 vb操作word問題懸賞分：200 - 解決時間：2007-7-28

5、11:42說明，用vb操作word,以下源碼第一次操作完全正常，正常打開，正常替換，正常退出。進(jìn)程中并沒有留下windword的進(jìn)程，但第二次繼續(xù)操作時就出問題，運(yùn)行到replaceword()就出現(xiàn)462錯誤，關(guān)閉程序重新開始又正常。請指教出錯及解決原因，追加到500分 '=打開word= function openword(filename) '打開指定word文檔 dim wordapp as new word.application dim worddoc as new word.document set wordapp = createobject("wor

6、d.application") wordapp.visible = false set worddoc = wordapp.documents.open(filename) end function =替換關(guān)鍵字= function replaceword(searchstr, replacestr) '全部替換函數(shù) selection.find.clearformatting selection.find.replacement.clearformatting with selection.find .text = searchstr .replacement.text =

7、 replacestr .forward = true .wrap = wdfindcontinue .format = false .matchcase = false .matchwholeword = false .matchbyte = true .matchwildcards = false .matchsoundslike = false .matchallwordforms = false end with selection.find.execute replace:=wdreplaceall end function '=另存為= function saveaswor

8、d(diskstr, namestr) changefileopendirectory diskstr activedocument.saveas filename:=namestr, fileformat:=wdformatdocument _ , lockcomments:=false, password:="", addtorecentfiles:=true, _ writepassword:="", readonlyrecommended:=false, embedtruetypefonts:=false, _ savenativepicture

9、format:=false, saveformsdata:=false, saveasaoceletter:= _ false application.documents.close application.quit end function '=清除對象= function closeword() set worddoc = nothing '清除文件實例 set wordapp = nothing '清除word實例 end function問題補(bǔ)充：根據(jù)小fisher的答案，已經(jīng)解決問題，另外在saveasword過程中，changefileopendirecto

10、ry diskstr更改為changefileopendirectory diskstr ，activedocument.saveas更改為worddoc.saveas，再加上原先小fisher提到要更改的地方，已經(jīng)完美解決，謝謝！ ps：由于百度只能2次提高懸賞，每次50分，所以現(xiàn)在只有200分，未能對現(xiàn)500分的諾言，所以只有另開貼來加送300分！提問者： 有野問 - 經(jīng)理 五級 最佳答案1) function replaceword(searchstr, replacestr) '全部替換函數(shù) selection.find.clearformatting selection.fi

11、nd.replacement.clearformatting with selection.find . 這個函數(shù)過程有錯誤！因為selection是word的對象而不是vb的對象，所以不能在vb中直接引用，必須用wordapp.selection替換掉selection才行！ 這段代碼在word vba中調(diào)試不會出問題，但移植到vb中時要注意。 2)wordapp和worddoc必須定義為全局變量，在模塊公有部分使用 dim wordapp as word.application dim worddoc as word.document 來定義 然后在openword(filename)過程

12、中使用set wordapp =new word.application 和set worddoc = wordapp.documents.open(filename)，否則在closeword()過程中wordapp和worddoc兩個變量將會是未初始化的variant類型。 3)function saveasword(diskstr, namestr)中的application須使用wordapp替換，道理同1)。_-網(wǎng)上說 在visual basic中創(chuàng)建word文檔使用語句 dim newdoc as word.document set newdoc = new word.docume

13、nt 但是vb會提示上述語句 “用戶定義類型未定義” 另一種創(chuàng)建的方法是 dim msword as object set msword = createobject("word.basic") msword.appshow msword.filenewdefault 可以創(chuàng)建 但是下述語句沒辦法使用（即對該文檔的一些操作） with msword .content.font.name = "宋體" .content.font.size = 12 .content.paragraphs.linespacing = 15.5 end with 請教各位高手

14、指點，我想在vb中創(chuàng)建一個word文檔，并將程序計算的一堆結(jié)果，在該文檔中按一定的格式打印出來。 另，我在word中錄制了一段宏，請問在vb中如何調(diào)用，要求代碼 sub zz() activedocument.tables.add range:=selection.range, numrows:=6, numcolumns:= _ 6, defaulttablebehavior:=wdword9tablebehavior, autofitbehavior:= _ wdautofitfixed with selection.tables(1) if .style "網(wǎng)格型"

15、then .style = "網(wǎng)格型" end if .applystyleheadingrows = true .applystylelastrow = true .applystylefirstcolumn = true .applystylelastcolumn = true end with selection.typetext text:="1" selection.moveright unit:=wdcell selection.typetext text:="2" selection.moveright unit:=wd

16、cell selection.typetext text:="3" selection.moveright unit:=wdcell selection.typetext text:="4" selection.moveright unit:=wdcell selection.typetext text:="5" end sub提問者： zhaizhaiya - 助理 三級 最佳答案將 with msword .content.font.name = "宋體" .content.font.size = 12 .co

17、ntent.paragraphs.linespacing = 15.5 end with 改寫為 msword.content.font.name = "宋體" msword.content.font.size = 12 msword.content.paragraphs.linespacing = 15.5 就可以了。 _-用vb讀word時,在程序讀完,為什么還有關(guān)聯(lián),怎樣給她關(guān)聯(lián)除啦懸賞分：0 - 解決時間：2008-10-23 10:06用vb實現(xiàn)讀word程序的操作！ 也就是說當(dāng)我運(yùn)行vb程序時讀啦一次word 第二次再執(zhí)行時還是第一次的結(jié)果！ 例如執(zhí)行下面這個語

18、句時： if newdoc.paragraphs(1).range.font.name = "新 宋 體" then s = s + 0.5 x = msgbox("s=" + str$(s), 64, "字體為1.5") 執(zhí)行第一次之后，再改程序，執(zhí)行時，總是提示word在另一個地方已經(jīng)打開，實際上沒有打開，我想這是由于關(guān)聯(lián)的問題！提問者： lcs6678 - 助理 二級 最佳答案在任務(wù)管理器下的進(jìn)程下看看，肯定打開了。 不知道你是用什么方法定義的word對象。 如果這樣定義： dim a as object, b as objec

19、t, c as object set a = createobject("word.application") set b = a.documents.open("c:1 .doc") 用以下語句關(guān)閉 b.close a.quit _在vb如何存取word格式的文件懸賞分：30 - 解決時間：2006-9-12 08:30我想把用vb計算的一堆結(jié)果打印在word里面,并且有固定格式的簡單排版,最好能在word中打印一些表格,請問用什么樣的函數(shù)或者對象實踐?希望高手幫忙,要是能加一點說明,更加感激不盡提問者： zhaizhaiya - 助理 二級 最佳答案

20、我?guī)湍闼阉鞯搅藘煞N方法 雖然我自己也不懂 但是也許你會懂吧 通過vba進(jìn)行word調(diào)用，要替換word中固定位置的值，可以事先在文檔中定義標(biāo)簽，然后修改標(biāo)簽的內(nèi)容即可，不用查找。 vb中用vba調(diào)用word的方法： 菜單-工程-引用->microsoft word 9.0 object library (后面的數(shù)字為版本號） dim wdapp as new word.application dim docapp as new word.document 具體用怎么用標(biāo)簽替換，可以到word中錄制宏看看就知道了，宏可以直接在vb中通過vba執(zhí)行。 方法2 使用vb編程時，有時需要調(diào)用mi

21、crosoft word對文字進(jìn)行編輯、排版及輸出。為實現(xiàn)這種調(diào)用，可以使用shell函數(shù)、ole自動化、在包容器中嵌入word對象等方法。經(jīng)過試用和比較，總結(jié)出了這幾種方法的各自特點。 1 使用shell函數(shù)直接調(diào)用 語法：shell (pathname,windowstyle).pathname是指要執(zhí)行的程序的名字和任何必須的參數(shù)或命令行開關(guān)，可以包括目錄和驅(qū)動器名；windowstyle是執(zhí)行程序的窗口風(fēng)格的數(shù)字。 使用shell調(diào)用word比較簡單，編程量小，但必須明確指定word所在路徑，這不利于移植，而且，不能對word進(jìn)行控制，不利于程序和word之間的數(shù)據(jù)交換。 2 使用ol

22、e自動化控制microsoft word 2.1 使用方法 (1)word為ole自動化提供一種稱為“basic”的對象，要在vb中控制word ,首先要定義一個引用word中“basic”對象的對象變量：dim wordobj as object (2)將word 中的“basic”對象賦給該對象：set wordobj=createobject("word.basic") (3)可以使用大多數(shù)wordbasic語句和函數(shù)控制word或word文檔，使用方法和在word宏中使用wordbasic指令的方法基本相同。 (4)關(guān)閉word:set wordobj =nothi

23、ng。 注意：“basic”對象不支持關(guān)閉它自己的一個方法。即若在ole自動化中關(guān)閉了word，則對象被置為nothing，便不能再對對象進(jìn)行操作，程序出錯。 2.2 vb指令與wordbasic指令的差異 (1)有一些語句和函數(shù)不能使用，包括：控制結(jié)構(gòu)，如whilewend和ifthenelse；聲明語句，如dim；定制對話框相關(guān)的語句：fileexit語句；要求數(shù)組變量作為參數(shù)的語句或函數(shù)。 (2)也有一些指令使用方法不同。返回字符串以一個美元符（$）結(jié)束的wordbasic函數(shù)的關(guān)鍵字必須括在方括號中。例如，在wordbasic宏中的getbookmark$()語句：mark$=getb

24、ookmark$("address")，若用vb調(diào)用，必須這樣寫mark$=wordobj.ge-tbookmark$("address")。選擇一個命令按鈕用“true”,不選擇用“false” 2.3 對ole自動化的說明 word可以為ole自動化給另一個應(yīng)用提供對象，但是它不能使用ole自動化訪問其它應(yīng)用中的對象。例如：vb和excel可以使用ole自動化訪問word，但是word不能使用ole自動化訪問它們。 3 在包容器中嵌入word對象 在vb中，要訪問在包容器中嵌入的word對象，首先要在項目中插入對象。做法如下：在窗體中插入ole控件，

25、對象類型選擇“microsoftword圖片”或“microsoft word文檔”，再按“確定”。 然后用object屬性訪問文檔或圖片，并使用wordbasic語句和函數(shù)作用于它。嵌入的對象必須在可被訪問之前被激活，可以使用action屬性激活ole控件。例如，使用下面指令訪問一個嵌入在稱為ole1的ole控件中的文檔： dim wordobj as object ole1.action =7 set wordobj =ole1.object.application. wordbasic 其他方面，使用方法同ole自動化。使用在包容器中嵌入的word對象，word顯示的窗口大小、位置與ol

26、e控件定義的大小、位置相同，而且工具欄顯示位置與word脫離。這一點與ole自動化相比，是個不足。 總之，要想在microsoft visual basic中控制microsoft word，最好使用ole自動化，通過使用wordbasic指令對word進(jìn)行全面控制，而且，用戶使用起來與使用microsoft word一樣，非常方便 _用vb如何在word指定位置上插入文字?懸賞分：150 - 解決時間：2006-12-6 10:21提問者： sxtyhjh - 見習(xí)魔法師 二級 最佳答案在vb6.0中，操作word，使用它強(qiáng)大的查找、替換、刪除、復(fù)制、翦切功能。還可以把特定字符替換成圖片。有

27、了它你就可以使用數(shù)據(jù)庫中的內(nèi)容或圖片文件替換word文件中的特定字符。 只要把下列內(nèi)容復(fù)制到寫字板中，另存為setword.cls文件，然后在把它添加到工程中，就可以使用了。 version 1.0 class begin multiuse = -1 'true persistable = 0 'notpersistable databindingbehavior = 0 'vbnone datasourcebehavior = 0 'vbnone mtstransactionmode = 0 'notanmtsobject end attribute

28、vb_name = "setword" attribute vb_globalnamespace = false attribute vb_creatable = true attribute vb_predeclaredid = false attribute vb_exposed = false private mywdapp as word.application private mysel as object '屬性值的模塊變量 private c_templatedoc as string private c_newdoc as string privat

29、e c_picfile as string private c_errmsg as integer public event haveerror() attribute haveerror.vb_description = "出錯時激發(fā)此事件.出錯代碼為errmsg屬性" '* 'errmsg代碼：1word沒有安裝 2 - 缺少參數(shù) 3 - 沒權(quán)限寫文件 ' 4 - 文件不存在 ' '* public function replacepic(findstr as string, optional time as integer =

30、0) as integer attribute replacepic.vb_description = "查找findstr,并替換為picfile所指向的圖片文件,替換次數(shù)由time參數(shù)確定,為0時，替換所有" '* ' 從word.range對象mysel中查找所有findstr，并替換為picfile圖像 ' 替換次數(shù)由time參數(shù)確定，為0時，替換所有 '* if len(c_picfile) = 0 then c_errmsg = 2 exit function end if dim i as integer dim findtxt

31、 as boolean mysel.find.clearformatting mysel.find.replacement.clearformatting with mysel.find .text = findstr .replacement.text = "" .forward = true .wrap = wdfindcontinue .format = false .matchcase = false .matchwholeword = false .matchbyte = true .matchwildcards = false .matchsoundslike

32、= false .matchallwordforms = false end with mysel.homekey unit:=wdstory findtxt = mysel.find.execute(replace:=true) if not findtxt then replacepic = 0 exit function end if i = 1 do while findtxt mysel.inlineshapes.addpicture filename:=c_picfile if i = time then exit do i = i + 1 mysel.homekey unit:=

33、wdstory findtxt = mysel.find.execute(replace:=true) loop replacepic = i end function public function findthis(findstr as string) as boolean attribute findthis.vb_description = "查找findstr,如果模板中有findstr則返回true" if len(findstr) = 0 then c_errmsg = 2 exit function end if mysel.find.clearformat

34、ting mysel.find.replacement.clearformatting with mysel.find .text = findstr .replacement.text = "" .forward = true .wrap = wdfindcontinue .format = false .matchcase = false .matchwholeword = false .matchbyte = true .matchwildcards = false .matchsoundslike = false .matchallwordforms = false

35、 end with mysel.homekey unit:=wdstory findthis = mysel.find.execute end function public function replacechar(findstr as string, repstr as string, optional time as integer = 0) as integer attribute replacechar.vb_description = "查找findstr,并替換為repstr,替換次數(shù)由time參數(shù)確定,為0時，替換所有" '* ' 從word

36、.range對象mysel中查找findstr，并替換為repstr ' 替換次數(shù)由time參數(shù)確定，為0時，替換所有 '* dim findtxt as boolean if len(findstr) = 0 then c_errmsg = 2 raiseevent haveerror exit function end if mysel.find.clearformatting mysel.find.replacement.clearformatting with mysel.find .text = findstr .replacement.text = repstr .

37、forward = true .wrap = wdfindcontinue .format = false .matchcase = false .matchwholeword = false .matchbyte = true .matchwildcards = false .matchsoundslike = false .matchallwordforms = false end with if time > 0 then for i = 1 to time mysel.homekey unit:=wdstory findtxt = mysel.find.execute(repla

38、ce:=wdreplaceone) if not findtxt then exit for next if i = 1 and not findtxt then replacechar = 0 else replacechar = i end if else mysel.find.execute replace:=wdreplaceall end if end function public function getpic(picdata() as byte, filename as string) as boolean attribute getpic.vb_description = &

39、quot;把圖像數(shù)據(jù)picdata,存為picfile指定的文件" '* ' 把圖像數(shù)據(jù)picdata,存為picfile指定的文件 '* on error resume next if len(filename) = 0 then c_errmsg = 2 raiseevent haveerror exit function end if open filename for binary as #1 if err.number 0 then c_errmsg = 3 exit function end if '二進(jìn)制文件用get,put存放，讀取數(shù)據(jù)

40、 put #1, , picdata close #1 c_picfile = filename getpic = true end function public sub deletetoend() attribute deletetoend.vb_description = "刪除從當(dāng)前位置到結(jié)尾的所有內(nèi)容" mysel.endkey unit:=wdstory, extend:=wdextend mysel.delete unit:=wdcharacter, count:=1 end sub public sub moveend() attribute moveend

41、.vb_description = "光標(biāo)移動到文檔結(jié)尾" '光標(biāo)移動到文檔結(jié)尾 mysel.endkey unit:=wdstory end sub public sub gotoline(linetime as integer) mysel.goto what:=wdgotoline, which:=wdgotofirst, count:=linetime, name:="" end sub public sub opendoc(view as boolean) attribute opendoc.vb_description = "

42、;打開word文件,view確定是否顯示word界面" on error resume next '* ' 打開word文件，并給全局變量mysel賦值 '* if len(c_templatedoc) = 0 then mywdapp.documents.add else mywdapp.documents.open (c_templatedoc) end if if err.number 0 then c_errmsg = 4 raiseevent haveerror exit sub end if mywdapp.visible = view mywda

43、pp.activate set mysel = mywdapp.application.selection 'mysel.select end sub public sub openword() on error resume next '* ' 打開word程序，并給全局變量mywdapp賦值 '* set mywdapp = createobject("word.application") if err.number 0 then c_errmsg = 1 raiseevent haveerror exit sub end if end

44、sub public sub viewdoc() attribute viewdoc.vb_description = "顯示word程序界面" mywdapp.visible = true end sub public sub addnewpage() attribute addnewpage.vb_description = "插入分頁符" mysel.insertbreak type:=wdpagebreak end sub public sub wordcut() attribute wordcut.vb_description = "

45、剪切模板所有內(nèi)容到剪切板" '保存模板頁面內(nèi)容 mysel.wholestory mysel.cut mysel.homekey unit:=wdstory end sub public sub wordcopy() attribute wordcopy.vb_description = "拷貝模板所有內(nèi)容到剪切板" mysel.wholestory mysel.copy mysel.homekey unit:=wdstory end sub public sub worddel() mysel.wholestory mysel.delete mysel.

46、homekey unit:=wdstory end sub public sub wordpaste() attribute wordpaste.vb_description = "拷貝剪切板內(nèi)容到當(dāng)前位置" '插入模塊內(nèi)容 mysel.paste end sub public sub closedoc() attribute closedoc.vb_description = "關(guān)閉word文件模板" '* ' 關(guān)閉word文件模本 '* on error resume next mywdapp.activedocume

47、nt.close false if err.number 0 then c_errmsg = 3 exit sub end if end sub public sub quitword() '* ' 關(guān)閉word程序 '* on error resume next mywdapp.quit if err.number 0 then c_errmsg = 3 exit sub end if end sub public sub savetodoc() attribute savetodoc.vb_description = "保存當(dāng)前文檔為filename指定文

48、件" on error resume next '并另存為文件filename if len(c_newdoc) = 0 then c_errmsg = 2 raiseevent haveerror exit sub end if mywdapp.activedocument.saveas (c_newdoc) if err.number 0 then c_errmsg = 3 raiseevent haveerror exit sub end if end sub public property get templatedoc() as string attribute t

49、emplatedoc.vb_description = "模板文件名." templatedoc = c_templatedoc end property public property let templatedoc(byval vnewvalue as string) c_templatedoc = vnewvalue end property public property get newdoc() as string attribute newdoc.vb_description = "執(zhí)行closedoc方法時，將模板文件另存為此文件名指定的新文件.如果

50、不指定，在執(zhí)行closedoc方法時，將產(chǎn)生一個錯誤" newdoc = c_newdoc end property public property let newdoc(byval vnewvalue as string) c_newdoc = vnewvalue end property public property get picfile() as string attribute picfile.vb_description = "圖像文件名" picfile = c_picfile end property public property let picfile(byval vnewvalue as string) c_picfile = vnewvalue end property public property get errmsg() as integer attribute errmsg.vb_description = "錯誤信息.errmsg代碼: 1-word沒有安裝 2-缺少參數(shù) 3-沒權(quán)限寫文件 4-文件不存在" errmsg = c_errmsg end property _用vb調(diào)用word懸賞分：10 - 解決時間：