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