vb操作word2003 vb操作word

你是指可以用WebBrowser控件加载doc文件，显示出doc文件的内容来，而Word2007的文档却不行？如果是这样的话，那我的回答要让你失望了，这样的话没有办法。你也知道，Word2007用的是docx文件，这种文件的内部结构已经和doc文件不一样了（就是在没有安装兼容包的情况下，Word2003及以下的版本都打不开docx文件），而如果你用VB6编程，你更应想到到VB6是什么时候出得了，他的控件都那么古老了，你还指望他能支持新的Word2007文档格式。如果你用高版本的VS编程，就有可能，我也没试过，反正想用VB6的WebBrowser控件打开Docx格式的文档，估计是不行的了。

至于查找，之前回答的人给了你一条路，就是引用Word对象，这种编程与版本无关，但是需要你有Word对象编程的知识（不是VBA for Word），如果在这个问题上需要帮助的，还可以再来找我。前面的问题就真的无能为力了。

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%%" 就是需要替换的内容

我的意思是先打开word再用vb操作。不是用vb打开。

如何用VB打开word2007，例如桌面有个word2007文件，如何用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()

Open "c:\新建文档.doc" For Output As #1 '打开一WORD文档

Print #1, "这是用VB新建的文档" '

Close

ShellExecute Me.hwnd, "open", "c:\新建文档.doc", vbNullString, vbNullString, 5

End

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就可以得到帮助。

Word2003中书写VB代码，如何用Add.item方法向复合框中添加项目？

复合框可以在Word2003下同时按ALT+F11键进入宏编辑窗口，插入窗体就可以在工具箱中选中复选框，在窗体中绘制。

你说的Add.item方法在列表框和组合框中用得多。

怎样用VB操作Word与Excel？详细点

给你两个小例子。一、控制WordPrivate Sub Command1_Click()

Dim wdApp As Application

Dim wdDoc As Word.Document

Dim OpenFile As String

Dlg1.ShowOpen

OpenFile = Dlg1.FileName

Set wdApp = CreateObject("Word.application")

Set wdDoc = wdApp.Documents.Open(OpenFile)

For i = 1 To wdDoc.Characters.Count

Text1.Text = Text1.Text + wdDoc.Characters(i)

Next

wdDoc.Close

wdApp.Quit

Set wdDoc = Nothing

Set wdApp = Nothing

End Sub 二、操作ExcelPrivate Sub Form_Click()

'在“工程/引用”中选择Microsoft Excel9.0 Object LibraryDim xlApp As Excel.Application '定义EXCEL类

Dim xlBook As Excel.Workbook '定义工作簿类

Dim xlSheet As Excel.Worksheet '定义工作表类

'激活EXCEL应用程序

Set xlApp = CreateObject("Excel.Application")

'打开工作簿

Dim Filename As String

dlg1.ShowOpen

Filename = dlg1.Filename

Set xlBook = xlApp.Workbooks.Open(Filename)

Set xlSheet = xlBook.Worksheets(1)

Text1.Text = xlSheet.Range("A1").Value '关闭工作簿和EXCEL应用程序

xlBook.Close

xlApp.Quit

Set xlSheet = Nothing

Set xlBook = Nothing

Set xlApp = NothingEnd Sub

在vb编写的界面里如何操作word

这个题目太大了吧。能不能缩小一下范围呢？不说的话给你来点范文吧。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

将格式应用于选定内容

下列示例使用 Selection 属性将字符和段落格式应用于选定文本。使用 Font 属性获得字体格式的属性和方法，使用 ParagraphFormat 属性获得段落格式的属性和方法。

Sub FormatSelection()

With Selection.Font

.Name = "Times New Roman"

.Size = 14

.AllCaps = True

End With

With Selection.ParagraphFormat

.LeftIndent = InchesToPoints(0.5)

.Space1

End With

End Sub

将格式应用于某一区域

下列示例定义了一个 Range 对象，它引用了活动文档的前三个段落。通过应用 Font 和 ParagraphFormat 对象的属性来设置 Range 对象的格式。

Sub FormatRange()

Dim rngFormat As Range

Set rngFormat = ActiveDocument.Range( _

Start:=ActiveDocument.Paragraphs(1).Range.Start, _

End:=ActiveDocument.Paragraphs(3).Range.End)

With rngFormat

.Font.Name = "Arial"

.ParagraphFormat.Alignment = wdAlignParagraphJustify

End With

End Sub

插入文字并应用字符和段落格式

下列示例在当前文档的上部添加单词 Title。第一段居中对齐，并在该段落之后添加半英寸的间距。将单词 Title 的格式设为 24 磅 Arial 字体。

Sub InsertFormatText()

Dim rngFormat As Range

Set rngFormat = ActiveDocument.Range(Start:=0, End:=0)

With rngFormat

.InsertAfter Text:="Title"

.InsertParagraphAfter

With .Font

.Name = "Tahoma"

.Size = 24

.Bold = True

End With

End With

With ActiveDocument.Paragraphs(1)

.Alignment = wdAlignParagraphCenter

.SpaceAfter = InchesToPoints(0.5)

End With

End Sub

在 12 磅和无之间切换段前间距

下列示例切换选定内容中第一段的段前间距。宏将获取当前段前间距的值，如果该值为 12 磅，则删除段前间距格式（将 SpaceBefore 属性设为零）。如果段前间距的值为除 12 外的其他数值，则将 SpaceBefore 属性设为 12 磅。

Sub ToggleParagraphSpace()

With Selection.Paragraphs(1)

If .SpaceBefore <> 0 Then

.SpaceBefore = 0

Else

.SpaceBefore = 6

End If

End With

End Sub

切换加粗格式

下列示例切换选定文本的加粗格式。

Sub ToggleBold()

Selection.Font.Bold = wdToggle

End Sub

将左边距增加 0.5 英寸

下列示例将左边距和右边距增加 0.5 英寸。PageSetup 对象包含文档的所有的页面设置属性（左边距、下边距、纸张大小等）。LeftMargin 属性用于返回和设置左边距设置。RightMargin 属性用于返回和设置右边距设置。

Sub FormatMargins()

With ActiveDocument.PageSetup

.LeftMargin = .LeftMargin + InchesToPoints(0.5)

.RightMargin = .RightMargin + InchesToPoints(0.5)

End With

End Sub

请问vb如何操作word的问题

自己录一段啊，改改

set winword=createobject("word.application")

winword.visible=true

winword.documents.open 文件名

winword.ActiveDocument.PrintPreview

......................诸如此类

Private Sub Command1_Click()

OLE1.CreateLink "C:\Users\Administrator\Desktop\word\a.doc"

OLE1.DoVerb 1

ActiveDocument.PrintPreview

ActiveWindow.ActivePane.View.Zoom.PageColumns = 2

End Sub

提示实时错误“424”，求解

OLE1.ActiveDocument.PrintPreview

把每一条excel语句都加上对象，再试试

按f8单步执行，看错在哪

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