Creating a Word Doc from a Excel Worksheet

[dbrull]

I have a macro that copies a range from a table of data, and creates a word doc from it.
The problem is that the word doc ends up with the grid lines. I would just like it to have the borders on the cells i have selected on the excel worksheet.

how would i do this? Currently this is the paste command I have.

WdObj.Selection.Paste

Thanks in advance!

 

[Corticus]

Hi!

Could I see the rest of the code for your macro, this is something I'm very interested in doing.

Did you try options...view...show gridlines(not checked)?

Just a thought.

Peace,
Corticus

 

[dbrull]

Yup sure did I think the lines are from the Word program.. not sure though

heres the complete code someone on this forum helped me with.

Sub WordUp()
Dim WdObj As Object, fname As String
fname = Sheets(1).[a1].Value
Set WdObj = CreateObject("Word.Application")
WdObj.Visible = False
Range("word").Copy
WdObj.documents.Add
WdObj.Selection.Paste
Application.CutCopyMode = False
If fname <> "" Then 'make sure fname is not blank
With WdObj
.ChangeFileOpenDirectory "c:Personal" '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

 

[Corticus]

Thanks sooo much,

I'm playing with the code now, I'll let you know if I have any luck...

Corticus

 

[Corticus]

This should do it,

Sub WordUp()

Dim WdObj As Object, fname As String
fname = Sheets(1).[a1].Value

Set WdObj = CreateObject("Word.Application")
WdObj.Visible = False

Range("Word").Copy
WdObj.documents.Add

'this line specifies to paste special, as Unicode text
WdObj.Selection.PasteSpecial Link:=False, DataType:=20, Placement:= _
wdInLine, DisplayAsIcon:=False

Application.CutCopyMode = False
If fname<> "" Then 'make sure fname is not blank
With WdObj
.ChangeFileOpenDirectory "c:\Personal" '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

HTH,
Corticus
This message was edited by Corticus on 2002-08-29 11:48