vb程序中识别word版本号

一、求助：VB怎么读取Word中的内容显示出来

假设 D 盘下有一名为 1.docx 的 Word 文档，其内容如下：则通过以下代码即可读取到该文档中的内容： Public Sub GetWordContent() Dim objWordDoc As Object Set objWordDoc = GetObject("D:\1.docx") MsgBox objWordDoc.Content.Text, vbInformation, "Word" Set objWordDoc = NothingEnd Sub 运行效果：。

二、VB如何读入Word的内容

Set oApp = CreateObject("Word。

Application") oApp。Visible = False Set oDoc = oApp。

Documents。Open(strFile)'strFile为文件路径 '获得最后一段的内容 Dim length As Long '整个文档的长度 Dim i As Long length = oDoc。

Content。StoryLength Content = oDoc。

Content。Text Dim s As String For i = 1 To length If Mid$(Content, i, 1) = Chr$(13) Then s = s + vbCrLf Else s = s + Mid$(Content, i, 1) End If Next i oDoc。

Close True oApp。Quit False txtMx = s。

三、vb按钮怎么打开一个word文挡啊求一个vb小程序就是里面有一个爱问

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Sub Command1_Click() ShellExecute Me.hwnd, "Open", "D:\test.doc", "", App.Path, 1 End Sub。

四、vb6 判断word文件是否打开

判断指定的WORD文档是否被打开的函数代码如下：Function WordDocIsOpen(ByVal strDocName As String) As Boolean Dim objWordApp As Object Dim objWordDoc As Object On Error Resume Next '此句不能少 strDocName = UCase(strDocName) Set objWordApp = GetObject(, "Word.Application") For Each objWordDoc In objWordApp.Documents If UCase(objWordDoc.FullName) = strDocName Then WordDocIsOpen = True Exit For End If Next Set objWordDoc = Nothing Set objWordApp = Nothing End Function 调用代码：Private Sub main() If WordDocIsOpen("e:/1.doc") Then MsgBox "该文档已被打开" Else MsgBox "该文档未被打开" End If End Sub。

五、vb识别将word数字中的

用通配符替换即可： Sub 宏1() Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "[1-9]" .Replacement.Text = "." .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Application.WindowState = wdWindowStateNormalEnd Sub。

六、在VB中如何打开WORD等程序

（转载）

这个问题在VB吧讨论过，怎么可能一个程序让你这样打开呢？那么编译就没有必要了。

说实话，很简单，编译就是为了保密。比如你的一个程序需要输入密码，你写了：

If txt.Text = "123456" Then

Msgbox "密码正确"

Else

Msgbox "错误"

End If

如果别人有VB，就打开了你的程序？？还有保密性吗？要序列号干什么？

想打开，必须反编译。对一个新手程序员，是不太可能做到的。这个需要大量的经验。

现在对于您，可以做的，就是去找源码（就是VB的存档）。你上网搜索，基本上可以找到的。

七、vb 调用Word打开文档

引用CommonDialog和Microsoft Word 11.0 object Libary（其他版本也行，看机器情况）

Private Sub Command1_Click()

Dim DocPath As String

Dim wApp As New Word.Application

CommonDialog1.ShowOpen

DocPath = CommonDialog1.FileName

If DocPath = "" Then wApp.Documents.Close: Set wApp = Nothing

wApp.Documents.Open DocPath

wApp.Visible = True

End Sub

Private Sub Form_Load()

CommonDialog1.Filter = "Word文档（*.dco）|*.doc"

CommonDialog1.DialogTitle = "选择要打开的文档"

CommonDialog1.CancelError = False