Run time error '4605' this method or property is not available because the clipboard is empty

[ArulAC123]

I'm getting the error

run time error '4605' this method or property is not available because the clipboard is empty

while copying data from MS excel to MS word table (Cell by cell copy and paste) using VBA.



Can anyone help to solve this error.



Thanks in advance

 

[vletm]

Could You give some hint of Your VBA code?
or
of course You have 'googled' runtime error 4605

 

[ArulAC123]

Could You give some hint of Your VBA code?
or
of course You have 'googled' runtime error 4605

Dim WB As Workbook
Dim WS As Worksheet
Dim WdDoc As Object
Dim Tbl1 As Object
Dim Wd As Object
Dim objRange As Object
Dim Row As Integer, Col As Integer

Row = 1
Col = 16
Set WB = ThisWorkbook
Set WS = WB.Sheets(1)
Set Wd = CreateObject("Word.Application")
Set WdDoc = Wd.documents.Add
Set objRange = WdDoc.Range
WdDoc.Tables.Add objRange, Row, Col
Set Tbl1 = WdDoc.Tables(1)

Wd.Visible = True
Tbl1.Borders.enable = True
For i = 1 To Col
WS.Cells(i, 25).Copy
Tbl1.Cell(i, 1).Range.Paste
Tbl1.Rows.Add
Next i

 

[NARAYANK991]

Hi ,

I am not sure what you want to do ; see if the code in the uploaded workbook generates the same error.

Narayan