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

Home

Novedades Articulos

Written by monica

Saturday, 08 December 2007 17:01

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