СОХРАНЕНИЕ В ФОРМАТЕ *.PDF

[provodnikam]

Ребят, помогите макрос написать для OpenOffice.
Смысл такой: брать файлы из указанной папки и сохранять в формате pdf.
Спасибо!!!!

[EducatedFool]

брать файлы из указанной папки и сохранять в формате pdf.

Несколько вопросов:

• Какие файлы брать? все подряд - текстовые, графические, бинарные?
• Какое отношение имеет OpenOffice к данному разделу форума?
• Почему нельзя воспользоваться специальными утилитами для конвертации файлов в PDF?

[provodnikam]

Сообщение от EducatedFool

Несколько вопросов:

• Какие файлы брать? все подряд - текстовые, графические, бинарные?
• Какое отношение имеет OpenOffice к данному разделу форума?
• Почему нельзя воспользоваться специальными утилитами для конвертации файлов в PDF?

Я не знаю таких утилит для MS-Officce....
если есть таковые - посдкажите.
Все файлы в папке формата doc

[viter.alex]

Так для чего нужен макрос? Для OpenOffice или для Word?
Утилит, в том числе и бесплатных для конвертации в pdf, вагон и маленькая тележка. Стоит только погуглить на тему "виртуальный принтер PDF".
После того, как ты нагуглишь виртуальный принтер, открываешь макросом все документы (функция Dir) и отправляешь их на печать на этот самый принтер. Всё.

[provodnikam]

А макрос можно???
Я не очень в этом понимаю))))))))))))

[viter.alex]

Пожалуйста. Если принтер PDF уже установлен и настроен (как у меня), то работать будет:

Sub PrintToPDF()
  Dim FileName As String
  Dim Path As String
  Dim Doc As Document
  Dim n As Long
  
  With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "Выберите папку с документами для преобразования в pdf"
    .AllowMultiSelect = False
    If .Show Then Path = .SelectedItems(1) Else Exit Sub
  End With
  Application.ScreenUpdating = False
  FileName = Dir(Path & Application.PathSeparator & "*.doc")
  While Len(FileName) > 0
    n = n + 1
    FileName = Path & Application.PathSeparator & FileName
    Set Doc = Documents.Open(FileName, AddToRecentFiles:=False)
    Doc.PrintOut
    While Application.BackgroundPrintingStatus > 0
      DoEvents
    Wend
    Doc.Close False
    FileName = Dir
  Wend
  Application.ScreenUpdating = True
  MsgBox "Преобразование в PDF завершено. Преобразовано " & n & " документов.", vbInformation + vbOKOnly, "Пакетное преобразование в PDF"
End Sub

[Aent]

PDF принтер можно найти, например, здесь:
http://www.dopdf.com/ru/
Однако замечу, что если документы имеют сложную структуру (разбиты на несколько глав/разделов и т.п.) и вы используете Word 2007 SP2, во многих случаях более качественный документ получается не при печати на PDF
принтер а при использовании метода
ActiveDocument.ExportAsFixedFormat, появившегося в Word 2007.
Вместо фрамента:

Doc.PrintOut
While Application.BackgroundPrintingStatus > 0
    DoEvents
Wend

используйте

With Doc
     .ExportAsFixedFormat OutputFileName:= Path &,  Application.PathSeparator & Left(.Name, Len(.Name) -3) & "pdf" & _
          ExportFormat:=wdExportFormatPDF, _
          OpenAfterExport:=False, _
          OptimizeFor:=wdExportOptimizeForPrint, _
          Range:= wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent, _
          IncludeDocProps:=True, KeepIRM:=True, _
          CreateBookmarks:= wdExportCreateNoBookmarks, DocStructureTags:=True, 
          BitmapMissingFonts:= True, UseISO19005_1:=False
End with

Кстати, качество получающегося PDF IMHO лучше чем после экспорта из OpenOffice.Org
Можно так же воспользоваться надстройкой
http://www.microsoft.com/downloads/d...b-63b07ba5f2e5

[provodnikam]

Сообщение от viter.alex

Пожалуйста. Если принтер PDF уже установлен и настроен (как у меня), то работать будет:

Sub PrintToPDF()
  Dim FileName As String
  Dim Path As String
  Dim Doc As Document
  Dim n As Long
  
  With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "Выберите папку с документами для преобразования в pdf"
    .AllowMultiSelect = False
    If .Show Then Path = .SelectedItems(1) Else Exit Sub
  End With
  Application.ScreenUpdating = False
  FileName = Dir(Path & Application.PathSeparator & "*.doc")
  While Len(FileName) > 0
    n = n + 1
    FileName = Path & Application.PathSeparator & FileName
    Set Doc = Documents.Open(FileName, AddToRecentFiles:=False)
    Doc.PrintOut
    While Application.BackgroundPrintingStatus > 0
      DoEvents
    Wend
    Doc.Close False
    FileName = Dir
  Wend
  Application.ScreenUpdating = True
  MsgBox "Преобразование в PDF завершено. Преобразовано " & n & " документов.", vbInformation + vbOKOnly, "Пакетное преобразование в PDF"
End Sub

у МЕНЯ ЧТО-ТО ВСЁ ЗАВИСАЕТ И НИЧЕГО НЕ ПРЕОБРАЗОВЫВАЕТ!!!!!!!!!!!
мОЖЕТ ПРИНТЕР НЕ ТОТ???
ТЫ КАКОЙ ИСПОЛЬЗУЕШЬ?

[viter.alex]

Я использую pdfFactory Pro. А если просто отправить документ на печать, работает?

[provodnikam]

Сообщение от Aent

PDF принтер можно найти, например, здесь:
http://www.dopdf.com/ru/
Однако замечу, что если документы имеют сложную структуру (разбиты на несколько глав/разделов и т.п.) и вы используете Word 2007 SP2, во многих случаях более качественный документ получается не при печати на PDF
принтер а при использовании метода
ActiveDocument.ExportAsFixedFormat, появившегося в Word 2007.
Вместо фрамента:

Doc.PrintOut
While Application.BackgroundPrintingStatus > 0
    DoEvents
Wend

используйте

With Doc
     .ExportAsFixedFormat OutputFileName:= Path &,  Application.PathSeparator & Left(.Name, Len(.Name) -3) & "pdf" & _
          ExportFormat:=wdExportFormatPDF, _
          OpenAfterExport:=False, _
          OptimizeFor:=wdExportOptimizeForPrint, _
          Range:= wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent, _
          IncludeDocProps:=True, KeepIRM:=True, _
          CreateBookmarks:= wdExportCreateNoBookmarks, DocStructureTags:=True, 
          BitmapMissingFonts:= True, UseISO19005_1:=False
End with

Этот код, я так понимаю, только для Office 2007 подходит?