❶ 如何用VB調用word文檔，請高手進，謝謝~！~
知道,不過不能直接讀取,因為微軟沒有公布加密方式,所以要調用WORD來讀取,然後獲取它
先在工程的引用裡面加上Microsoft Word 11.0 Object Library
Dim 剪切板文本
Dim Word文字處理系統界面 As Word.Application '建立一個word.application對象
Dim Word文檔 As Word.Document
Dim Word文檔文本 As Word.Selection '在word文字處理系統中添加一個文檔
Set Word文字處理系統界面 = CreateObject("Word.Application") '選擇對象
Word文字處理系統界面.Visible = False '不顯示word.application，即word文字處理系統界面
Set Word文檔 = Word文字處理系統界面.Documents.Open(文件路徑)
Set Word文檔文本 = Word文字處理系統界面.Selection
Word文檔文本.WholeStory
Word文檔文本.Copy
剪切板文本 = Clipboard.GetText(vbCFText) '放到text1中
Text1.Text = 剪切板文本
'Clipboard.SetData Temp
Word文檔.Close '關閉文檔
Word文字處理系統界面.Application.Quit
Set Word文字處理系統界面 = Nothing '清空變數
Set Word文檔文本 = Nothing
'完成操作
我通過剪切板來獲取文本,因為這樣可以保留格式(本人獨創)
如果直接獲取也是可以的,不過格式全部丟失,所以我的方法會更好一點
❷ VB怎麼用Word.Application來查找Word文件中是否有某個字元串
問題1.
'放在一個標准模塊中,設置工程啟動為"Sub Main()"
Option Explicit
Sub main()
Dim SourceStr As String, wStr As String
'待查找的字元串
SourceStr = "abcdef1Google" & _
"ghijkl2網路搜索mnopqrs3Yahootuvwxyz"
'要查版找的內容
wStr = "o"
Dim pos As Long
pos = InStr(1, SourceStr, wStr)
Do While pos <> 0
Debug.Print pos
pos = InStr(pos + 1, SourceStr, wStr)
Loop
End Sub
問題權2.
沒聽說過Shell可以調用通用對話框的,要麼用控制項,
要麼調用API實現.
問題3.
'主版本
App.Major
'次版本
App.Minor
'修訂次數
App.Revision
'版權
App.LegalCopyright
'描述
App.FileDescription
'合法商標
App.LegalTrademarks
❸ VB6.0中word.application問題···很急··在線等
點」工復程-引用「菜單項，在彈出的制對話框窗口中有一個列表，如果裝了word軟體，其中會有一個「Microsoft Word 11.0 Object Library」，在它前面打上勾就行了
office和word是兩個不同的庫
❹ 想用vb打開一個指定的word文檔，並可以實現查找替換功能
Dimwordapp
Setwordapp=CreateObject("word.application")
Withwordapp
.documents.open("F:1.doc")
.Visible=True
.activedocument.Content.Find.ExecuteFindText:=text1,ReplaceWith:=text2,Replace:=2
EndWith
祝你抄成功！