Hi,
I can see that you can email a range from excel as an attachment or as part of the body of the email and I can see that you can convert the excel file to PDF and then email. But im wondering is it possible to take a range from excel place it into a word document and then email the word document as an attachment?
Has anyone got any insight into if this is even possible let alone how you can do it?
Thanks in advance
Re: Convert Excel Range to Word and then email as attachement
Yes - but perhaps there are things left unsaid here? Is there any processing of the data in Word, like filling in predefined fields to construct a 'finished' document?
Re: Convert Excel Range to Word and then email as attachement
No its just copying a range from a spread sheet to fit on a word document, the only caveat is that the information needs to be editable after pasting.
Re: Convert Excel Range to Word and then email as attachement
Quotecopying a range from a spread sheet to fit on a word document
What if it doesn't fit?
Never mind. Verbose, and not particularly efficient, code (but it is simple to understand and change) to copy the selected range to a table on a word doc.
Sub x2()
Dim lRows As Long
Dim lCols As Long
Dim i As Long
Dim j As Long
Dim wdAPP As Object
Dim wdRng As Object
Dim wdTbl As Object
Dim wdDoc As Object
lRows = Selection.Rows.Count
lCols = Selection.Columns.Count
Set wdAPP = CreateObject("Word.Application")
wdAPP.Visible = True
Set wdDoc = wdAPP.Documents.Add
Set wdRng = wdDoc.Range
wdDoc.Tables.Add wdRng, lRows, lCols
Set wdTbl = wdDoc.Tables(1)
wdTbl.Borders.Enable = True
For i = 1 To lRows
For j = 1 To lCols
wdTbl.Cell(i, j).Range.Text = Selection.Cells(i, j)
Next
Next
wdAPP.ActiveDocument.SaveAs2 Filename:="c:\temp\doc1.docx", _
FileFormat:=12, _
AddToRecentFiles:=False
wdAPP.Application.Quit
Set wdAPP = Nothing
Set wdDoc = Nothing
Set wdRng = Nothing
Set wdTbl = Nothing
End Subyou need to make the necessary changes for saving etc...
Re: Convert Excel Range to Word and then email as attachement
Got it thanks Cytop.
Works just fine for my needs and luckily the page does fit!!
Thanks again
Re: Convert Excel Range to Word and then email as attachement
Lesson to be learned - don't simplify code to a users' perceived level... http://www.excelforum.com/exce…tach-a-word-document.html
Sorry if it didn't meet the standard you expected.
Re: Convert Excel Range to Word and then email as attachement
Not at all, it was fine until the spec of what was required changed so had to make a few changes.
Just thought I seem to keep asking you for advice so thought I would give you a break and try a different avenue.
Hope there was no offence caused because it certainly wasn't intended.
Don’t have an account yet? Register yourself now and be a part of our community!