Document converteren -> .docx

[wouter93]

Beste Forumleden,

Ik heb een hele map met documenten, die de .doc extensie hebben, nu wil ik doormiddel van een macro deze hele map doorzoeken op .doc vervolgens moeten alle documenten geconverteerd worden, en als laatste opgeslagen worden als .docx
hoe kan ik dit het beste aanpakken, ik heb zelf als iets in elkaar gefrutseld, maar aangezien mijn kennis niet geweldig is, denk ik dat dit stukje code totaal niet werkt.

Dim tel
On Error Resume Next

With Application.FileSearch
.FileName = "*.doc"
 .LookIn = "P:\Bureaublad\Brieven test"
   If .Execute() > 0 Then
           Documents.Open (.FoundFiles(i))
           Selection.Find.ClearFormatting
          ActiveDocument.Convert
          Selection.Find.Execute
        ActiveDocument.SaveAs2 FileName:="*.docx"

Kan iemand mij een stukje op weg helpen?

Bedankt alvast.

Wouter

 

[pimnl]

Hier kun je een mooi batch programma voor gebruiken. Een voorbeeld is dit programma: http://download.cnet.com/Batch-DOCX-to-DOC-Converter/3000-18483_4-10909592.html

Dit is een betaald programma maar met een trial van 7 dagen. Dit moet wel lukken denk ik.

 

[wouter93]

Hallo pimnl,

Bedankt voor je bericht, echter moet dit toch in word d.m.v. een macro gebeuren.
Tot bedankt voor de aangeboden oplossing.

 

[pimnl]

Ik zie dat je in jouw macro alleen de naam aanpast naar een docx. Hier kun je mooi reguliere expressies (regex) voor gebruiken.
http://msdn.microsoft.com/en-us/library/xwewhkd1(v=vs.110).aspx
http://www.macrostash.com/2011/10/08/simple-regular-expression-tutorial-for-excel-vba/

 

[Warme bakkertje]

FileSearch werkt sowieso niet meer in 2007-versie