Cómo guardar un documento de X páginas de Word en paginas independientes en formato html

Aunque Word no es un programa especializado en diseño web, los documentos que generemos en formato html. En este sentido puede sernos útil guardar un documento de X páginas en archivos independientes html para subirlo a nuestra web. En este articulo os presentamos una macro que realiza la tarea

La Macro coge la totalidad de las páginas que tenga el documento y te la separara como archivos independientes en formato html. Los documentos html generados serán guardados en la carpeta Mis documentos. La Macro es funcional en Word 2003 / Word 2007.

Sub guardar_paginas_html()

Dim y As Long
Dim i As Long
Dim name As String

Selection.HomeKey Unit:=wdStory

y = ActiveDocument.BuiltInDocumentProperties _
(wdPropertyPages)

i = 0

While i < y

i = i + 1

name = "documento" & Format(i)

ActiveDocument.Bookmarks("\Page").Range.Cut
With Documents.Add

.Range.Paste
.SaveAs FileName:=name, _
FileFormat:=wdFormatHTML
.Close
End With

Wend

End Sub