will<\/I> help you. To prove it, let\u2019s start by showing you a script that can open a single .RTF file (C:\\Scripts\\Test.rtf) and then create a Word version of this document:<\/P>Const wdFormatDocument = 0<\/p>\nSet objWord = CreateObject(“Word.Application”)\nSet objDoc = objWord.Documents.Open(“c:\\scripts\\test.rtf”)\nobjDoc.SaveAs “C:\\Scripts\\test.doc”, wdFormatDocument<\/p>\n
objWord.Quit\n<\/PRE>\n
See how easy that is? We begin by creating a constant named wdFormatDocument and assigning it the value 0; this happens to be the value that represents a standard Word document. We create an instance of the Word.Application<\/B> object, then use the Open<\/B> method to open the document C:\\Scripts\\Test.rtf.<\/P>\n
So how do we convert this document to Word format? Well, technically, we don\u2019t: we aren\u2019t going to actually convert<\/I> the document, we\u2019re going to save a copy of it in Word format. When we\u2019re done we\u2019ll have two files: Test.doc and Test.rtf. If you don\u2019t really want<\/I> two files, you could add a couple lines of code and have the script delete Test.rtf.<\/P>\n
Here\u2019s the line of code that creates Test.doc. As you can see, we call the SaveAs<\/B> method, passing as parameters the new file path (C:\\Scripts\\Test.doc) and the constant wdFormatDocument (which, again, tells Word to save the file as a Word document):<\/P>objDoc.SaveAs “C:\\Scripts\\test.doc”, wdFormatDocument\n<\/PRE>\nWe then call Word\u2019s Quit<\/B> method (to dismiss Word) and we\u2019re done. Just that easy, just that quick.<\/P>\n
Of course, while we<\/I> might be done, you\u2019re not: after all, you have an entire folder full of files to convert. Can you get a script to convert all those files for you? You bet:<\/P>Const wdFormatDocument = 0<\/p>\nstrComputer = “.”\nSet objWMIService = GetObject(“winmgmts:\\\\” & strComputer & “\\root\\cimv2”)<\/p>\n
Set colFiles = objWMIService.ExecQuery _\n (“ASSOCIATORS OF {Win32_Directory.Name=’C:\\Scripts’} Where ” _\n & “ResultClass = CIM_DataFile”)<\/p>\n
Set objWord = CreateObject(“Word.Application”)<\/p>\n
For Each objFile in colFiles\n If objFile.Extension = “rtf” Then\n strFile = “C:\\Scripts\\” & objFile.FileName & “.” & objFile.Extension\n strNewFile = “C:\\Scripts\\” & objFile.FileName & “.doc”\n Set objDoc = objWord.Documents.Open(strFile)\n objDoc.SaveAs strNewFile, wdFormatDocument\n objDoc.Close\n End If\nNext<\/p>\n
objWord.Quit\n<\/PRE>\n
We won\u2019t spend a lot of time detailing this script, but we will at least give you an overview of what it does. We begin by connecting to the WMI service and then retrieving a list of all the files found in the C:\\Scripts folder. That\u2019s what this crazy-looking query does:<\/P>
Set colFiles = objWMIService.ExecQuery _\n (“ASSOCIATORS OF {Win32_Directory.Name=’C:\\Scripts’} Where ” _\n & “ResultClass = CIM_DataFile”)\n<\/PRE>\nWe create an instance of the Word.Application object, and then set up a For Each loop and walk through the collection, checking each file to see if the Extension <\/B>property is equal to RTF (note that\u2019s just the letters RTF, without a period). Each time we find a .RTF file, we use this line of code to construct the file path and store it in the variable strFileName:<\/P>strFile = “C:\\Scripts\\” & objFile.FileName & “.” & objFile.Extension\n<\/PRE>\nWe then construct a name for our Word version of this file using this line of code:<\/P>
strNewFile = “C:\\Scripts\\” & objFile.FileName & “.doc”\n<\/PRE>\nGot that? If we found a file named Test.rtf, the variable strFileName now holds this value: C:\\Scripts\\Test.rtf. Likewise, the variable strNewFile will now hold this<\/I> value: C:\\Scripts\\Test.doc. We can then use the code we showed you at the beginning of this column, the code that opens a .RTF file and saves it as a .DOC file. The only difference? Instead of hard-coding in file names we use our variables strFile and strNewFile:<\/P>Set objWord = CreateObject(“Word.Application”)\nSet objDoc = objWord.Documents.Open(strFile)\nobjDoc.SaveAs strNewFile, wdFormatDocument\nobjDoc.Close\n<\/PRE>\nNote that, after calling the SaveAs method, we use the Close<\/B> method to get rid of Test.rtf but leave Word running. We then loop around and look for the next RTF file. After we\u2019ve finished going through the entire collection, we exit the loop and then<\/I> use the Quit method to terminate our instance of Word. We do it this way to keep from having to repeatedly start up Word, terminate it, and then restart when we find another .RTF file. That process would actually work, but would definitely slow the script down.<\/P>\n
Speaking of which \u2026. Based on both the number of files and the size of those files, this script can take a little while to run. In our tests, it took about 45 seconds to open and save three different .RTF files, each about 4 megabytes in size. So, plan accordingly.<\/P><\/p>\n","protected":false},"excerpt":{"rendered":"
Hey, Scripting Guy! I have a folder of about 1,000 .RTF files. I need to convert all of these to Word documents (.DOC files). Can you help me with this?— LS Hey, LS. Sure, we can help you. We\u2019re not going to, but we could if we wanted to. No, wait, come back: we\u2019re just […]<\/p>\n","protected":false},"author":595,"featured_media":87096,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_acf_changed":false,"footnotes":""},"categories":[1],"tags":[84,49,3,5],"class_list":["post-70113","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-scripting","tag-microsoft-word","tag-office","tag-scripting-guy","tag-vbscript"],"acf":[],"blog_post_summary":"
Hey, Scripting Guy! I have a folder of about 1,000 .RTF files. I need to convert all of these to Word documents (.DOC files). Can you help me with this?— LS Hey, LS. Sure, we can help you. We\u2019re not going to, but we could if we wanted to. No, wait, come back: we\u2019re just […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/70113","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/users\/595"}],"replies":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/comments?post=70113"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/70113\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media\/87096"}],"wp:attachment":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media?parent=70113"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/categories?post=70113"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/tags?post=70113"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
![\"Hey,](\"https:\/\/devblogs.microsoft.com\/wp-content\/uploads\/sites\/29\/2019\/02\/q-for-powertip.jpg\" "\\"Hey,")
\n![\"Spacer\"](\"https:\/\/devblogs.microsoft.com\/scripting\/wp-content\/uploads\/sites\/29\/2019\/05\/spacer.gif\")
![\"Hey,](\"https:\/\/devblogs.microsoft.com\/wp-content\/uploads\/sites\/29\/2019\/02\/a-for-powertip.jpg\" "\\"Hey,")
![\"Script](\"http:\/\/img.microsoft.com\/library\/media\/1033\/technet\/images\/scriptcenter\/ad.jpg\" "\\"Script")
<\/A> \n