VBA, Converting Word 2003 to Word 2010

[QA_Compliance_Advisor]

I am using the code supplied at https://www.msofficeforums.com/word-vba/20699-word-2003-word-2010-conversion.html



I am currently try to use this macro, however, I am getting an error Message

"Run-time error '438': object doesn't support this property or method"

could some advise

[macropod]

What code line generates the error?

[QA_Compliance_Advisor]

I set up a new thread as i thought the old one would be dead

Sub ConvertFiles()
Application.ScreenUpdating = False
Dim strFolder As String, strFile As String, wdDoc As Document
strFolder = GetFolder
If strFolder = "" Then Exit Sub
strFile = Dir(strFolder & "\*.doc", vbNormal)
While strFile <> ""
If InStrRev(strFile, ".docx") = 0 Then
Set wdDoc = Documents.Open(FileName:=strFolder & "\" & strFile, _
AddToRecentFiles:=False, Visible:=False)
wdDoc.SaveAs2 FileName:=strFolder & "\" & Left(strFile, InStrRev(strFile, ".doc")) & "docx", _
Fileformat:=wdFormatXMLDocument, AddToRecentFiles:=False
wdDoc.Close SaveChanges:=False
End If
strFile = Dir()
Wend
Set wdDoc = Nothing
Application.ScreenUpdating = True
End Sub

Function GetFolder() As String
Dim oFolder As Object
GetFolder = ""
Set oFolder = CreateObject("Shell.Application").BrowseForFolder( 0, "Choose a folder", 0)
If (Not oFolder Is Nothing) Then GetFolder = oFolder.Items.Item.Path
Set oFolder = Nothing
End Function

However I am getting an error "Run-time error '438': object doesn't support this property or method"

could someone advise where I might be going wrong - the pink text is being highlighted when I debug.

[macropod]

Which Word version are you running this from? Your thread title refers to Word 2003 & 2010, whilst your user profile here implies Word 2007 might be involved.

Also, I can't see how you could possibly have all of the pink content highlighted, as 'wdDoc.SaveAs2' is quite separate from 'wdDoc.Close'.

[QA_Compliance_Advisor]

Your are right wdDoc.close should not have been highlighted.

and yes I am converting from 2007 - I assumed that the docx is for both 2007 and 2010? or have I made an a** out of me?

[macropod]

The SaveAs2 method was only introduced with Word 2010, which is what the code was originally written for. Hence, you can't use that with Word 2007. Since the code doesn't actually use anything new from Word 2010, though, you should be able to change SaveAs2 to SaveAs.

[QA_Compliance_Advisor]

after I removed a silly overlooked "2" from SaveAs2" the program worked ace.

however, it would appear that word docs (".doc") or templates (".dot") with macros seems to me sticking and failing to be converted. Is there a difference in word 2003 documents/templates with macros in them to convert/ save as a word 2010 Document/ Template.

Any advice?

[macropod]

Macro-enabled files in Word 2007 & later require saving in the docm & dotm formats, not docx & docm. So you'd need to change both the extension and the FileFormat to match, using wdFormatXMLDocumentMacroEnabled for documents and wdFormatXMLTemplateMacroEnabled for templates. Ordinary templates, btw, should be saved using wdFormatXMLTemplate.

[QA_Compliance_Advisor]

@Macropod, thanks - its been so long since I last did this type of macro programming - its a slow progression to remembering everything.