I have the following this set of code that can paste excel range A1:A100 to a Word doc. However, the range, after being pasted to Word, remains a table.
Please how do I insert some codes to this vba to convert the pasted range from table to text. I know how to convert table to text but I dont know how to code this action to my vba below.
Many thanks for any help.
Dim Wdapp As Object, Rng As Range, c As Range
Set Rng = Selection
For Each c In Rng
c.BorderAround Weight:=xlThin, ColorIndex:=2
On Error GoTo Errmsg
Set Wdapp = CreateObject("Word.Application")
Application.CutCopyMode = False
Wdapp.Visible = True
Errmsg: MsgBox "You have an error"
Set Wdapp = Nothing
Formatting tags added by mark007