如何让Excel数据复制到Word

love_liwu

各位老师好，是这样，我想通过Excel复制数据，然后新建Word，再将数据粘贴到Word里边。现在以下代码可以实现复制，但是在Word里边却无法粘贴数据，麻烦各位老师帮我看看问题出在哪里，谢谢！ 如何让Excel数据复制到Word.zip (8.61 KB, 下载次数: 3)

2016-4-18 19:35 上传

点击文件名下载附件

以下是代码：
Sub Macro1()
'
' Macro1 Macro
' 宏由 微软用户 录制，时间: 2016-4-18
'
'
    Columns("I:I").Select
    Selection.Copy
    Dim wordapp As Object, worddoc As Object, hwnd&
    On Error Resume Next
    Set wordapp = GetObject(, "Word.Application")
    If wordapp Is Nothing Then Set wordapp = CreateObject("Word.Application")
    Set worddoc = wordapp.Documents.Add
    wordapp.Visible = True
    'hwnd = FindWindow(vbNullString, worddoc.Name & " - " & wordapp.Caption)
    'BringWindowToTop hwnd
    WordObject.ActiveWindow.Selection.PasteAndFormat (wdFormatPlainText)
'Selection.PasteAndFormat (wdFormatPlainText)
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = ""
        .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
    Selection.WholeStory
End Sub