Crear páginas web por página

Hola Augusto :)

Hola como están... tengo la siguiente consulta:
A partir de un documento de Word (supongamos de 35 páginas) como puedo crear
páginas web por medio de UNA MACRO de modo que como resultado final tenga 35
páginas web independientes? - uno por hoja...

Agradeceré cualquier ayuda

Augusto U.

p.d. Uso Microsoft office 2000

Bien prueba el siguiente codigo, te cortara las *x paginas* que tengas
en el documento y te las separara como archivos independientes en
formato [ *.htm ] , prueba y nos comentas ok? :-)


'[]

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


'[]








Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

» Now We are free [Enya]
» United states of love [ Westbam and the love commitee ]
» Nothing Else Matters [ Metallica ]

www.fermu.com