Error 4605 while trying to copy and paste with same document

macropod · #2 05-04-2020, 03:18 PM

Aside from the '.' after 'd As Document', your code works for me. That said, it's verbose and inefficient. Try:

Code:

Sub Demo()
Application.ScreenUpdating = False
Dim r As Long, Rng As Range
With ActiveDocument.Tables(1)
  For r = 3 To .Rows.Count
    With .Rows(r)
      If .Cells.Count > 1 Then
        Set Rng = .Cells(1).Range
        Rng.End = Rng.End - 1
        .Cells(2).Range.FormattedText = Rng.FormattedText
      End If
    End With
  Next r
End With
Application.ScreenUpdating = True
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Copy/Paste error	stuart255	Office	5	05-06-2019 02:13 AM
run-time error 4605 command not available with Selection.paste	Marzio	Word VBA	14	01-30-2019 04:46 AM
Word Error Message Run time Error 4605	baes10	Word VBA	1	08-30-2018 02:37 PM
Error 4605 when looping through files in folder and deleting comments	Peterson	Word VBA	2	04-19-2018 08:45 AM
PasteAppendTable not available (Run-Time Error 4605)	q_scribe	Word VBA	1	08-12-2013 09:56 AM