Extent range to copy data from Excel to Word

[keis386]

Hi I need to export data from word to excel.
I Already created macro but I need to extent it:
-It now only takes data from range A1:A10, but it needs to copy all data that is availlable in column A
-It needs to print the word doc.

Much Appreciated and nice weekend!




Sub PasteToWord()

Dim wdApp As Object
Dim wd As Object

On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
Set wdApp = CreateObject("Word.Application")
End If
On Error GoTo 0

Set wd = wdApp.Documents.Open("h:\test.docx")

wdApp.Visible = True

Range("A1:A10").CopyPicture xlScreen, xlPicture
wd.Range.Paste


End Sub

[6StringJazzer]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)