28、Excel与Word、Outlook的交互操作指南

Excel与Word、Outlook的交互操作指南

1. Excel与Word的交互操作

1.1 创建新的Word文档

可以使用 WdApp.Documents.Add 语句轻松从头创建一个新的Word文档。通常创建新文档是为了保存某种叙述或数据，因此需要保存新文档。以下是一个创建并保存新Word文档的宏示例：

Sub CreateWordDoc()
    'Declare Object variables for the Word application
    'and new document.
    Dim objWordApp As Object, objWordDoc As Object
    'On Error statement if Word is not already open.
    On Error Resume Next
    'Activate Word if it is already open.
    Set objWordApp = GetObject(, "Word.Application")
    If Err.Number = 429 Then
        Err.Clear
        'Create a Word application if Word is not already open.
        Set objWordApp = CreateObject("Word.Application")
    End If
    'Make sure the Word application is visible.