Exporting Excel data to Word (VBA)

I have been trying to do this for a while also, and have formatting problems. I tried "recording" a macro in Word to reformat, but didn't get that to work. I am interested in responses to this as well...

Howdy Snowblind & NancyO

I use the following code with the pastespecial to leave the gridlines behind.

<pre>
Sub WordUp()
Dim WdObj As Object, fname As String
fname = Sheets(2).[a1].Value
Set WdObj = CreateObject("Word.Application")
WdObj.Visible = False
Selection.Copy 'Your Copy Range
WdObj.documents.Add
WdObj.Selection.PasteSpecial Link:=False, _
DataType:=wdPasteText, Placement:= _
wdInLine, DisplayAsIcon:=False
Application.CutCopyMode = False
If fname <> "" Then 'make sure fname is not blank
With WdObj
.ChangeFileOpenDirectory "c:temp" 'save Dir
.ActiveDocument.SaveAs Filename:=fname & ".doc"
End With
Else:
MsgBox ("File not saved, naming range was botched, guess again.")
End If
With WdObj
.ActiveDocument.Close
.Quit
End With
Set WdObj = Nothing
End Sub</pre>

I dim as an object, perhaps a little slower, but avoids the library reference.

Not sure I exactly follow question 2, but this should be formatted very much like your spreadsheet. Also, don't edit in Word, will return it to a gridline format.

I had code as below:


But it occur error at .ChangeFileOpenDirectory "c:\temp" 'save Dir
..May I know what is the problem?????Anyone can tell me?

How can I do so that when I insert new excel data into this word document,it will be insert into the new page so it will not overlapping the existing page.