空巢老人-
你是指可以用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
