vb操作word
[追加500分求教] VB操作WORD問題
懸賞分：200 - 解決時間：2007-7-28 11:42
說明，用VB操作WORD,以下源碼第一次操作完全正常，正常打開，正常替換，正常退出。進程中并沒有留下windword的進
程，但第二次繼續操作時就出問題，運行到ReplaceWord()就出現462錯誤，關閉程序重新開始又正常。請指教出錯及解
決原因，追加到500分
'=============打開word==============
Function OpenWord(FileName) '打開指定word文檔
Dim wordApp As New Word.Application
Dim wordDoc As New Word.Document
Set wordApp = CreateObject("Word.Application")
wordApp.Visible = False
Set wordDoc = wordApp.Documents.Open(FileName)
End Function
============替換關鍵字===========
Function ReplaceWord(SearchStr, ReplaceStr) '全部替換函數
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = SearchStr
.Replacement.Text = ReplaceStr
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Function
'==================另存為===================
Function SaveAsWord(DiskStr, NameStr)
ChangeFileOpenDirectory DiskStr
ActiveDocument.SaveAs FileName:=NameStr, FileFormat:=wdFormatDocument _
, LockComments:=False, Password:="", AddToRecentFiles:=True, _
WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
Application.Documents.Close
Application.Quit
End Function
'===================清除對象============
Function CloseWord()
Set wordDoc = Nothing '清除文件實例
Set wordApp = Nothing '清除WORD實例
End Function
問題補充：根據《小fisher》的答案，已經解決問題，另外在SaveAsWord過程中，ChangeFileOPenDirectory DiskStr更
改為ChangeFileOpenDirectory DiskStr ，ActiveDocument.SaveAs更改為wordDoc.SaveAs，再加上原先《小fisher》提
到要更改的地方，已經完美解決，謝謝！！
PS：由于百度只能2次提高懸賞，每次50分，所以現在只有200分，未能對現500分的諾言，所以只有另開貼來加送300
分！
提問者： 有野問 - 經理五級 最佳答案
1) Function ReplaceWord(SearchStr, ReplaceStr) '全部替換函數
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.......
這個函數過程有錯誤！因為Selection是word的對象而不是VB的對象，所以不能在VB中直接引用，必須用
wordApp.Selection替換掉Selection才行！
這段代碼在word VBA中調試不會出問題，但移植到VB中時要注意。
2)wordApp和wordDoc必須定義為全局變量，在模塊公有部分使用
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
來定義
然后在OpenWord(FileName)過程中使用Set wordApp =New Word.Application
和Set wordDoc = wordApp.Documents.Open(FileName)，否則在CloseWord()過程中wordApp和wordDoc兩個變量將會是未
第 1 頁
vb操作word
初始化的Variant類型。
3)Function SaveAsWord(DiskStr, NameStr)中的Application須使用wordApp替換，道理同1)。
________________________________________________________________________-
網上說在Visual Basic中創建Word文檔使用語句
Dim newDoc As Word.Document
Set newDoc = new Word.Document
但是VB會提示上述語句“用戶定義類型未定義”
另一種創建的方法是
Dim MsWord As Object
Set MsWord = CreateObject("Word.Basic")
MsWord.AppShow
MsWord.FileNewDefault
可以創建但是下述語句沒辦法使用（即對該文檔的一些操作）
With MsWord
.Content.Font.Name = "宋體"
.Content.Font.Size = 12
.Content.Paragraphs.LineSpacing = 15.5
End With
請教各位高手指點，我想在vb中創建一個word文檔，并將程序計算的一堆結果，在該文檔中按一定的格式打印出來。
另，我在word中錄制了一段宏，請問在VB中如何調用，要求代碼
Sub zz()
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=6, NumColumns:= _
6, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
With Selection.Tables(1)
If .Style <> "網格型" Then
.Style = "網格型"
End If
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = True
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = True
End With
Selection.TypeText Text:="1"
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:="2"
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:="3"
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:="4"
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:="5"
End sub
提問者： zhaizhaiya - 助理三級最佳答案
將
With MsWord
.Content.Font.Name = "宋體"
.Content.Font.Size = 12
.Content.Paragraphs.LineSpacing = 15.5
End With
改寫為
MsWord.Content.Font.Name = "宋體"
MsWord.Content.Font.Size = 12
MsWord.Content.Paragraphs.LineSpacing = 15.5
就可以了。
_____________________________________________________________________-
用vb讀word時,在程序讀完,為什么還有關聯,怎樣給她關聯除啦
懸賞分：0 - 解決時間：2008-10-23 10:06
用vb實現讀word程序的操作！
也就是說當我運行vb程序時讀啦一次word
第二次再執行時還是第一次的結果！
例如執行下面這個語句時：
If NewDoc.Paragraphs(1).Range.Font.Name = "新宋 體" Then s = s + 0.5
x = MsgBox("s=" + Str$(s), 64, "字體為1.5")
執行第一次之后，再改程序，執行時，總是提示word在另一個地方已經打開，實際上沒有打開，我想這是由于關聯的問
題！
提問者： lcs6678 - 助理二級最佳答案
在任務管理器下的進程下看看，肯定打開了。
不知道你是用什么方法定義的word對象。
如果這樣定義：
Dim a As Object, b As Object, c As Object
Set a = CreateObject("word.application")
Set b = a.Documents.open("c:\1 .doc")
第 2 頁
vb操作word
用以下語句關閉
b.close
a.quit
______________________________________________________________________
在VB如何存取word格式的文件
懸賞分：30 - 解決時間：2006-9-12 08:30
我想把用vb計算的一堆結果打印在word里面,并且有固定格式的簡單排版,最好能在word中打印一些表格,請問用什么樣的
函數或者對象實踐?希望高手幫忙,要是能加一點說明,更加感激不盡
提問者： zhaizhaiya - 助理二級最佳答案
我幫你搜索到了兩種方法雖然我自己也不懂但是也許你會懂吧
通過VBA進行WORD調用，要替換WORD中固定位置的值，可以事先在文檔中定義標簽，然后修改標簽的內容即可，不用查
找。
VB中用VBA調用WORD的方法：
菜單-》工程-》引用->Microsoft Word 9.0 Object Library (后面的數字為版本號）
Dim wdApp As New Word.Application
Dim docApp As New Word.Document
具體用怎么用標簽替換，可以到WORD中錄制宏看看就知道了，宏可以直接在VB中通過VBA執行。
方法2
使用VB編程時，有時需要調用Microsoft Word對文字進行編輯、排版及輸出。為實現這種調用，可以使用Shell函數、
OLE自動化、在包容器中嵌入Word對象等方法。經過試用和比較，總結出了這幾種方法的各自特點。
1 使用Shell函數直接調用
語法：Shell (pathname[,windowstyle]).Pathname是指要執行的程序的名字和任何必須的參數或命令行開關，可以包括
目錄和驅動器名；Windowstyle是執行程序的窗口風格的數字。
使用Shell調用Word比較簡單，編程量小，但必須明確指定Word所在路徑，這不利于移植，而且，不能對Word進行控制，
不利于程序和Word之間的數據交換。
2 使用OLE自動化控制Microsoft Word
2.1 使用方法
(1)Word為OLE自動化提供一種稱為“Basic”的對象，要在VB中控制Word ,首先要定義一個引用Word中“Basic”對象的
對象變量：Dim Wordobj as Object
(2)將Word 中的“Basic”對象賦給該對象：Set Wordobj=CreateObject("Word.Basic")
(3)可以使用大多數WordBasic語句和函數控制Word或Word文檔，使用方法和在Word宏中使用WordBasic指令的方法基本相
同。
(4)關閉Word:Set Wordobj =Nothing。
注意：“Basic”對象不支持關閉它自己的一個方法。即若在OLE自動化中關閉了Word，則對象被置為Nothing，便不能再
對對象進行操作，程序出錯。
2.2 VB指令與WordBasic指令的差異
(1)有一些語句和函數不能使用，包括：控制結構，如While…Wend和If…Then…Else；聲明語句，如Dim；定制對話框相
關的語句：FileExit語句；要求數組變量作為參數的語句或函數。
(2)也有一些指令使用方法不同。①返回字符串以一個美元符（$）結束的WordBasic函數的關鍵字必須括在方括號中。例
如，在WordBasic宏中的GetBookmark$()語句：mark$=GetBookmark$("Address")，若用VB調用，必須這樣寫
mark$=Wordobj.[Ge-tBookmark$]("Address")。②選擇一個命令按鈕用“True”,不選擇用“False”
2.3 對OLE自動化的說明
Word可以為OLE自動化給另一個應用提供對象，但是它不能使用OLE自動化訪問其它應用中的對象。例如：VB和Excel可以
使用OLE自動化訪問Word，但是Word不能使用OLE自動化訪問它們。
3 在包容器中嵌入Word對象
在VB中，要訪問在包容器中嵌入的Word對象，首先要在項目中插入對象。做法如下：在窗體中插入OLE控件，對象類型選
擇“MicrosoftWord圖片”或“Microsoft Word文檔”，再按“確定”。
然后用Object屬性訪問文檔或圖片，并使用WordBasic語句和函數作用于它。嵌入的對象必須在可被訪問之前被激活，可
以使用Action屬性激活OLE控件。例如，使用下面指令訪問一個嵌入在稱為OLE1的OLE控件中的文檔：
Dim Wordobj as Object
OLE1.Action =7
Set Wordobj =OLE1.Object.Application. WordBasic
其他方面，使用方法同OLE自動化。使用在包容器中嵌入的Word對象，Word顯示的窗口大小、位置與OLE控件定義的大
小、位置相同，而且工具欄顯示位置與Word脫離。這一點與OLE自動化相比，是個不足。
總之，要想在Microsoft Visual Basic中控制Microsoft Word，最好使用OLE自動化，通過使用WordBasic指令對Word進
行全面控制，而且，用戶使用起來與使用Microsoft Word一樣，非常方便
___________________________________________________________________________________
用VB如何在WORD指定位置上插入文字?
懸賞分：150 - 解決時間：2006-12-6 10:21
提問者： sxtyhjh - 見習魔法師二級最佳答案
在VB6.0中，操作word，使用它強大的查找、替換、刪除、復制、翦切功能。還可以把特定字符替換成圖片。有了它你就
可以使用數據庫中的內容或圖片文件替換word文件中的特定字符。
只要把下列內容復制到寫字板中，另存為SetWord.cls文件，然后在把它添加到工程中，就可以使用了。
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "SetWord"
Attribute VB_GlobalNameSpace = False
第 3 頁
vb操作word
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Private mywdapp As Word.Application
Private mysel As Object
'屬性值的模塊變量
Private C_TemplateDoc As String
Private C_newDoc As String
Private C_PicFile As String
Private C_ErrMsg As Integer
Public Event HaveError()
Attribute HaveError.VB_Description = "出錯時激發此事件.出錯代碼為ErrMsg屬性"
'***************************************************************
'ErrMsg代碼：1－word沒有安裝 2 - 缺少參數 3 - 沒權限寫文件
' 4 - 文件不存在
'
'***************************************************************
Public Function ReplacePic(FindStr As String, Optional Time As Integer = 0) As Integer
Attribute ReplacePic.VB_Description = "查找FindStr,并替換為PicFile所指向的圖片文件,替換次數由time參數確
定,為0時，替換所有"
'********************************************************************************
' 從Word.Range對象mysel中查找所有FindStr，并替換為PicFile圖像
' 替換次數由time參數確定，為0時，替換所有
'********************************************************************************
If Len(C_PicFile) = 0 Then
C_ErrMsg = 2
Exit Function
End If
Dim i As Integer
Dim findtxt As Boolean
mysel.Find.ClearFormatting
mysel.Find.Replacement.ClearFormatting
With mysel.Find
.Text = FindStr
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
mysel.HomeKey Unit:=wdStory
findtxt = mysel.Find.Execute(Replace:=True)
If Not findtxt Then
ReplacePic = 0
Exit Function
End If
i = 1
Do While findtxt
mysel.InlineShapes.AddPicture FileName:=C_PicFile
If i = Time Then Exit Do
i = i + 1
mysel.HomeKey Unit:=wdStory
findtxt = mysel.Find.Execute(Replace:=True)
Loop
ReplacePic = i
End Function
Public Function FindThis(FindStr As String) As Boolean
Attribute FindThis.VB_Description = "查找FindStr,如果模板中有FindStr則返回True"
If Len(FindStr) = 0 Then
C_ErrMsg = 2
Exit Function
End If
mysel.Find.ClearFormatting
第 4 頁
vb操作word
mysel.Find.Replacement.ClearFormatting
With mysel.Find
.Text = FindStr
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
mysel.HomeKey Unit:=wdStory
FindThis = mysel.Find.Execute
End Function
Public Function ReplaceChar(FindStr As String, RepStr As String, Optional Time As Integer = 0) As Integer
Attribute ReplaceChar.VB_Description = "查找FindStr,并替換為RepStr,替換次數由time參數確定,為0時，替換所有
"
'********************************************************************************
' 從Word.Range對象mysel中查找FindStr，并替換為RepStr
' 替換次數由time參數確定，為0時，替換所有
'********************************************************************************
Dim findtxt As Boolean
If Len(FindStr) = 0 Then
C_ErrMsg = 2
RaiseEvent HaveError
Exit Function
End If
mysel.Find.ClearFormatting
mysel.Find.Replacement.ClearFormatting
With mysel.Find
.Text = FindStr
.Replacement.Text = RepStr
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
If Time > 0 Then
For i = 1 To Time
mysel.HomeKey Unit:=wdStory
findtxt = mysel.Find.Execute(Replace:=wdReplaceOne)
If Not findtxt Then Exit For
Next
If i = 1 And Not findtxt Then
ReplaceChar = 0
Else
ReplaceChar = i
End If
Else
mysel.Find.Execute Replace:=wdReplaceAll
End If
End Function
Public Function GetPic(PicData() As Byte, FileName As String) As Boolean
Attribute GetPic.VB_Description = "把圖像數據PicData,存為PicFile指定的文件"
'********************************************************************************
' 把圖像數據PicData,存為PicFile指定的文件
'********************************************************************************
On Error Resume Next
If Len(FileName) = 0 Then
第 5 頁
vb操作word
C_ErrMsg = 2
RaiseEvent HaveError
Exit Function
End If
Open FileName For Binary As #1
If Err.Number <> 0 Then
C_ErrMsg = 3
Exit Function
End If
'二進制文件用Get,Put存放，讀取數據
Put #1, , PicData
Close #1
C_PicFile = FileName
GetPic = True
End Function
Public Sub DeleteToEnd()
Attribute DeleteToEnd.VB_Description = "刪除從當前位置到結尾的所有內容"
mysel.EndKey Unit:=wdStory, Extend:=wdExtend
mysel.Delete Unit:=wdCharacter, Count:=1
End Sub
Public Sub MoveEnd()
Attribute MoveEnd.VB_Description = "光標移動到文檔結尾"
'光標移動到文檔結尾
mysel.EndKey Unit:=wdStory
End Sub
Public Sub GotoLine(LineTime As Integer)
mysel.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=LineTime, Name:=""
End Sub
Public Sub OpenDoc(view As Boolean)
Attribute OpenDoc.VB_Description = "打開Word文件,View確定是否顯示Word界面"
On Error Resume Next
'********************************************************************************
' 打開Word文件，并給全局變量mysel賦值
'********************************************************************************
If Len(C_TemplateDoc) = 0 Then
mywdapp.Documents.Add
Else
mywdapp.Documents.Open (C_TemplateDoc)
End If
If Err.Number <> 0 Then
C_ErrMsg = 4
RaiseEvent HaveError
Exit Sub
End If
mywdapp.Visible = view
mywdapp.Activate
Set mysel = mywdapp.Application.Selection
'mysel.Select
End Sub
Public Sub OpenWord()
On Error Resume Next
'********************************************************************************
' 打開Word程序，并給全局變量mywdapp賦值
'********************************************************************************
Set mywdapp = CreateObject("word.application")
If Err.Number <> 0 Then
C_ErrMsg = 1
RaiseEvent HaveError
第 6 頁
vb操作word
Exit Sub
End If
End Sub
Public Sub ViewDoc()
Attribute ViewDoc.VB_Description = "顯示Word程序界面"
mywdapp.Visible = True
End Sub
Public Sub AddNewPage()
Attribute AddNewPage.VB_Description = "插入分頁符"
mysel.InsertBreak Type:=wdPageBreak
End Sub
Public Sub WordCut()
Attribute WordCut.VB_Description = "剪切模板所有內容到剪切板"
'保存模板頁面內容
mysel.WholeStory
mysel.Cut
mysel.HomeKey Unit:=wdStory
End Sub
Public Sub WordCopy()
Attribute WordCopy.VB_Description = "拷貝模板所有內容到剪切板"
mysel.WholeStory
mysel.Copy
mysel.HomeKey Unit:=wdStory
End Sub
Public Sub WordDel()
mysel.WholeStory
mysel.Delete
mysel.HomeKey Unit:=wdStory
End Sub
Public Sub WordPaste()
Attribute WordPaste.VB_Description = "拷貝剪切板內容到當前位置"
'插入模塊內容
mysel.Paste
End Sub
Public Sub CloseDoc()
Attribute CloseDoc.VB_Description = "關閉Word文件模板"
'********************************************************************************
' 關閉Word文件模本
'********************************************************************************
On Error Resume Next
mywdapp.ActiveDocument.Close False
If Err.Number <> 0 Then
C_ErrMsg = 3
Exit Sub
End If
End Sub
Public Sub QuitWord()
'********************************************************************************
' 關閉Word程序
'********************************************************************************
On Error Resume Next
mywdapp.Quit
If Err.Number <> 0 Then
C_ErrMsg = 3
Exit Sub
End If
End Sub
Public Sub SavetoDoc()
Attribute SavetoDoc.VB_Description = "保存當前文檔為FileName指定文件"
On Error Resume Next
第 7 頁
vb操作word
'并另存為文件FileName
If Len(C_newDoc) = 0 Then
C_ErrMsg = 2
RaiseEvent HaveError
Exit Sub
End If
mywdapp.ActiveDocument.SaveAs (C_newDoc)
If Err.Number <> 0 Then
C_ErrMsg = 3
RaiseEvent HaveError
Exit Sub
End If
End Sub
Public Property Get TemplateDoc() As String
Attribute TemplateDoc.VB_Description = "模板文件名."
TemplateDoc = C_TemplateDoc
End Property
Public Property Let TemplateDoc(ByVal vNewValue As String)
C_TemplateDoc = vNewValue
End Property
Public Property Get newdoc() As String
Attribute newdoc.VB_Description = "執行CloseDoc方法時，將模板文件另存為此文件名指定的新文件.如果不指定，
在執行CloseDoc方法時，將產生一個錯誤"
newdoc = C_newDoc
End Property
Public Property Let newdoc(ByVal vNewValue As String)
C_newDoc = vNewValue
End Property
Public Property Get PicFile() As String
Attribute PicFile.VB_Description = "圖像文件名"
PicFile = C_PicFile
End Property
Public Property Let PicFile(ByVal vNewValue As String)
C_PicFile = vNewValue
End Property
Public Property Get ErrMsg() As Integer
Attribute ErrMsg.VB_Description = "錯誤信息.ErrMsg代碼: 1-word沒有安裝 2-缺少參數 3-沒權限寫文件 4-文件不
存在"
ErrMsg = C_ErrMsg
End Property
________________________________________________________________________________
用VB調用WORD
懸賞分：10 - 解決時間：2008-5-25 19:02
我在WORD里寫了點東西，然后想用VB調用它，請高手指點，怎么調用這個文件，假設為help.doc
請給出原程序。
問題補充：你的代碼沒有問題，可不是我想要的，運行的結果只是顯示了WORD內的部分內容，我想要打開WORD并顯示出
來，就像正常打開WORD一樣，不過這是通過代碼來實現
提問者： jerryzhanzmq - 試用期一級最佳答案
那么你試一下下面的代碼，是不是你所說的？？？
Private Sub Form_Load()
Dim wp As New Word.Application
Dim wd As New Word.Document
wp.Visible = True
Set wd = wp.Documents.Open("c:\22075847937.doc")
Dim neirong As String
neirong = wd.Content.Text
MsgBox "該Word文件的內容為：" & vbNewLine & neirong
End Sub
你說的只是個打開WORD文件，那么不就是個執行文件操作嗎？調用shellexecute api不就行了嗎！郁悶
_______________________________________________________________________________________
第 8 頁
[追加500分求教] VB操作WORD問題
懸賞分：200 - 解決時間：2007-7-28 11:42
說明，用VB操作WORD,以下源碼第一次操作完全正常，正常打開，正常替換，正常退出。進程中并沒有留下windword的進
程，但第二次繼續操作時就出問題，運行到ReplaceWord()就出現462錯誤，關閉程序重新開始又正常。請指教出錯及解
決原因，追加到500分
'=============打開word==============
Function OpenWord(FileName) '打開指定word文檔
Dim wordApp As New Word.Application
Dim wordDoc As New Word.Document
Set wordApp = CreateObject("Word.Application")
wordApp.Visible = False
Set wordDoc = wordApp.Documents.Open(FileName)
End Function
============替換關鍵字===========
Function ReplaceWord(SearchStr, ReplaceStr) '全部替換函數
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = SearchStr
.Replacement.Text = ReplaceStr
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Function
'==================另存為===================
Function SaveAsWord(DiskStr, NameStr)
ChangeFileOpenDirectory DiskStr
ActiveDocument.SaveAs FileName:=NameStr, FileFormat:=wdFormatDocument _
, LockComments:=False, Password:="", AddToRecentFiles:=True, _
WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
Application.Documents.Close
Application.Quit
End Function
'===================清除對象============
Function CloseWord()
Set wordDoc = Nothing '清除文件實例
Set wordApp = Nothing '清除WORD實例
End Function
問題補充：根據《小fisher》的答案，已經解決問題，另外在SaveAsWord過程中，ChangeFileOPenDirectory DiskStr更
改為ChangeFileOpenDirectory DiskStr ，ActiveDocument.SaveAs更改為wordDoc.SaveAs，再加上原先《小fisher》提
到要更改的地方，已經完美解決，謝謝！！
PS：由于百度只能2次提高懸賞，每次50分，所以現在只有200分，未能對現500分的諾言，所以只有另開貼來加送300
分！
提問者： 有野問 - 經理五級 最佳答案
1) Function ReplaceWord(SearchStr, ReplaceStr) '全部替換函數
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.......
這個函數過程有錯誤！因為Selection是word的對象而不是VB的對象，所以不能在VB中直接引用，必須用
wordApp.Selection替換掉Selection才行！
這段代碼在word VBA中調試不會出問題，但移植到VB中時要注意。
2)wordApp和wordDoc必須定義為全局變量，在模塊公有部分使用
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
來定義
然后在OpenWord(FileName)過程中使用Set wordApp =New Word.Application
和Set wordDoc = wordApp.Documents.Open(FileName)，否則在CloseWord()過程中wordApp和wordDoc兩個變量將會是未
第 1 頁
vb操作word
初始化的Variant類型。
3)Function SaveAsWord(DiskStr, NameStr)中的Application須使用wordApp替換，道理同1)。
________________________________________________________________________-
網上說在Visual Basic中創建Word文檔使用語句
Dim newDoc As Word.Document
Set newDoc = new Word.Document
但是VB會提示上述語句“用戶定義類型未定義”
另一種創建的方法是
Dim MsWord As Object
Set MsWord = CreateObject("Word.Basic")
MsWord.AppShow
MsWord.FileNewDefault
可以創建但是下述語句沒辦法使用（即對該文檔的一些操作）
With MsWord
.Content.Font.Name = "宋體"
.Content.Font.Size = 12
.Content.Paragraphs.LineSpacing = 15.5
End With
請教各位高手指點，我想在vb中創建一個word文檔，并將程序計算的一堆結果，在該文檔中按一定的格式打印出來。
另，我在word中錄制了一段宏，請問在VB中如何調用，要求代碼
Sub zz()
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=6, NumColumns:= _
6, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
With Selection.Tables(1)
If .Style <> "網格型" Then
.Style = "網格型"
End If
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = True
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = True
End With
Selection.TypeText Text:="1"
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:="2"
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:="3"
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:="4"
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:="5"
End sub
提問者： zhaizhaiya - 助理三級最佳答案
將
With MsWord
.Content.Font.Name = "宋體"
.Content.Font.Size = 12
.Content.Paragraphs.LineSpacing = 15.5
End With
改寫為
MsWord.Content.Font.Name = "宋體"
MsWord.Content.Font.Size = 12
MsWord.Content.Paragraphs.LineSpacing = 15.5
就可以了。
_____________________________________________________________________-
用vb讀word時,在程序讀完,為什么還有關聯,怎樣給她關聯除啦
懸賞分：0 - 解決時間：2008-10-23 10:06
用vb實現讀word程序的操作！
也就是說當我運行vb程序時讀啦一次word
第二次再執行時還是第一次的結果！
例如執行下面這個語句時：
If NewDoc.Paragraphs(1).Range.Font.Name = "新宋 體" Then s = s + 0.5
x = MsgBox("s=" + Str$(s), 64, "字體為1.5")
執行第一次之后，再改程序，執行時，總是提示word在另一個地方已經打開，實際上沒有打開，我想這是由于關聯的問
題！
提問者： lcs6678 - 助理二級最佳答案
在任務管理器下的進程下看看，肯定打開了。
不知道你是用什么方法定義的word對象。
如果這樣定義：
Dim a As Object, b As Object, c As Object
Set a = CreateObject("word.application")
Set b = a.Documents.open("c:\1 .doc")
第 2 頁
vb操作word
用以下語句關閉
b.close
a.quit
______________________________________________________________________
在VB如何存取word格式的文件
懸賞分：30 - 解決時間：2006-9-12 08:30
我想把用vb計算的一堆結果打印在word里面,并且有固定格式的簡單排版,最好能在word中打印一些表格,請問用什么樣的
函數或者對象實踐?希望高手幫忙,要是能加一點說明,更加感激不盡
提問者： zhaizhaiya - 助理二級最佳答案
我幫你搜索到了兩種方法雖然我自己也不懂但是也許你會懂吧
通過VBA進行WORD調用，要替換WORD中固定位置的值，可以事先在文檔中定義標簽，然后修改標簽的內容即可，不用查
找。
VB中用VBA調用WORD的方法：
菜單-》工程-》引用->Microsoft Word 9.0 Object Library (后面的數字為版本號）
Dim wdApp As New Word.Application
Dim docApp As New Word.Document
具體用怎么用標簽替換，可以到WORD中錄制宏看看就知道了，宏可以直接在VB中通過VBA執行。
方法2
使用VB編程時，有時需要調用Microsoft Word對文字進行編輯、排版及輸出。為實現這種調用，可以使用Shell函數、
OLE自動化、在包容器中嵌入Word對象等方法。經過試用和比較，總結出了這幾種方法的各自特點。
1 使用Shell函數直接調用
語法：Shell (pathname[,windowstyle]).Pathname是指要執行的程序的名字和任何必須的參數或命令行開關，可以包括
目錄和驅動器名；Windowstyle是執行程序的窗口風格的數字。
使用Shell調用Word比較簡單，編程量小，但必須明確指定Word所在路徑，這不利于移植，而且，不能對Word進行控制，
不利于程序和Word之間的數據交換。
2 使用OLE自動化控制Microsoft Word
2.1 使用方法
(1)Word為OLE自動化提供一種稱為“Basic”的對象，要在VB中控制Word ,首先要定義一個引用Word中“Basic”對象的
對象變量：Dim Wordobj as Object
(2)將Word 中的“Basic”對象賦給該對象：Set Wordobj=CreateObject("Word.Basic")
(3)可以使用大多數WordBasic語句和函數控制Word或Word文檔，使用方法和在Word宏中使用WordBasic指令的方法基本相
同。
(4)關閉Word:Set Wordobj =Nothing。
注意：“Basic”對象不支持關閉它自己的一個方法。即若在OLE自動化中關閉了Word，則對象被置為Nothing，便不能再
對對象進行操作，程序出錯。
2.2 VB指令與WordBasic指令的差異
(1)有一些語句和函數不能使用，包括：控制結構，如While…Wend和If…Then…Else；聲明語句，如Dim；定制對話框相
關的語句：FileExit語句；要求數組變量作為參數的語句或函數。
(2)也有一些指令使用方法不同。①返回字符串以一個美元符（$）結束的WordBasic函數的關鍵字必須括在方括號中。例
如，在WordBasic宏中的GetBookmark$()語句：mark$=GetBookmark$("Address")，若用VB調用，必須這樣寫
mark$=Wordobj.[Ge-tBookmark$]("Address")。②選擇一個命令按鈕用“True”,不選擇用“False”
2.3 對OLE自動化的說明
Word可以為OLE自動化給另一個應用提供對象，但是它不能使用OLE自動化訪問其它應用中的對象。例如：VB和Excel可以
使用OLE自動化訪問Word，但是Word不能使用OLE自動化訪問它們。
3 在包容器中嵌入Word對象
在VB中，要訪問在包容器中嵌入的Word對象，首先要在項目中插入對象。做法如下：在窗體中插入OLE控件，對象類型選
擇“MicrosoftWord圖片”或“Microsoft Word文檔”，再按“確定”。
然后用Object屬性訪問文檔或圖片，并使用WordBasic語句和函數作用于它。嵌入的對象必須在可被訪問之前被激活，可
以使用Action屬性激活OLE控件。例如，使用下面指令訪問一個嵌入在稱為OLE1的OLE控件中的文檔：
Dim Wordobj as Object
OLE1.Action =7
Set Wordobj =OLE1.Object.Application. WordBasic
其他方面，使用方法同OLE自動化。使用在包容器中嵌入的Word對象，Word顯示的窗口大小、位置與OLE控件定義的大
小、位置相同，而且工具欄顯示位置與Word脫離。這一點與OLE自動化相比，是個不足。
總之，要想在Microsoft Visual Basic中控制Microsoft Word，最好使用OLE自動化，通過使用WordBasic指令對Word進
行全面控制，而且，用戶使用起來與使用Microsoft Word一樣，非常方便
___________________________________________________________________________________
用VB如何在WORD指定位置上插入文字?
懸賞分：150 - 解決時間：2006-12-6 10:21
提問者： sxtyhjh - 見習魔法師二級最佳答案
在VB6.0中，操作word，使用它強大的查找、替換、刪除、復制、翦切功能。還可以把特定字符替換成圖片。有了它你就
可以使用數據庫中的內容或圖片文件替換word文件中的特定字符。
只要把下列內容復制到寫字板中，另存為SetWord.cls文件，然后在把它添加到工程中，就可以使用了。
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "SetWord"
Attribute VB_GlobalNameSpace = False
第 3 頁
vb操作word
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Private mywdapp As Word.Application
Private mysel As Object
'屬性值的模塊變量
Private C_TemplateDoc As String
Private C_newDoc As String
Private C_PicFile As String
Private C_ErrMsg As Integer
Public Event HaveError()
Attribute HaveError.VB_Description = "出錯時激發此事件.出錯代碼為ErrMsg屬性"
'***************************************************************
'ErrMsg代碼：1－word沒有安裝 2 - 缺少參數 3 - 沒權限寫文件
' 4 - 文件不存在
'
'***************************************************************
Public Function ReplacePic(FindStr As String, Optional Time As Integer = 0) As Integer
Attribute ReplacePic.VB_Description = "查找FindStr,并替換為PicFile所指向的圖片文件,替換次數由time參數確
定,為0時，替換所有"
'********************************************************************************
' 從Word.Range對象mysel中查找所有FindStr，并替換為PicFile圖像
' 替換次數由time參數確定，為0時，替換所有
'********************************************************************************
If Len(C_PicFile) = 0 Then
C_ErrMsg = 2
Exit Function
End If
Dim i As Integer
Dim findtxt As Boolean
mysel.Find.ClearFormatting
mysel.Find.Replacement.ClearFormatting
With mysel.Find
.Text = FindStr
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
mysel.HomeKey Unit:=wdStory
findtxt = mysel.Find.Execute(Replace:=True)
If Not findtxt Then
ReplacePic = 0
Exit Function
End If
i = 1
Do While findtxt
mysel.InlineShapes.AddPicture FileName:=C_PicFile
If i = Time Then Exit Do
i = i + 1
mysel.HomeKey Unit:=wdStory
findtxt = mysel.Find.Execute(Replace:=True)
Loop
ReplacePic = i
End Function
Public Function FindThis(FindStr As String) As Boolean
Attribute FindThis.VB_Description = "查找FindStr,如果模板中有FindStr則返回True"
If Len(FindStr) = 0 Then
C_ErrMsg = 2
Exit Function
End If
mysel.Find.ClearFormatting
第 4 頁
vb操作word
mysel.Find.Replacement.ClearFormatting
With mysel.Find
.Text = FindStr
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
mysel.HomeKey Unit:=wdStory
FindThis = mysel.Find.Execute
End Function
Public Function ReplaceChar(FindStr As String, RepStr As String, Optional Time As Integer = 0) As Integer
Attribute ReplaceChar.VB_Description = "查找FindStr,并替換為RepStr,替換次數由time參數確定,為0時，替換所有
"
'********************************************************************************
' 從Word.Range對象mysel中查找FindStr，并替換為RepStr
' 替換次數由time參數確定，為0時，替換所有
'********************************************************************************
Dim findtxt As Boolean
If Len(FindStr) = 0 Then
C_ErrMsg = 2
RaiseEvent HaveError
Exit Function
End If
mysel.Find.ClearFormatting
mysel.Find.Replacement.ClearFormatting
With mysel.Find
.Text = FindStr
.Replacement.Text = RepStr
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
If Time > 0 Then
For i = 1 To Time
mysel.HomeKey Unit:=wdStory
findtxt = mysel.Find.Execute(Replace:=wdReplaceOne)
If Not findtxt Then Exit For
Next
If i = 1 And Not findtxt Then
ReplaceChar = 0
Else
ReplaceChar = i
End If
Else
mysel.Find.Execute Replace:=wdReplaceAll
End If
End Function
Public Function GetPic(PicData() As Byte, FileName As String) As Boolean
Attribute GetPic.VB_Description = "把圖像數據PicData,存為PicFile指定的文件"
'********************************************************************************
' 把圖像數據PicData,存為PicFile指定的文件
'********************************************************************************
On Error Resume Next
If Len(FileName) = 0 Then
第 5 頁
vb操作word
C_ErrMsg = 2
RaiseEvent HaveError
Exit Function
End If
Open FileName For Binary As #1
If Err.Number <> 0 Then
C_ErrMsg = 3
Exit Function
End If
'二進制文件用Get,Put存放，讀取數據
Put #1, , PicData
Close #1
C_PicFile = FileName
GetPic = True
End Function
Public Sub DeleteToEnd()
Attribute DeleteToEnd.VB_Description = "刪除從當前位置到結尾的所有內容"
mysel.EndKey Unit:=wdStory, Extend:=wdExtend
mysel.Delete Unit:=wdCharacter, Count:=1
End Sub
Public Sub MoveEnd()
Attribute MoveEnd.VB_Description = "光標移動到文檔結尾"
'光標移動到文檔結尾
mysel.EndKey Unit:=wdStory
End Sub
Public Sub GotoLine(LineTime As Integer)
mysel.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=LineTime, Name:=""
End Sub
Public Sub OpenDoc(view As Boolean)
Attribute OpenDoc.VB_Description = "打開Word文件,View確定是否顯示Word界面"
On Error Resume Next
'********************************************************************************
' 打開Word文件，并給全局變量mysel賦值
'********************************************************************************
If Len(C_TemplateDoc) = 0 Then
mywdapp.Documents.Add
Else
mywdapp.Documents.Open (C_TemplateDoc)
End If
If Err.Number <> 0 Then
C_ErrMsg = 4
RaiseEvent HaveError
Exit Sub
End If
mywdapp.Visible = view
mywdapp.Activate
Set mysel = mywdapp.Application.Selection
'mysel.Select
End Sub
Public Sub OpenWord()
On Error Resume Next
'********************************************************************************
' 打開Word程序，并給全局變量mywdapp賦值
'********************************************************************************
Set mywdapp = CreateObject("word.application")
If Err.Number <> 0 Then
C_ErrMsg = 1
RaiseEvent HaveError
第 6 頁
vb操作word
Exit Sub
End If
End Sub
Public Sub ViewDoc()
Attribute ViewDoc.VB_Description = "顯示Word程序界面"
mywdapp.Visible = True
End Sub
Public Sub AddNewPage()
Attribute AddNewPage.VB_Description = "插入分頁符"
mysel.InsertBreak Type:=wdPageBreak
End Sub
Public Sub WordCut()
Attribute WordCut.VB_Description = "剪切模板所有內容到剪切板"
'保存模板頁面內容
mysel.WholeStory
mysel.Cut
mysel.HomeKey Unit:=wdStory
End Sub
Public Sub WordCopy()
Attribute WordCopy.VB_Description = "拷貝模板所有內容到剪切板"
mysel.WholeStory
mysel.Copy
mysel.HomeKey Unit:=wdStory
End Sub
Public Sub WordDel()
mysel.WholeStory
mysel.Delete
mysel.HomeKey Unit:=wdStory
End Sub
Public Sub WordPaste()
Attribute WordPaste.VB_Description = "拷貝剪切板內容到當前位置"
'插入模塊內容
mysel.Paste
End Sub
Public Sub CloseDoc()
Attribute CloseDoc.VB_Description = "關閉Word文件模板"
'********************************************************************************
' 關閉Word文件模本
'********************************************************************************
On Error Resume Next
mywdapp.ActiveDocument.Close False
If Err.Number <> 0 Then
C_ErrMsg = 3
Exit Sub
End If
End Sub
Public Sub QuitWord()
'********************************************************************************
' 關閉Word程序
'********************************************************************************
On Error Resume Next
mywdapp.Quit
If Err.Number <> 0 Then
C_ErrMsg = 3
Exit Sub
End If
End Sub
Public Sub SavetoDoc()
Attribute SavetoDoc.VB_Description = "保存當前文檔為FileName指定文件"
On Error Resume Next
第 7 頁
vb操作word
'并另存為文件FileName
If Len(C_newDoc) = 0 Then
C_ErrMsg = 2
RaiseEvent HaveError
Exit Sub
End If
mywdapp.ActiveDocument.SaveAs (C_newDoc)
If Err.Number <> 0 Then
C_ErrMsg = 3
RaiseEvent HaveError
Exit Sub
End If
End Sub
Public Property Get TemplateDoc() As String
Attribute TemplateDoc.VB_Description = "模板文件名."
TemplateDoc = C_TemplateDoc
End Property
Public Property Let TemplateDoc(ByVal vNewValue As String)
C_TemplateDoc = vNewValue
End Property
Public Property Get newdoc() As String
Attribute newdoc.VB_Description = "執行CloseDoc方法時，將模板文件另存為此文件名指定的新文件.如果不指定，
在執行CloseDoc方法時，將產生一個錯誤"
newdoc = C_newDoc
End Property
Public Property Let newdoc(ByVal vNewValue As String)
C_newDoc = vNewValue
End Property
Public Property Get PicFile() As String
Attribute PicFile.VB_Description = "圖像文件名"
PicFile = C_PicFile
End Property
Public Property Let PicFile(ByVal vNewValue As String)
C_PicFile = vNewValue
End Property
Public Property Get ErrMsg() As Integer
Attribute ErrMsg.VB_Description = "錯誤信息.ErrMsg代碼: 1-word沒有安裝 2-缺少參數 3-沒權限寫文件 4-文件不
存在"
ErrMsg = C_ErrMsg
End Property
________________________________________________________________________________
用VB調用WORD
懸賞分：10 - 解決時間：2008-5-25 19:02
我在WORD里寫了點東西，然后想用VB調用它，請高手指點，怎么調用這個文件，假設為help.doc
請給出原程序。
問題補充：你的代碼沒有問題，可不是我想要的，運行的結果只是顯示了WORD內的部分內容，我想要打開WORD并顯示出
來，就像正常打開WORD一樣，不過這是通過代碼來實現
提問者： jerryzhanzmq - 試用期一級最佳答案
那么你試一下下面的代碼，是不是你所說的？？？
Private Sub Form_Load()
Dim wp As New Word.Application
Dim wd As New Word.Document
wp.Visible = True
Set wd = wp.Documents.Open("c:\22075847937.doc")
Dim neirong As String
neirong = wd.Content.Text
MsgBox "該Word文件的內容為：" & vbNewLine & neirong
End Sub
你說的只是個打開WORD文件，那么不就是個執行文件操作嗎？調用shellexecute api不就行了嗎！郁悶
_______________________________________________________________________________________
第 8 頁
更多文章、技術交流、商務合作、聯系博主
微信掃碼或搜索：z360901061
微信掃一掃加我為好友
QQ號聯系： 360901061
您的支持是博主寫作最大的動力，如果您喜歡我的文章，感覺我的文章對您有幫助，請用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧，狠狠點擊下面給點支持吧，站長非常感激您！手機微信長按不能支付解決辦法：請將微信支付二維碼保存到相冊，切換到微信，然后點擊微信右上角掃一掃功能，選擇支付二維碼完成支付。
【本文對您有幫助就好】元
