| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
How to create word file
Hi,
I want to create one word file from excel file, eg if in one cell mention txt is Mudit , in other 29..... i want out in .doc format - My Name is Mudit, I am 29 year old. I mean to say it take data from xls and create one doc file. i want to use VBA..... I am novice for this. Please help me Mudit |
|
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
How to create word file
"Mudit" wrote in message
ps.com... Hi, I want to create one word file from excel file, eg if in one cell mention txt is Mudit , in other 29..... i want out in .doc format - My Name is Mudit, I am 29 year old. I mean to say it take data from xls and create one doc file. i want to use VBA..... I am novice for this. Please help me Mudit Save the file as txt and then open in Word....... |
|
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
How to create word file
HI Mudit, There are two ways u can achieve this, you can create an excel macro...which opens a new word document and adds text in that excel file in which macro is defined ... or you can create an application which will ask path for the excel file from which data is to be taken...and creates a new document.I m giving here a word macro. create a new word document and go to VBE. paste the following code: Sub AutoOpen() 'Enter File Path x = InputBox("Enter the path of excel file" & Chr$(13) & Chr$(13) _ & "For example: C:\Customer.xls")'Enter file path Call gen_doc(x) End Sub Function gen_doc(x) Application.Documents.Add ActiveDocument.ActiveWindow.View = wdPrintView 'Create an excel object Set objExcel = CreateObject("Excel.Application")'first excel object has 'to be created 'open that particular excel document Set xlWB = objExcel.Workbooks.Open(x) On Error Resume Next 'open first sheet Set objSheet = objExcel.ActiveWorkbook.Worksheets(1) objSheet.Visible = True sname = objExcel.Cells(1, 1).Value ActiveDocument.Select Selection.TypeText Text:=sname objSheet.Close False xlWB.Close False ' close the workbook without saving objExcel.Quit ' close the Excel application Set objSheet = Nothing Set xlWB = Nothing Set objExcel = Nothing End Function and explore other possibilities. Hope it helps :) Movi1982 Mudit Wrote: Hi, I want to create one word file from excel file, eg if in one cell mention txt is Mudit , in other 29..... i want out in .doc format - My Name is Mudit, I am 29 year old. I mean to say it take data from xls and create one doc file. i want to use VBA..... I am novice for this. Please help me Mudit -- movi1982 ------------------------------------------------------------------------ movi1982's Profile: http://www.excelforum.com/member.php...o&userid=36423 View this thread: http://www.excelforum.com/showthread...hreadid=562350 |
|
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
How to create word file
HI Mudit, There are two ways u can achieve this, you can create an excel macro...which opens a new word document and adds text in that excel file in which macro is defined ... or you can create an application which will ask path for the excel file from which data is to be taken...and creates a new document.I m giving here a word macro. create a new word document and go to VBE. paste the following code: Sub AutoOpen() 'Enter File Path x = InputBox("Enter the path of excel file" & Chr$(13) & Chr$(13) _ & "For example: C:\Customer.xls")'Enter file path Call gen_doc(x) End Sub Function gen_doc(x) Application.Documents.Add ActiveDocument.ActiveWindow.View = wdPrintView 'Create an excel object Set objExcel = CreateObject("Excel.Application")'first excel object has 'to be created 'open that particular excel document Set xlWB = objExcel.Workbooks.Open(x) On Error Resume Next 'open first sheet Set objSheet = objExcel.ActiveWorkbook.Worksheets(1) objSheet.Visible = True sname = objExcel.Cells(1, 1).Value ActiveDocument.Select Selection.TypeText Text:=sname objSheet.Close False xlWB.Close False ' close the workbook without saving objExcel.Quit ' close the Excel application Set objSheet = Nothing Set xlWB = Nothing Set objExcel = Nothing End Function and explore other possibilities. Hope it helps :) Movi1982 Mudit Wrote: Hi, I want to create one word file from excel file, eg if in one cell mention txt is Mudit , in other 29..... i want out in .doc format - My Name is Mudit, I am 29 year old. I mean to say it take data from xls and create one doc file. i want to use VBA..... I am novice for this. Please help me Mudit -- movi1982 ------------------------------------------------------------------------ movi1982's Profile: http://www.excelforum.com/member.php...o&userid=36423 View this thread: http://www.excelforum.com/showthread...hreadid=562350 |
|
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
How to create word file
HI Mudit, There are two ways u can achieve this, you can create an excel macro...which opens a new word document and adds text in that excel file in which macro is defined ... or you can create an application which will ask path for the excel file from which data is to be taken...and creates a new document.I m giving here a word macro. create a new word document and go to VBE. paste the following code: Sub AutoOpen() 'Enter File Path x = InputBox("Enter the path of excel file" & Chr$(13) & Chr$(13) _ & "For example: C:\Customer.xls")'Enter file path Call gen_doc(x) End Sub Function gen_doc(x) Application.Documents.Add ActiveDocument.ActiveWindow.View = wdPrintView 'Create an excel object Set objExcel = CreateObject("Excel.Application")'first excel object has 'to be created 'open that particular excel document Set xlWB = objExcel.Workbooks.Open(x) On Error Resume Next 'open first sheet Set objSheet = objExcel.ActiveWorkbook.Worksheets(1) objSheet.Visible = True sname = objExcel.Cells(1, 1).Value ActiveDocument.Select Selection.TypeText Text:=sname objSheet.Close False xlWB.Close False ' close the workbook without saving objExcel.Quit ' close the Excel application Set objSheet = Nothing Set xlWB = Nothing Set objExcel = Nothing End Function and explore other possibilities. Hope it helps :) Movi1982 Mudit Wrote: Hi, I want to create one word file from excel file, eg if in one cell mention txt is Mudit , in other 29..... i want out in .doc format - My Name is Mudit, I am 29 year old. I mean to say it take data from xls and create one doc file. i want to use VBA..... I am novice for this. Please help me Mudit -- movi1982 ------------------------------------------------------------------------ movi1982's Profile: http://www.excelforum.com/member.php...o&userid=36423 View this thread: http://www.excelforum.com/showthread...hreadid=562350 |
|
#6
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
How to create word file
HI Mudit, There are two ways u can achieve this, you can create an excel macro...which opens a new word document and adds text in that excel file in which macro is defined ... or you can create an application which will ask path for the excel file from which data is to be taken...and creates a new document.I m giving here a word macro. create a new word document and go to VBE. paste the following code: Sub AutoOpen() 'Enter File Path x = InputBox("Enter the path of excel file" & Chr$(13) & Chr$(13) _ & "For example: C:\Customer.xls")'Enter file path Call gen_doc(x) End Sub Function gen_doc(x) Application.Documents.Add ActiveDocument.ActiveWindow.View = wdPrintView 'Create an excel object Set objExcel = CreateObject("Excel.Application")'first excel object has 'to be created 'open that particular excel document Set xlWB = objExcel.Workbooks.Open(x) On Error Resume Next 'open first sheet Set objSheet = objExcel.ActiveWorkbook.Worksheets(1) objSheet.Visible = True sname = objExcel.Cells(1, 1).Value ActiveDocument.Select Selection.TypeText Text:=sname objSheet.Close False xlWB.Close False ' close the workbook without saving objExcel.Quit ' close the Excel application Set objSheet = Nothing Set xlWB = Nothing Set objExcel = Nothing End Function and explore other possibilities. Hope it helps :) Movi1982 Mudit Wrote: Hi, I want to create one word file from excel file, eg if in one cell mention txt is Mudit , in other 29..... i want out in .doc format - My Name is Mudit, I am 29 year old. I mean to say it take data from xls and create one doc file. i want to use VBA..... I am novice for this. Please help me Mudit -- movi1982 ------------------------------------------------------------------------ movi1982's Profile: http://www.excelforum.com/member.php...o&userid=36423 View this thread: http://www.excelforum.com/showthread...hreadid=562350 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Create a new Excel file with selected cells | Excel Discussion (Misc queries) | |||
| Is there any File Auto Save Function for Excel and Word 2007 (Bet | Excel Worksheet Functions | |||
| how do i create a drop down list of items from a different file | Excel Worksheet Functions | |||
| when opening a .xls file it seems to want to open in word, what d | Excel Discussion (Misc queries) | |||
| Excel startup switches | Excel Discussion (Misc queries) | |||
Linear Mode
