![]() |
|
|
| Subject:
Excel VBA-Create and Save Microsoft Word documents from Text Strings in Excel
Category: Computers > Programming Asked by: slo2000-ga List Price: $10.00 |
Posted:
10 Nov 2006 10:53 PST
Expires: 10 Dec 2006 10:53 PST Question ID: 781678 |
My question is a simple one. I have an Excel spreadsheet with cells of text strings. I would like to cycle through the Excel document cells creating and saving a separate microsoft word document for each text string using VBA. |
|
| There is no answer at this time. |
|
| Subject:
Re: Excel VBA-Create and Save Microsoft Word documents from Text Strings in Excel
From: naman_patel-ga on 22 Nov 2006 03:39 PST |
Hi,
Here is the code for ur requirment. u can implement file name logic
what ever required by u. I can do this for selected cells. if u need
for selected cell let me know. solution is in text file.
Dim fs, f
Dim fname As String
Set fs = CreateObject("Scripting.FileSystemObject")
For x = 0 To 256
For y = 0 To 65536
fname = Str(x)
fname = fname + Str(y) + ".txt"
Set f = fs.OpenTextFile(fname, ForAppending, TristateFalse)
f.write Cells(x, y).Text
f.Close
Next
Next |
| Subject:
Re: Excel VBA-Create and Save Microsoft Word documents from Text Strings in Excel
From: slo2000-ga on 26 Nov 2006 16:32 PST |
This will work if I change extension to .doc? to create microsoft word docs? |
| Subject:
Re: Excel VBA-Create and Save Microsoft Word documents from Text Strings in Excel
From: inventorbob-ga on 28 Nov 2006 09:20 PST |
1) CREATE a template word document that you want all of them to be
like. If you want them all blank, just open a blank one and save it
somewhere. This will be your template file
2) use the following code. Replace "C:\" with the location you want
to save all of the files. Note: if your list contains the ".doc"
already, remove the & ".doc" from the code. Note2: if your list does
not start in row 1, then change i = 1 to i = <your starting row here>.
If your list is not in column 1 then change both Cells(i, 1) to
Cells(i, <your column here>)
TemplateFile = Application.GetOpenFilename
Set fs = CreateObject("Scripting.FileSystemObject")
i = 1
Do While Cells(i, 1) <> ""
fs.CopyFile TemplateFile, "C:\" & Cells(i, 1) & ".doc"
i = i + 1
Loop |
If you feel that you have found inappropriate content, please let us know by emailing us at answers-support@google.com with the question ID listed above. Thank you. |
| Search Google Answers for |
| Google Home - Answers FAQ - Terms of Service - Privacy Policy |