Microsoft Word 对象

Microsoft Word 对象(25)
Dim appWD As Word. Application

Err.Number = 0

On Error GoTo notloaded

Set appWD = GetObject (, "Word. Application.8")

notloaded:

If Err. Number = 429 Then

Set appWD = CreateObject ("Word. Application.8")

theError = Err. Number

End If

appWD. Visible = True

With appWD

Set myDoc = .Documents. Add

With .Selection

For Each c In Worksheets ("Sheet1"). Range ("A1:B10")

.InsertAfter Text :=c.Value

Count = Count + 1

If Count Mod 2 = 0 Then

.InsertAfter Text :=VBCr

Else

.InsertAfter Text :=VBTab

End If

Next c

.Range. ConvertToTable Separator :=wdSeparateByTabs

.Tables(1). AutoFormat Format :=wdTableFormatClassic1

End With

myDoc. SaveAs FileName :="C:\Temp.doc"

End With

If theError = 429 Then appWD. Quit

Set appWD = Nothing

从Word对另一个应用程序进行自动化

要通过从Word使用自动化来和另一个应用程序交换数据，必须首先在“引用”对话框(在“工具”菜单中)里设置对另一个应用程序的类类型库的一个引用。在这之后，另一个应用程序的对象、属性和方法都将出现在“对象浏览器”中，并且会在编译时自动对语法进行检查。用户也可以获得这些对象、属性和方法的内容敏感型帮助。

下一步，声明一个引用另一个应用程序中的特定类型对象的对象变量。以下示例声明了一个变量，该变量指向Microsoft Excel Application对象。

Dim xlObj As Excel.Application.8