Help With Coding Please

[Bejay Patel]

Hi All,

I am currently trying to write some simple code in Excel in order to paste some excel tables into word one after the other with a space in between each.

I am getting there however I cannot get a space in between in the tables which is rather frustrating me, can anybody please advise?

Here is the code as I have currently written it - This is only for two of the tables another 5 also need to be incorporate however I will roll the code once I know how to get the space in between!

Sub Macro1()
'
' Macro1 Macro
'

'
Range("A7:G28").Select
Selection.Copy
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Add
WordApp.Selection.Paste
Application.CutCopyMode = False

Range("A33:G54").Select
Selection.Copy
WordDoc.Paragraphs.LineSpacingRule = wdLineSpaceDouble
WordDoc.Paragraphs.Add
WordApp.Selection.Paste
Application.CutCopyMode = False

End

End Sub

If anybody can please advise I would be most grateful indeed.

Thanks,

Bejay

[Joacim Andersson]

Moved to the Office Development forum.

[westconn1]

you could try
wordapp.Selection.TypeParagraph