UC知道关于VB与word的问题
来源：百度知道 编辑：UC知道 时间：2024/05/21 10:35:46
网上说 在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 =
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 =
将
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
就可以了。
正如楼上所说的
With MsWord
.Content.Font.Name = "宋体"
.Content.Font.Size = 12
.Content.Paragraphs.LineSpacing = 15.5
End With
你定义的类型是object 系统不会识别你with里面对象的属性，所以报错了，如果你象这个 Dim newDoc As Word.Document 定义一样的话，那就没有问题了，如果不能确定WORD的版本，那建议你还是使用 禹希初 的方法吧