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: 11:36
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: 13:36
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: 11:36
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: 11:36
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: 13:36
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: 11:36
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






Protemos translation business management system
Create your account in minutes, and start working! 3-month trial for agencies, and free for freelancers!

The system lets you keep client/vendor database, with contacts and rates, manage projects and assign jobs to vendors, issue invoices, track payments, store and manage project files, generate business reports on turnover profit per client/manager etc.

More info »
Across v6.3
Translation Toolkit and Sales Potential under One Roof

Apart from features that enable you to translate more efficiently, the new Across Translator Edition v6.3 comprises your crossMarket membership. The new online network for Across users assists you in exploring new sales potential and generating revenue.

More info »



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