Help to paste without table formatting (learning, the hard way)

[mellowest]

Hello,

I am getting a "Run-time error '438': Object doesn't support this property or method" when I run the first snippet of code, FYI.



Sub CopyTable()
Dim Osource As Document
Set Osource = Documents.Open("C:\documentlocation.docx")
Osource.Tables(2).Cell(2, 1).Range.Copy
ActiveDocument.PasteAndFormat wdFormatPlainText
End Sub

***eureka***

I was able to get what I wanted by modifying my earliest submission with the line included below. As it is so often the case, it was a simple fix:


Otarget.Range.PasteAndFormat wdFormatPlainText

Thank you again.