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

Michael Beijer  Identity Verified
United Kingdom
Local time: 17:40
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


 

Shai Navé  Identity Verified
Israel
Local time: 19:40
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]


 

Michael Beijer  Identity Verified
United Kingdom
Local time: 17:40
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.


convertDOCtoDOCX.png


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]


 

Michael Beijer  Identity Verified
United Kingdom
Local time: 17:40
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


 

Shai Navé  Identity Verified
Israel
Local time: 19:40
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.

 

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

This one works!

Michael


 


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






BaccS – Business Accounting Software
Modern desktop project management for freelance translators

BaccS makes it easy for translators to manage their projects, schedule tasks, create invoices, and view highly customizable reports. User-friendly, ProZ.com integration, community-driven development – a few reasons BaccS is trusted by translators!

More info »
Wordfast Pro
Translation Memory Software for Any Platform

Exclusive discount for ProZ.com users! Save over 13% when purchasing Wordfast Pro through ProZ.com. Wordfast is the world's #1 provider of platform-independent Translation Memory software. Consistently ranked the most user-friendly and highest value

More info »



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