Christian tiene una carpeta llena de archivos DOC que necesita convertir a archivos DOCX. Se pregunta si existe una forma rápida de convertirlos sin abrir y guardar cada uno individualmente.

Microsoft no proporciona esta funcionalidad en Word ni proporciona un complemento para realizar las conversiones. Sin embargo, puede crear su propia macro para realizar las conversiones. Aquí se muestra un enfoque bastante simple:

Sub ConvertBatchToDOCX()

Dim sSourcePath As String     Dim sTargetPath As String     Dim sDocName As String     Dim docCurDoc As Document     Dim sNewDocName As String

' Looking in this path     sSourcePath = "c:\Users\Administrator\Desktop\Testing\"

sTargetPath = "c:\Users\Administrator\Desktop\Converted\"



' Look for first DOC file     sDocName = Dir(sSourcePath & "*.doc")

Do While sDocName <> ""

' Repeat as long as there are source files                  'Only work on files where right-most characters are ".doc"

If Right(sDocName, 4) = ".doc" Then             ' Open file             Set docCurDoc = Documents.Open(FileName:=sSourcePath & sDocName)



sNewDocName = Replace(sDocName, ".doc", ".docx")



With docCurDoc                 .SaveAs FileName:=sTargetPath & sNewDocName, _                   FileFormat:=wdFormatDocumentDefault                 .Close SaveChanges:=wdDoNotSaveChanges             End With         End If         ' Get next source file name         sDocName = Dir     Loop     MsgBox "Finished"

End Sub

Para utilizar la macro, deberá realizar dos cambios. Primero, especifique en la variable sSourcePath la ruta completa (seguida de una barra invertida) al directorio que contiene los archivos que desea convertir.

Luego, en la variable sTargetPath, especifique la ruta completa (con barra invertida al final) del directorio en el que se deben almacenar los documentos convertidos.

Luego, la macro recorre todos los archivos DOC que encuentra en el directorio de origen, los abre y los guarda como archivos DOCX en el directorio de destino.

Tenga en cuenta que mencioné que este es un enfoque simple. La razón es porque no comprueba su funcionamiento. Por ejemplo, si ejecuta esta macro dos veces seguidas, obtendrá errores porque los archivos que se guardan en el directorio de destino ya existen. Además, debe comprender que esto convierte todos los archivos DOC en archivos DOCX. En otras palabras, si el archivo original tiene macros, esas macros se eliminarán en el proceso de conversión.

Finalmente, observe que el corazón de la macro está contenido dentro de una estructura If / Then que verifica que los 4 caracteres más a la derecha del nombre de archivo sean realmente «.doc». Esto se debe al comportamiento bastante agravante de la función Dir en algunos sistemas donde la búsqueda del patrón «* .doc» devolverá como coincidencia cualquier nombre de archivo que contains .doc. Esto significa que también devuelve archivos que terminan en .docx y .docm. Obviamente, estos no deben convertirse, por lo que se incluye la estructura If / Then para eliminarlos.

Si prefiere no utilizar su propia macro, existen soluciones de terceros que puede utilizar. La siguiente página en el sitio de Graham Mayor presenta un complemento gratuito que, entre otras cosas, hará la conversión de documentos:

http://www.gmayor.com/document_batch_processes.htm

Es posible que pueda localizar otros convertidores similares haciendo una búsqueda en la web de «doc docx converter» (sin las comillas).

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (643) se aplica a Microsoft Word 2007, 2010, 2013 y 2016.