Thread: run-time error 4605 when using a macros in excel 2010 (windows 7)

The following macros (which was created with the help of this forum-thanks) is used to transfer data from excel to several tables within a word document:

Sub Appendix_table_fill()

  Dim C As Long
  Dim FileFilter As String
  Dim LastCol As Long
  Dim R As Long
  Dim Rng As Excel.Range
  Dim T As Integer
  Dim WordFile As String
  Dim wdApp As Object
  Dim wdDoc As Object
  Dim wdTbl As Object
  Dim Wks As Worksheet
  
    Set Wks = Worksheets("Summary Table")
    Set Rng = Wks.Range("Q3:Q11")
    
    LastCol = Wks.Cells(Rng.Row, Columns.Count).End(xlToLeft).Column
    Set Rng = Rng.Resize(ColumnSize:=LastCol)
    
      FileFilter = "Word Documents(*.docx),*.docx, All Files(*.*),*.*"
      WordFile = Excel.Application.GetOpenFilename(FileFilter)
    
      If WordFile = "False" Then Exit Sub
    
        T = 4
        Set wdApp = CreateObject("Word.Application")
        Set wdDoc = wdApp.Documents.Open(WordFile)
        
        For C = 1 To LastCol
          Set wdTbl = wdDoc.Tables(T)
            For R = 1 To Rng.Rows.Count
              wdTbl.Columns(2).Select
              Rng.Columns(C).Copy
              wdApp.Selection.Paste
            Next R
          T = T + 5
          If T > wdDoc.Tables.Count Then Exit For
        Next C
        
        Excel.Application.CutCopyMode = False
        wdApp.Visible = True
    
    Set wdApp = Nothing
    Set wdDoc = Nothing
    Set wdTbl = Nothing
    
End Sub

I recieve a an error message saying:

"run-time error 4605

This method or property is not available because the clipboard is empty or not available"

Stepping into debugger it stops here: "wdApp.Selection.Paste"

This code works fine in both excel 2007 and 2010 in XP mode, but is much slower. It seems to only fail in windows 7? It also seems to fail at different points, cutting and pasting into some of the tables then failing.

Please could you help me determine what is wrong.

Much appreciated,

rpt21

Hello MarvinP,

There is definitely a table where is should paste, the document is made up identical pages and each page has five tables in it. The data is pasted into every 5th table since the other tables contain other content.

The macros fails at different points, so it is not one table that is problematic.

This code has worked for a while, it is only since I have upgraded to Windows 7. As I mentioned, it works on my virtual XP but it is annoying to use this each time I need to run this macros.

regards,

Ross