Solved

Resave a file automatically in word

Posted on 2011-03-09
6
338 Views
Last Modified: 2012-05-11
Is there a way I can run a script to look in a folder that has
wordpad files, open those files in word and resave them as
word files in another directory?

Thank you
0
Comment
Question by:cbones
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
6 Comments
 
LVL 2

Expert Comment

by:alagurjan
ID: 35083594
To find all the files in a location and from this you have to select only the word files

Set fso = CreateObject("Scripting.FileSystemObject")
  sFolder = Wscript.Arguments.Item(0)
  If sFolder = "" Then
      Wscript.Echo "No Folder parameter was passed"
      Wscript.Quit
  End If
  Set NewFile = fso.CreateTextFile(sFolder&"\FileList.txt", True)
  Set folder = fso.GetFolder(sFolder)
  Set files = folder.Files

To copy the files from one location to other

dim filesys

set filesys=CreateObject("Scripting.FileSystemObject")

If filesys.FileExists("c:\sourcefolder\anyfile.txt") Then

filesys.CopyFile "c:\sourcefolder\anyfile.txt", "c:\destfolder\"
0
 

Author Comment

by:cbones
ID: 35083941
I'm sorry, I may have phrased my question wrong.  I am looking to search a directory that has txt files in it and resave those files as microsoft word files (.doc).
0
 
LVL 1

Expert Comment

by:lapsa22
ID: 35093458
Try this program, I have tried a small research, it is program - please do download and try this whether it meets the requirements or you might have to wait for someone else to write a script, which would be useful, until than try this!

http://www.datamystic.com/filewatcher.html
0
Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 1

Accepted Solution

by:
lapsa22 earned 500 total points
ID: 35093479
For those experts who will be able to understand and solve this Question, just an idea .

Check this website, if it is help the program and it codes!

http://www.softinterface.com/Convert-Doc/Convert-Doc.htm
0
 
LVL 1

Expert Comment

by:lapsa22
ID: 35093494
This is the idea for the folder watcher, which is on my first comment! This is how it suppose to work, try that out! It worked for me...hope it works for you as well! Thanks! Read this link!

http://www.ozgrid.com/Services/word-document-converter.htm
0
 
LVL 1

Expert Comment

by:lapsa22
ID: 35093502
And this is the manual converter program which you see on my above comment!

http://www.busysoftorder.com/prog/cz/docconv.htm
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Not long ago I saw a question in the VB Script forum that I thought would not take much time. You can read that question (Question ID  (http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/Q_28455246.html)28455246) Here (http…
You need to know the location of the Office templates folder, so that when you create new templates, they are saved to that location, and thus are available for selection when creating new documents.  The steps to find the Templates folder path are …
Learn how to create and modify your own paragraph styles in Microsoft Word. This can be helpful when wanting to make consistently referenced styles throughout a document or template.
This Experts Exchange video Micro Tutorial shows how to tell Microsoft Office that a word is NOT spelled correctly. Microsoft Office has a built-in, main dictionary that is shared by Office apps, including Excel, Outlook, PowerPoint, and Word. When …

690 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question