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

Fermu

muchas gracias funciono perfectamente sólo que al final detecto una pagina
en blanco y un mensaje de error
ActiveDocument.Bookmarks("\Page").Range.Cut en ésta línea... pero asi y todo
convirtio todas las paginas en formato html

Muchas gracias

Augusto Unten
Informática pastoral

"Tux" escribió en el mensaje
news:%

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

Hola Augusto :-)

Fermu

muchas gracias funciono perfectamente sólo que al final detecto una pagina
en blanco y un mensaje de error
ActiveDocument.Bookmarks("\Page").Range.Cut en ésta línea... pero asi y todo
convirtio todas las paginas en formato html

Muchas gracias

Augusto Unten
Informática pastoral

Bien para controlar ese error puedes hacer lo siguiente ya que como
corta y separa el documetno si el documento no tiene nada que cortar
pues se produce el error asi que añade los siguiente al codigo por ejemplo:


en la linea de codigo 11 sengun el codigo expuesto que seria esta »


name = "documento" & Format(i)
'pues añade esto debajo de esta linea
On Error GoTo mio:


En la linea 19 »

Wend
'añade esto debajo de esta linea
Exit Sub
mio:

MsgBox "en Esta pagina hay nada que cortar"

End Sub


Y gracias por el feedback ;-)

Saludos
Monica

Pd : :-( se me olvido con las prisas el saludar en el otro post :-P
cuando voy veloz me como muchas palabras :-P !!




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