View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.misc
movi1982 movi1982 is offline
external usenet poster
 
Posts: 1
Default 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