Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Excel to Word
I have just completed a userform with tons of fields. Once submitted it
places the data into the worksheet. The worksheet itself has 141 columns of different values. Now I need to have some sort of code that fits into a command button from the toolbox on the actual worksheet to transfer data form each row that has data into a word document. Each row has to be it's own paragraph. Is this possible? A short sample of the data layout: Column Headers: ID Description Total Location Date Coats Labor (hrs) 20 Room Painted $500.00 Living Room 9/17/05 3 5 30 Room 2 Paint $600.00 Bath 9/20/05 2 2 I would love it to be in word in the following format: ID: 20, Description: Room Painted, Total: $500.00, Location: Living Room, Date: 9/17/05, Coats: 3, Labor (hrs): 5 ID: 30, Description: Room 2 Paint, Total: $600.00, Location: Bath, Date: 9/20/05, Coats: 2, Labor (hrs): 2 Basically it would continue until it reached a row with no data. Can this be done? Thanks in advance!! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Excel to Word
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Excel to Word
This is more of a Word thing. Create a document and use the Mail Merger
option to get the data. Using the Next Record function you can get multiple records on the same page. I can't remember but you may have to use the Catelogue method of merging... HTH "Adam" wrote: I have just completed a userform with tons of fields. Once submitted it places the data into the worksheet. The worksheet itself has 141 columns of different values. Now I need to have some sort of code that fits into a command button from the toolbox on the actual worksheet to transfer data form each row that has data into a word document. Each row has to be it's own paragraph. Is this possible? A short sample of the data layout: Column Headers: ID Description Total Location Date Coats Labor (hrs) 20 Room Painted $500.00 Living Room 9/17/05 3 5 30 Room 2 Paint $600.00 Bath 9/20/05 2 2 I would love it to be in word in the following format: ID: 20, Description: Room Painted, Total: $500.00, Location: Living Room, Date: 9/17/05, Coats: 3, Labor (hrs): 5 ID: 30, Description: Room 2 Paint, Total: $600.00, Location: Bath, Date: 9/20/05, Coats: 2, Labor (hrs): 2 Basically it would continue until it reached a row with no data. Can this be done? Thanks in advance!! |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Excel to Word
I figured it would be more of a VBA thing in Excel since I am transmitting
the data from Excel to Word. "Jim Thomlinson" wrote: This is more of a Word thing. Create a document and use the Mail Merger option to get the data. Using the Next Record function you can get multiple records on the same page. I can't remember but you may have to use the Catelogue method of merging... HTH "Adam" wrote: I have just completed a userform with tons of fields. Once submitted it places the data into the worksheet. The worksheet itself has 141 columns of different values. Now I need to have some sort of code that fits into a command button from the toolbox on the actual worksheet to transfer data form each row that has data into a word document. Each row has to be it's own paragraph. Is this possible? A short sample of the data layout: Column Headers: ID Description Total Location Date Coats Labor (hrs) 20 Room Painted $500.00 Living Room 9/17/05 3 5 30 Room 2 Paint $600.00 Bath 9/20/05 2 2 I would love it to be in word in the following format: ID: 20, Description: Room Painted, Total: $500.00, Location: Living Room, Date: 9/17/05, Coats: 3, Labor (hrs): 5 ID: 30, Description: Room 2 Paint, Total: $600.00, Location: Bath, Date: 9/20/05, Coats: 2, Labor (hrs): 2 Basically it would continue until it reached a row with no data. Can this be done? Thanks in advance!! |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Excel to Word
It could go either way; I've done both. Here's how I would try it.
(Warning: it may not be pretty and it probably isn't the easiest and best, but it's how I would approach it.) Set a range to encompass all the rows with data Set objects to Word and a new document With DataRange For i = 1 to DataRange.Rows.Count String1 = "ID: " & .Cells(i,1).Value & ", " WordDoc.Selection.TypeText String1 & vbCr String2 = "Description: " & .Cells(i, 2).Value & ", " WordDoc.Selection.TypeText String2 & vbCr etc. to last cell Next i Save and close Word doc; quit Word, release objects Save and close Excel file HTH Ed "Adam" wrote in message ... I figured it would be more of a VBA thing in Excel since I am transmitting the data from Excel to Word. "Jim Thomlinson" wrote: This is more of a Word thing. Create a document and use the Mail Merger option to get the data. Using the Next Record function you can get multiple records on the same page. I can't remember but you may have to use the Catelogue method of merging... HTH "Adam" wrote: I have just completed a userform with tons of fields. Once submitted it places the data into the worksheet. The worksheet itself has 141 columns of different values. Now I need to have some sort of code that fits into a command button from the toolbox on the actual worksheet to transfer data form each row that has data into a word document. Each row has to be it's own paragraph. Is this possible? A short sample of the data layout: Column Headers: ID Description Total Location Date Coats Labor (hrs) 20 Room Painted $500.00 Living Room 9/17/05 3 5 30 Room 2 Paint $600.00 Bath 9/20/05 2 2 I would love it to be in word in the following format: ID: 20, Description: Room Painted, Total: $500.00, Location: Living Room, Date: 9/17/05, Coats: 3, Labor (hrs): 5 ID: 30, Description: Room 2 Paint, Total: $600.00, Location: Bath, Date: 9/20/05, Coats: 2, Labor (hrs): 2 Basically it would continue until it reached a row with no data. Can this be done? Thanks in advance!! |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Excel to Word
There's no way I can get this into an a specific area in an existing
template, huh? "Ed" wrote: It could go either way; I've done both. Here's how I would try it. (Warning: it may not be pretty and it probably isn't the easiest and best, but it's how I would approach it.) Set a range to encompass all the rows with data Set objects to Word and a new document With DataRange For i = 1 to DataRange.Rows.Count String1 = "ID: " & .Cells(i,1).Value & ", " WordDoc.Selection.TypeText String1 & vbCr String2 = "Description: " & .Cells(i, 2).Value & ", " WordDoc.Selection.TypeText String2 & vbCr etc. to last cell Next i Save and close Word doc; quit Word, release objects Save and close Excel file HTH Ed "Adam" wrote in message ... I figured it would be more of a VBA thing in Excel since I am transmitting the data from Excel to Word. "Jim Thomlinson" wrote: This is more of a Word thing. Create a document and use the Mail Merger option to get the data. Using the Next Record function you can get multiple records on the same page. I can't remember but you may have to use the Catelogue method of merging... HTH "Adam" wrote: I have just completed a userform with tons of fields. Once submitted it places the data into the worksheet. The worksheet itself has 141 columns of different values. Now I need to have some sort of code that fits into a command button from the toolbox on the actual worksheet to transfer data form each row that has data into a word document. Each row has to be it's own paragraph. Is this possible? A short sample of the data layout: Column Headers: ID Description Total Location Date Coats Labor (hrs) 20 Room Painted $500.00 Living Room 9/17/05 3 5 30 Room 2 Paint $600.00 Bath 9/20/05 2 2 I would love it to be in word in the following format: ID: 20, Description: Room Painted, Total: $500.00, Location: Living Room, Date: 9/17/05, Coats: 3, Labor (hrs): 5 ID: 30, Description: Room 2 Paint, Total: $600.00, Location: Bath, Date: 9/20/05, Coats: 2, Labor (hrs): 2 Basically it would continue until it reached a row with no data. Can this be done? Thanks in advance!! |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
Excel to Word
Sure. Set your Word document object to the specific document name of your
template. Dim Wd As Object Dim WordDoc As Object Set Wd = CreateObject("word.application") Wd.Visible = True Set WordDoc = Wd.Documents.Add ("MyDocName") Then look into bookmarks in Word. You can then use WordDoc.Bookmarks("mark1").Text = String1 etc. Ed "Adam" wrote in message ... There's no way I can get this into an a specific area in an existing template, huh? "Ed" wrote: It could go either way; I've done both. Here's how I would try it. (Warning: it may not be pretty and it probably isn't the easiest and best, but it's how I would approach it.) Set a range to encompass all the rows with data Set objects to Word and a new document With DataRange For i = 1 to DataRange.Rows.Count String1 = "ID: " & .Cells(i,1).Value & ", " WordDoc.Selection.TypeText String1 & vbCr String2 = "Description: " & .Cells(i, 2).Value & ", " WordDoc.Selection.TypeText String2 & vbCr etc. to last cell Next i Save and close Word doc; quit Word, release objects Save and close Excel file HTH Ed "Adam" wrote in message ... I figured it would be more of a VBA thing in Excel since I am transmitting the data from Excel to Word. "Jim Thomlinson" wrote: This is more of a Word thing. Create a document and use the Mail Merger option to get the data. Using the Next Record function you can get multiple records on the same page. I can't remember but you may have to use the Catelogue method of merging... HTH "Adam" wrote: I have just completed a userform with tons of fields. Once submitted it places the data into the worksheet. The worksheet itself has 141 columns of different values. Now I need to have some sort of code that fits into a command button from the toolbox on the actual worksheet to transfer data form each row that has data into a word document. Each row has to be it's own paragraph. Is this possible? A short sample of the data layout: Column Headers: ID Description Total Location Date Coats Labor (hrs) 20 Room Painted $500.00 Living Room 9/17/05 3 5 30 Room 2 Paint $600.00 Bath 9/20/05 2 2 I would love it to be in word in the following format: ID: 20, Description: Room Painted, Total: $500.00, Location: Living Room, Date: 9/17/05, Coats: 3, Labor (hrs): 5 ID: 30, Description: Room 2 Paint, Total: $600.00, Location: Bath, Date: 9/20/05, Coats: 2, Labor (hrs): 2 Basically it would continue until it reached a row with no data. Can this be done? Thanks in advance!! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Need Excel count of 1 word if found in multi-word cells of column | Excel Worksheet Functions | |||
Excel 7, paste linked to word becomes black when word pdf'd | Excel Discussion (Misc queries) | |||
Copy from Word to Excel, and retain indent, plus word wrap | Excel Discussion (Misc queries) | |||
Print labels by using Excel data in a Word mail into word | Excel Discussion (Misc queries) | |||
Printing Word Document using Excel Programming hangs Word | Excel Programming |