Looking for simple (batch) .doc to .docx converter (willing to pay).
Thread poster: Michael Joseph Wdowiak Beijer

Michael Joseph Wdowiak Beijer  Identity Verified
United Kingdom
Local time: 15:55
Member (2009)
Dutch to English
+ ...
Nov 14, 2013

Hi everyone,

I am looking for simple batch converter to convert large amounts of .doc files to .docx.

It doesn't have to be free.

I found a few but they all seem to be ridiculously expensive, such as Convert Doc (http://www.softinterface.com/EC/catalog/CatalogDetail.asp?ProductID=10 ), which costs $499.95, and Batch DOC and DOCX Converter (http://batchwork.com/en/doc2doc/purchase.htm ), which costs $149.9.

I was thinking something more along the lines of $20.

Michael


Direct link Reply with quote
 

Shai Navé  Identity Verified
Israel
Local time: 17:55
Member
English to Hebrew
+ ...
Use a Macro Nov 14, 2013

You just have to group all the files that you need to convert in one folder, open the first, and run this macro.
Maybe it doesn't have all the bells and whistles that other converters might have, but for a simple batch conversion process this is an effective and efficient solution.

[Edited at 2013-11-14 12:51 GMT]


Direct link Reply with quote
 

Michael Joseph Wdowiak Beijer  Identity Verified
United Kingdom
Local time: 15:55
Member (2009)
Dutch to English
+ ...
TOPIC STARTER
Thanks Shai! Nov 14, 2013

Wow, that was easy.

Saved myself some money and I now have a nice little icon (a smiley face) above my ribbon that runs your macro.





Michael

Here's the macro:

Sub SaveAllDOCX()
Dim strFilename As String
Dim strDocName As String
Dim strPath As String
Dim oDoc As Document
Dim fDialog As FileDialog
Dim intPos As Integer
Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
With fDialog
.Title = "Select folder and click OK"
.AllowMultiSelect = False
.InitialView = msoFileDialogViewList
If .Show -1 Then
MsgBox "Cancelled By User", , "List Folder Contents"
Exit Sub
End If
strPath = fDialog.SelectedItems.Item(1)
If Right(strPath, 1) "\" Then strPath = strPath + "\"
End With
If Documents.Count > 0 Then
Documents.Close SaveChanges:=wdPromptToSaveChanges
End If
If Left(strPath, 1) = Chr(34) Then
strPath = Mid(strPath, 2, Len(strPath) - 2)
End If
strFilename = Dir$(strPath & "*.doc")
While Len(strFilename) 0
Set oDoc = Documents.Open(strPath & strFilename)
strDocName = ActiveDocument.FullName
intPos = InStrRev(strDocName, ".")
strDocName = Left(strDocName, intPos - 1)
strDocName = strDocName & ".docx"
oDoc.SaveAs FileName:=strDocName, _
FileFormat:=wdFormatDocumentDefault
oDoc.Close SaveChanges:=wdDoNotSaveChanges
strFilename = Dir$()
Wend
End Sub


[Edited at 2013-11-14 13:14 GMT]


Direct link Reply with quote
 

Michael Joseph Wdowiak Beijer  Identity Verified
United Kingdom
Local time: 15:55
Member (2009)
Dutch to English
+ ...
TOPIC STARTER
syntax error Dec 17, 2013

Hi Shai,

For some reason the macro doesn't work on my Win7 installation of Word 2013. It worked fine on my Windows 8 PC.

I'm getting a syntax error at this line:


Sub SaveAllDOCX()
Dim strFilename As String
Dim strDocName As String
Dim strPath As String
Dim oDoc As Document
Dim fDialog As FileDialog
Dim intPos As Integer
Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
With fDialog
.Title = "Select folder and click OK"
.AllowMultiSelect = False
.InitialView = msoFileDialogViewList
If .Show -1 Then
MsgBox "Cancelled By User", , "List Folder Contents"
Exit Sub
End If
strPath = fDialog.SelectedItems.Item(1)

If Right(strPath, 1) "\" Then strPath = strPath + "\"
End With
If Documents.Count > 0 Then
Documents.Close SaveChanges:=wdPromptToSaveChanges
End If
If Left(strPath, 1) = Chr(34) Then
strPath = Mid(strPath, 2, Len(strPath) - 2)
End If
strFilename = Dir$(strPath & "*.doc")
While Len(strFilename) 0
Set oDoc = Documents.Open(strPath & strFilename)
strDocName = ActiveDocument.FullName
intPos = InStrRev(strDocName, ".")
strDocName = Left(strDocName, intPos - 1)
strDocName = strDocName & ".docx"
oDoc.SaveAs FileName:=strDocName, _
FileFormat:=wdFormatDocumentDefault
oDoc.Close SaveChanges:=wdDoNotSaveChanges
strFilename = Dir$()
Wend
End Sub


Any idea why?

Michael


Direct link Reply with quote
 

Shai Navé  Identity Verified
Israel
Local time: 17:55
Member
English to Hebrew
+ ...
If you copied the code from your earlier post here then there are parts missing Dec 17, 2013

Use the code here instead and see if it works.

Direct link Reply with quote
 

Michael Joseph Wdowiak Beijer  Identity Verified
United Kingdom
Local time: 15:55
Member (2009)
Dutch to English
+ ...
TOPIC STARTER
Thanks Shai, Dec 17, 2013

This one works!

Michael


Direct link Reply with quote
 


To report site rules violations or get help, contact a site moderator:


You can also contact site staff by submitting a support request »

Looking for simple (batch) .doc to .docx converter (willing to pay).

Advanced search






PerfectIt consistency checker
Faster Checking, Greater Accuracy

PerfectIt helps deliver error-free documents. It improves consistency, ensures quality and helps to enforce style guides. It’s a powerful tool for pro users, and comes with the assurance of a 30-day money back guarantee.

More info »
Déjà Vu X3
Try it, Love it

Find out why Déjà Vu is today the most flexible, customizable and user-friendly tool on the market. See the brand new features in action: *Completely redesigned user interface *Live Preview *Inline spell checking *Inline

More info »



Forums
  • All of ProZ.com
  • Term search
  • Jobs
  • Forums
  • Multiple search