❶ 如何用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
祝你抄成功！