vba excel to word

来源：互联网发布：软件项目经理培训视频编辑：程序博客网时间：2024/05/16 07:46

将excel中的数据按表格形式保存到word中：（在“工具”菜单中选中"引用"项）

选择： MicroSoft Word 11.0 Object Libarary

代码：

Public Sub ExportWord()    Dim WordApp As Word.Application    Set WordApp = CreateObject("Word.Application")    WordApp.Visible = True    With WordApp        Set newDoc = .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            .Range.ConvertToTable Separator:=wdSeparateByTabs            .Tables(1).AutoFormat Format:=wdTableFormatClassic1        End With    End With    Set WordApp = Nothing            End Sub