Microsoft Office Forums - View Single Post - [Solved] Error 4605 while trying to copy and paste with same document

macropod · 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