VB如何读入Word的内容？用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打开指定WOR 爱问

一个简单的例子，比如把D:\temp.doc另存为D:\temp.txt Private Sub Command1_Click() Dim Word Dim Document Set Word = CreateObject("Word.Application") Set Document = Word.documents.Open("D:\temp.doc") Word.Visible = False Document.SaveAs "D:\temp.txt", wdFormatText Document.Close Word.Quit End Sub。

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。

vb操作word

引用Word对象、然后在VB端生成Word的Application对象。

Application对象可以显示或隐藏都可以。Application下的Documents对象可操作Word文档。

application.Documents.Open 可以打开文档。生成Application后就与VBA中的Word.application对象一样使用就OK了。

如果想了解Word的Application对象或Document对象或Range等对象你可以打开Word、然后在Word界面按下ALT+F11然后就可以进入VBA编辑器、可以看作是VB的一个子集。然后在左边工程栏里加模块、加窗体。

写代码的时候按F1就可以得到帮助。

vb操作word

引用Word对象、

然后在VB端生成Word的Application对象。

Application对象可以显示或隐藏都可以。

Application下的Documents对象可操作Word文档。

application.Documents.Open 可以打开文档。

生成Application后就与VBA中的Word.application对象一样使用就OK了。

如果想了解Word的Application对象或Document对象或Range等对象你可以打开Word、然后在Word界面按下ALT+F11然后就可以进入VBA编辑器、可以看作是VB的一个子集。然后在左边工程栏里加模块、加窗体。。。写代码的时候按F1就可以得到帮助。

vb如何对已经打开的word文件进行操作

首先引用 Microsoft word library

代码：

'====================

Dim xWord As Word.Application

Private Sub CmdReplace_Click()

Dim xWord As Word.Application

Dim xRange As Range

Dim xSelection As Find

Dim xTabella As Table

Dim xCella As Cell

Set xWord = New Application

xWord.Visible = False

xWord.Documents.Add App.Path & "\新概念单词表3.rtf"

Set xRange = xWord.ActiveDocument.Range

xRange.Find.Execute "%%XXX%%", , , , , , , , , Text1.Text, True:

Set xRange = xWord.ActiveDocument.Range

xRange.Find.Execute "%%aaa%%", , , , , , , , , Text2.Text, True:

xWord.Visible = True

xWord.WindowState = wdWindowStateNormal

xWord.Application.Activate

End Sub

'================

'"%%XXX%%" 、"%%aaa%%" 就是需要替换的内容

vb操作word在一个固定位置（如"D:\asp学习\数据.do

编了个函数，原理是先删掉原来的文件，再写一个新文件。

Sub WriteWord(ByVal sFileName As String, ByVal sText As String) Kill sFileName Dim newDoc As Word.Document Set newDoc = New Word.Document newDoc.Content.InsertAfter sText newDoc.SaveAs FileName:=sFileName End Sub 参数说明： sFileName 文件名（例："D:\asp学习\数据 .doc"） sText 想要写入的文本（例："Test"） 调用例： WriteWord "D:\asp学习\数据 .doc", "Test"。

转载请注明出处51数据库 » vb操作word文档