Help tweaking VBA code to paste into word

[STEVENS3010]

Hi all,

I have the following code which I am using to copy a range from excel and pasting into a word document. Could somebody please help me understand how to tweak it slightly so that the paste is done with unformatted text?

Sub ExcelToWord()

Dim wordApp As Word.Application

Dim mydoc As Word.Document

Set wordApp = New Word.Application

wordApp.Visible = True

Set mydoc = wordApp.Documents.Add()

ThisWorkbook.Worksheets("sheet2").Range("A1:A30").Copy

mydoc.Paragraphs(1).Range.Paste

CutCopyMode = False

End Sub

 

[NdNoviceHlp]

Google seems to think that this should work...

mydoc.Paragraphs(1).Range.PasteSpecial Link:=False, DataType:= 2' wdPasteText 
Application.CutCopyMode = False

HTH. Dave

 

[STEVENS3010]

This is a great help, thanks so much.

 

[NdNoviceHlp]

You are welcome. Thanks for posting your outcome. Dave