22/01/2002, 09:57
|
 | | | Fecha de Ingreso: enero-2002
Mensajes: 701
Antigüedad: 23 años, 4 meses Puntos: 8 | |
| Re: crear fichero word
Hola,
Cuando creas las lineas del documento con FSO, lo que debes hacer es crear un archivo con etiquetas html.
Aqui tienes un ejemplo:
'-------------------------------'
'Creando un Archivo de Word2000 '
'-------------------------------'
Dim objFSO, objStream
Set objFSO = CreateObject("Scripting.FileSystemObject" ;)
Set objStream = objFSO.OpenTextFile("c:\archivo" & ".doc", 2, True)
'----------------------------------------'
'2=crea un nuevo archivo, 8=sobreescribe '
'----------------------------------------'
objStream.WriteLn("<html><body>&q uot;)
objStream.WriteLn("<b>Texto en Negrita</b>")
objStream.WriteLn("</body></html>")
Set objStream = Nothing
Set objFSO = Nothing
Luego abres el archivo resultante con Word 2000 y listo.
Saludos,
Patricio Carvajal H. |