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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

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