Muy bien pero en ambos casos...como hago para manipular o de word o de acrobat?...q control se usa?

Responder

Re: Re: Re: Re: PDF desde VB?

Enviado por sdemingo el día 10 de septiembre de 2003

sub escribeEnWord()

dim wordApp as new word.application
dim texto as String

wordApp.Documents.Open FileName:="c:\documento.doc" , ReadOnly:=False

texto = "Extensión: "
wordApp.Selection.TypeText Text:=texto
' Así escribes líneas

wordApp.Selection.InsertBreak Type:=6
' Así haces salto de linea y retorno de carro

wordApp.Documents("C:\documento.doc").SaveAs FileName:="C:\DocumentoFinal.doc")

wordApp.Documents("C:\documento.doc").Close SaveChanges:=0

wordApp.Application.Quit

end sub

Prueba esto, per deberás tener un documento llamado documento.doc vacío en "c:\".
Luego solo tendrás que currarte la ayuda de vba de word.

ciao

 

Responder

Re: Re: Re: Re: Re: PDF desde VB?

Enviado por sdemingo el día 10 de septiembre de 2003

Luego, cuando tengas el documento word salvado, lo pasas a PDF.
Hazlo de antes de matar el objeto wordApp.

call imprimePDF("nombreDocumento")

Sub imprimePDF(nombre As String)

Dim impresoraPorDefecto As String

impresoraPorDefecto = ActivePrinter

ActivePrinter = "CutePDF Printer on NE04"
ActiveDocument.PrintOut OutputFileName:=nombre, PrintToFile:=True

ActivePrinter = impresoraPorDefecto

End Sub


Para esta fase lo que necesitas es haberte instalado la impresora virtual CutePDF Printer.

Un saludo

 

Responder

Para pasar ficheros doc a pdf en visual Basic:
Después de probar con CutePdf, he probado con pdf995 (www.pdf995.com), y manipulando el ini de este programa he conseguido obtener pdf sin que se pare en la pantalla save as.
'Instalando pdf995.Suite.7.0_complete y ejecutando cr-ap9995.exe del keygen
'Fichero en pdf995\res\pdf995.ini modificado como sigue:
'[Parameters]
'Use GPL Ghostcript=1
'Quiet = 0
'Document Name=Microsoft Word - sample.doc
'Initial Dir=C:\PDF995
'Output Folder=C:\PDF995\output\ 'En qué directorio se genera el fichero de salida
'Fixed Dir=C:\PDF995\output\ 'En qué directorio se genera el fichero de salida
'Default A4 = 1
'Output File = 4 'Esto indica cómo se va a llamar el siguiente fichero a generar
'User File=C:\PDF995\output\\3.pdf 'Esto lo pone el programa con lo último generado
'Launch=C:\PDF995\output\\3.pdf 'Esto lo pone el programa con lo último generado


Dim wd 'As New Word.Application
Dim ficherodestino As String
Dim numficdestino As Integer

numficdestino = 10
ficherodestino = CStr(numficdestino)

bien = AsignaIni("c:\pdf995\res\pdf995.ini", "Parameters", "Output File", ficherodestino) 'Esto llama a una función que manipula el ini

Set wd = New Word.Application

wd.Documents.Open FileName:="""c:\sample.doc""", _
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto

impresoraPorDefecto = wd.ActivePrinter

wd.Documents.Application.ActivePrinter = "PDF995"
wd.Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
Collate:=False, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0

bien = ESPERAR() 'Esto lo he puesto para esperar un tiempo en la prueba
MsgBox "Fichero Impreso"
wd.ActivePrinter = impresoraPorDefecto

wd.Quit
Set wd = Nothing

Responder

Eliminar la barra de progreso

Enviado por Fernando el día 31 de agosto de 2005

Hola:

En este proceso de pasar un fichero de Word a fichero Pdf (utilizando la impresora virtual PDF995), a parte de eliminar la pantalla de SaveAs, como se puede impedir mostrar la pantalla con la barra de progreso del proceso.

Tambien se quiere eliminar la propaganda que aparece de la impresora virtual

Muchas gracias por la ayuda.

 

Responder