vba - siento - tipo de archivo archivo

Error de Word VBA SaveAs: tipo de archivo incompatible y extensión de archivo

Question

Estoy intentando hacer un save-as con el siguiente código en Word 2016:

Dim doc As Word.Document
Dim fpFile as string
Set doc = ActiveDocument
fpFile = doc.Path & "/" & doc.Name
doc.SaveAs Filename:=Left(fpFile, Len(fpFile) - 4) & "docx", FileFormat:=wdFormatDocument 

Mi argumento de nombre de archivo con las funciones izquierda y Len se evalúa como:

C: / Usuarios / Mi nombre / Documentos / Mi empresa / Mi carpeta de cliente / prueba / HeaderTemplate.docx

Esto se ve bien para mí, pero obtengo un error 6294: ''tipo de archivo incompatible y extensión de archivo'' en la línea SaveAs.

Intenté poner primero el nombre de archivo en una variable de cadena y probé el método SaveAs2, ambos con los mismos resultados. Quiero guardar como un archivo docx estándar no habilitado para macros.

¿Algunas ideas?

Gracias.

Answer 1

wdFormatDocument es .doc ,

wdFormatXMLDocument es .docx

Desde MSDN (para Office 2007):

Name Value Description
wdFormatDocument 0 Microsoft Office Word format.
wdFormatDOSText 4 Microsoft DOS text format.
wdFormatDOSTextLineBreaks 5 Microsoft DOS text with line breaks preserved.
wdFormatEncodedText 7 Encoded text format.
wdFormatFilteredHTML 10 Filtered HTML format.
wdFormatHTML 8 Standard HTML format.
wdFormatRTF 6 Rich text format (RTF).
wdFormatTemplate 1 Word template format.
wdFormatText 2 Microsoft Windows text format.
wdFormatTextLineBreaks 3 Windows text format with line breaks preserved.
wdFormatUnicodeText 7 Unicode text format.
wdFormatWebArchive 9 Web archive format.
wdFormatXML 11 Extensible Markup Language (XML) format.
wdFormatDocument97 0 Microsoft Word 97 document format.
wdFormatDocumentDefault 16 Word default document file format. For Microsoft Office Word 2007, this is the DOCX format.
wdFormatPDF 17 PDF format.
wdFormatTemplate97 1 Word 97 template format.
wdFormatXMLDocument 12 XML document format.
wdFormatXMLDocumentMacroEnabled 13 XML document format with macros enabled.
wdFormatXMLTemplate 14 XML template format.
wdFormatXMLTemplateMacroEnabled 15 XML template format with macros enabled.
wdFormatXPS 18 XPS format.