Printing Excel Data into a MSWord document as formatted text, not a table.

[nbonanno]

My boss is being difficult. Using some code I found on this site, I can have our status report Excel spreadsheet create a lovely MSWord document...but the data is in table format. She wants plain ole' formatted text. When I use " appWD.Selection.Pastespecial datatype:=wdpastetext" it comes over without bolds or underlines. I also tried wdpasteRTF but that seemed to give me a table again.

Is there someway to have it copied into the MSWord document "prettily" but not be in a table? Thank you in advance.

Here is my code:

<code>Sub Create_msword_for_Kia_Report()
Dim appWD As Word.Application
Set appWD = CreateObject("Word.Application.12")
appWD.Visible = True
appWD.Documents.Add

Sheets("For Kia's Report").Select
Range("a1:g9").Copy
appWD.Selection.PasteSpecial DataType:=wdPasteText
appWD.ActiveDocument.SaveAs
Filename:="C:\Users\nb7149\Documents\Issuetrak\statusreport.doc"
appWD.ActiveDocument.Close
appWD.Quit
End Sub

</code>

 

[nbonanno]

Wonderful - I will give this a try as soon as I have a moment and I'll let you know. Thanks again for your help.

Don't know. I can't replay the macro because I get an error when assigning the appWD .

But if I do it manually, all the formatting is kept.

You could also put the last parameter in

    appWD.Selection.PasteExcelTable False, False, False

to True

    appWD.Selection.PasteExcelTable False, False, True

which pastes it as RTF, see if that helps