亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 學院 > 開發設計 > 正文

VB5.0調用Office97技巧

2019-11-18 17:37:47
字體：大 中 小
來源：轉載
供稿：網友
VisualBasic5.0具有簡單、易學等特點，深受初學者的歡迎，但也有一些不如人意的地方。例如，不能像Word97那樣進行拼寫檢查，不能像Excel97那樣具有很多的函數。如果我們能將Word97和Excel97的功能使用在VisualBasic5.0中，就可以使VB達到錦上添花的目的。
　　我們知道所有Office97應用程序都提供了ActiveX對象，我們可以在VisualBasic5.0中使用它們。
　　調用Word97
　　要想在VB中調用Word97，首先要打開VB的“工程”菜單中的“引用”項目，并在該項目對話框中選定“MicrosoftWord8.0ObjectLibrary”就可以了。
　　下面我們舉例說明調用Word97中的“拼寫檢查”和“單詞統計”功能。首先新建一個工程并在窗體上放置一個TextBox控件和兩個CommandButton控件，然后添入如下的代碼：
　　OptionExplicit
　　DimDocAsNewDocument
　　DimVisiAsBoolean
　　圖1調用Word97
　　′拼寫檢查
　　　　Doc.Range.Text=Text1
　　′確定范圍
　　Doc.application.Visible=True′將Word97變為可見
　　AppActivateDoc.Application.Caption
　　′激活Word97
　　Doc.Range.CheckSpelling
　　′拼寫檢查
　　Text1=Doc.Range.Text
　　Text1=Left(Text1,Len(Text1)－1)
　　AppActivateCaption
　　EndSub
　　′統計單詞數
　　PrivateSubCommand2－Click()
　　DimDlgAsWord.Dialog
　　Doc.Range=Text1.Text
　　SetDlg=Doc.Application.Dialogs
　　(wdDialogDocumentStatistics)
　　Dlg.Execute′統計單詞和字符
　　Form1.Caption=“單詞數:"＆Str(Dlg.Words)＆“詞"
　　＆Str(Dlg.Characters)＆“字符"′顯示統計結果
　　EndSub
　　PrivateSubForm－Load()
　　Form1.Caption=“調用Word97"
　　Text1.Text=“"
　　Command1.Caption=“拼寫檢查"
　　Command2.Caption=“統計單詞"
　　′使應用程序可見
　　Visi=Doc.Application.Visible
　　EndSub
　　′關閉應用程序
　　PrivateSubForm－Unload(CancelAsInteger)
　　IfVisiThen′關閉文件
　　Doc.Closesavechanges:=False
　　Else
　　Doc.Application.Quitsavechanges:=False′關閉Word97
　　EndIf
　　EndSub->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
日韩中文有码在线视频| 在线视频欧美日韩精品| 国产亚洲视频中文字幕视频| 亚洲精品成人久久电影| 国产成人精彩在线视频九色| 国产一区二区三区网站| 日韩在线视频网站| 色婷婷亚洲mv天堂mv在影片| 国产精品jvid在线观看蜜臀| 亚洲乱码国产乱码精品精天堂| 亚洲人成自拍网站| 日韩中文字幕在线观看| 日韩黄色在线免费观看| 欧美黄网免费在线观看| 97香蕉超级碰碰久久免费的优势| 久久精品国产亚洲7777| 欧美多人乱p欧美4p久久| 亚洲国产日韩欧美在线99| 亚洲第一偷拍网| 日韩av不卡在线| 亚洲xxxx视频| 中文字幕日韩av| 成人av在线天堂| 色综合五月天导航| 久久久久久久香蕉网| 中文字幕亚洲情99在线| xvideos国产精品| 国内精品久久久久影院 日本资源| 一道本无吗dⅴd在线播放一区| 国产精欧美一区二区三区| 亚洲精品美女久久| 国产亚洲精品久久| 视频在线一区二区| 精品成人在线视频| 欧美激情中文字幕乱码免费| 这里只有精品在线播放| 国产视频久久久久| 久久精品欧美视频| 91久久久久久久久久| 日韩av在线网页| 国产精品一区二区久久久久| 国产成人午夜视频网址| 日韩中文字幕国产| 日韩一区二区在线视频| 97香蕉超级碰碰久久免费的优势| 亚洲欧洲午夜一线一品| 国产精品久久久久久久午夜| 国产成人精品av| 欧美午夜激情视频| 一本一本久久a久久精品牛牛影视| 日韩福利伦理影院免费| 国产精品视频专区| 久久久国产一区| 日韩美女在线观看一区| 亚洲人成在线电影| 国产精品极品尤物在线观看| 亚洲图片欧美午夜| 欧美大成色www永久网站婷| 色在人av网站天堂精品| 大胆人体色综合| 国产日韩精品一区二区| 亚洲精品美女在线| 国产日韩欧美电影在线观看| 韩国精品久久久999| 亚洲社区在线观看| 日韩中文字幕国产| 激情亚洲一区二区三区四区| 亚洲网在线观看| 亚洲男人天天操| 精品国产999| 亚洲第一精品电影| 国产91精品久久久久久| 国产精品三级久久久久久电影| 日韩中文在线视频| 久久男人的天堂| 欧美电影《睫毛膏》| 亚洲电影免费观看| 精品国产自在精品国产浪潮| 亚洲精品v天堂中文字幕| 久久精品99国产精品酒店日本| 日韩国产精品亚洲а∨天堂免| 欧美成人免费小视频| 成人福利视频网| 日韩黄在线观看| 性欧美长视频免费观看不卡| 91国产高清在线| 日韩福利在线播放| 国产精品久久久久久亚洲影视| 超碰精品一区二区三区乱码| 国产视频999| 欧美日韩在线影院| 麻豆国产精品va在线观看不卡| 午夜精品一区二区三区在线| 国产成人综合一区二区三区| 欧美老妇交乱视频| 亚洲高清不卡av| 亚洲精品二三区| 久久精品国产久精国产思思| 91精品视频在线免费观看| x99av成人免费| 精品欧美激情精品一区| 亚洲欧美自拍一区| 成人国产精品一区| 欧美最顶级丰满的aⅴ艳星| 日本欧美精品在线| 国产精品热视频| 日韩在线视频二区| 一个人看的www欧美| 亚洲激情国产精品| 久久精品一偷一偷国产| 国产精品白嫩初高中害羞小美女| 国产精品久久久91| 亚洲最大激情中文字幕| 一区二区中文字幕| 狠狠躁夜夜躁人人爽天天天天97| 成人欧美一区二区三区在线湿哒哒| 国产精品丝袜视频| 亚洲第一综合天堂另类专| 韩国美女主播一区| 日韩美女视频免费看| 亚洲欧美一区二区精品久久久| 亚洲精品ady| 久久久久久成人精品| 色老头一区二区三区| 伊人伊成久久人综合网站| 久久免费高清视频| 精品国偷自产在线视频| 26uuu久久噜噜噜噜| 日韩最新中文字幕电影免费看| …久久精品99久久香蕉国产| 国产精品大片wwwwww| 欧美大码xxxx| 91在线免费观看网站| 伊人久久五月天| 日本中文字幕不卡免费| 久久精品国产2020观看福利| 亚洲国产精品久久91精品| 亚洲精品一区久久久久久| 国产精品一区久久久| 黄色成人av在线| 日韩毛片中文字幕| 亚洲毛片在线观看| 国内精品久久久久影院优| 91高清免费在线观看| 国内精久久久久久久久久人| 国产在线98福利播放视频| 亚洲欧洲在线看| 亚洲欧美一区二区三区久久| 97香蕉超级碰碰久久免费软件| 日韩精品有码在线观看| 国产91色在线播放| 国产日韩精品入口| 日韩精品中文字幕久久臀| 91精品国产网站| 成人妇女免费播放久久久| 欧美日韩一区二区精品| 中文字幕精品一区久久久久| 日韩高清人体午夜| 中文字幕亚洲无线码a| 精品久久久久久久久久| 夜色77av精品影院| 中文亚洲视频在线| 亚洲精品在线不卡| 国产91|九色|