将数据从Excel复制到MS Word

我有时不能从excel中获取完整的数据到word文档中。 它适用于第一，第二，第三个单词文档，然后在第四，第五和第六个单词中只有一个单词，然后再把完整的信息放入第七个单据 – 例如。

我想知道为什么macros有时对于所有文档都有效，有时候只有less数 – 只复制最后一个字 – 没有模板和标识。

我使用的代码是：

Sub Macro2() Dim UsedRng As Range Dim FirstRow As Integer, LastRow As Integer Dim appWD As Object Set appWD = CreateObject("Word.Application") appWD.Visible = True Set UsedRng = ActiveSheet.UsedRange FirstRow = UsedRng(1).Row LastRow = UsedRng(UsedRng.Cells.Count).Row Sheets("Data").Select 'FinalRow = Range("A" & Rows.Count).End(xlUp).Row For i = 5 To LastRow If Range("F" & i).Value = "Yes" Then 'SRange = Range("F" & i).Value Range("A" & i).Copy Sheets("Letter").Select Range("C5").PasteSpecial Paste:=xlPasteValues Sheets("Data").Select Range("D" & i).Copy Sheets("Letter").Select Range("C6").PasteSpecial Paste:=xlPasteValues Sheets("Data").Select Range("J" & i).Copy Sheets("Letter").Select Range("C7").PasteSpecial Paste:=xlPasteValuesAndNumberFormats Sheets("Data").Select Range("L" & i, "N" & i).Copy Sheets("Letter").Select Range("C8").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Transpose:=True Sheets("Letter").Select Range("A1:D11").Copy appWD.Documents.Add appWD.Selection.Paste appWD.ActiveDocument.SaveAs Filename:="MS_ST" & i appWD.ActiveDocument.Close Sheets("Letter").Select Range("C5:C11").ClearContents End If Sheets("Data").Select Next i appWD.Quit Set appWD = Nothing End Sub 

请让我知道我做错了什么，因为我想了解更多，并始终提高，所以抛弃了我。 预先感谢您的帮助。