Help needed to resolve error in Macro script

Hello Everyone,

I need some help on the below script. The below script is consolidating the mail body contents from the selected mails to MS Word Document. I am getting an error message on the line no. 35 as "Runtime Error 4605" "This Property or method is not available because the clipboard is not empty or not valid. If I put "'On Error Resume Next" to bypass this error message, then I am not getting all the contents of all selected mails. Your vaulable advise will help me a lot.

1. Sub Mail_Consolidation()
3. Dim WordApp As Word.Application 'Need to link Microsoft Word Object library, Oulook library from Tools->References\
4. Dim wdDoc As Word.Document 'for these to be understood by compiler
5. Dim activeMailMessage As Outlook.MailItem
6. Dim activeBody As String
7. 'Dim X As String
10. Selection.HomeKey Unit:=wdStory
11. Selection.WholeStory
12. Selection.Delete Unit:=wdCharacter, Count:=1
15. 'On Error Resume Next
17. 'Inputbox to get the count of emails selected in folder
18. 'X = InputBox(Prompt:="Number of Mails Selected is ", Title:="Number of Mails", Default:="")
20. For i = 1 To 21
23. If TypeName(ActiveExplorer.Selection.Item(i)) = "MailItem" Then
25. 'Goes to Outlook mails
26. Set activeMailMessage = ActiveExplorer.Selection.Item(i)
29. 'Copy the formatted text from selected mails:
31. activeMailMessage.GetInspector().WordEditor.Range.FormattedText.Copy
33. 'Paste to the word document
35. Selection.Paste 'AndFormat (wdFormatOriginalFormatting)
37. Selection.EndKey Unit:=wdStory
39. Selection.TypeParagraph
41. End If
43. Next
45. ActiveDocument.Save
47. 'ActiveDocument.Close
49. MsgBox "Mail Consolidation is Done"
52. End Sub