TextBox VB Word 2007

 
Sub PrintWordToPDF()
 
 'конвертирование документов Word в PDF
 'Universal Document Converter 5.2 и выше должен быть установлен
 'подключаем библиотеку UDC 5.1 Type Library
 
 'имя с расширением и местом расположения конвертируемого файла Word
  strFilePath = "L:\Щербаков.doc"
  Dim objUDC As IUDC
  Dim itfPrinter As IUDCPrinter
  Dim itfProfile As IProfile
 
  Dim WordApp As Object
  Dim WordDoc As Object
 
  Set objUDC = New UDC.APIWrapper
  Set itfPrinter = objUDC.Printers("Universal Document Converter")
  Set itfProfile = itfPrinter.profile
 
' Use Universal Document Converter API to change settings of converterd document
  itfProfile.PageSetup.ResolutionX = 600
  itfProfile.PageSetup.ResolutionY = 600
 
  itfProfile.FileFormat.ActualFormat = FMT_PDF
 
  itfProfile.FileFormat.PDF.ColorSpace = CS_TRUECOLOR
  itfProfile.FileFormat.PDF.MultiPage = MM_MULTI
 
  itfProfile.OutputLocation.Mode = LM_PREDEFINED
  'Output - выход, создаёт папку с именем ... по адресу ...
  itfProfile.OutputLocation.FolderPath = "C:\Out"
  'имя файла в PDF 
  itfProfile.OutputLocation.fileName = "&[DocName(0)] -- &[Date(0)] -- &[Time(0)].&[ImageType]"
  itfProfile.OutputLocation.OverwriteExistingFile = False
 
' Run Microsoft Word as COM-server
  On Error Resume Next
  Set WordApp = CreateObject("Word.Application")
 
' Open document from file
  Err = 0 ' Clear GetLastError() value
  Set WordDoc = WordApp.Documents.Open(strFilePath, , 1)
 
  If Err = 0 Then
 
  ' Print all pages of the document
    WordApp.ActivePrinter = "Universal Document Converter"
    Call WordApp.PrintOut(False)
 
  ' Close the document
    Call WordDoc.Close
    Set WordDoc = Nothing
 
  End If
 
' Close Microsoft Word
  Call WordApp.Quit
  Set WordApp = Nothing
 
End Sub