Δημιουργία DOC από excel

[jimarass]

Καλησπέρα παιδιά.

Υπάρχει τρόπος να δημιουργήσει κανείς ένα doc από excel ?

Πιο συγκεκριμένα, το doc θα αποτελείται από κεφάλαια/παραγάφους. Σε κάποια το κείμενο είναι fixed, σε άλλα δυναμικό.

Μπορώ με Input σε ειδική φορμα excel να έχω output ένα doc?

[hawkpilot]

Χρησιμοποίησε σαν βάση τον παρακάτω κώδικα:

 

>
Sub CreateNewWordDoc()
' to test this code, paste it into an Excel module
' add a reference to the Word-library
' create a new folder named C:\Foldername or edit the filnames in the code

Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim i As Integer
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Add
 ' or
 'Set wrdDoc = wrdApp.Documents.Open("C:\Foldername\Filename.doc")
 ' sample word operations
With wrdDoc
 For i = 1 To 100
	 .Content.InsertAfter "Here is a sample test line #" & i
	 .Content.InsertParagraphAfter
 Next i
 If Dir("C:\Foldername\MyNewWordDoc.doc") <> "" Then
	 Kill "C:\Foldername\MyNewWordDoc.doc"
 End If
 .SaveAs ("C:\Foldername\MyNewWordDoc.doc")
 .Close ' close the document
End With
wrdApp.Quit ' close the Word application
Set wrdDoc = Nothing
Set wrdApp = Nothing
End Sub

 

πηγή: http://www.ozgrid.co...ead.php?t=50936

 

Καλησπέρα παιδιά.

Υπάρχει τρόπος να δημιουργήσει κανείς ένα doc από excel ?

Πιο συγκεκριμένα, το doc θα αποτελείται από κεφάλαια/παραγάφους. Σε κάποια το κείμενο είναι fixed, σε άλλα δυναμικό.

Μπορώ με Input σε ειδική φορμα excel να έχω output ένα doc?