powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Соединение двух файлов формата PDF
3 сообщений из 3, страница 1 из 1
Соединение двух файлов формата PDF
    #37277408
Уважающий ВсехВас
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А есть ли возможность "соединить" два файла формата PDF друг за другом?
Очень прошу помочь!Заранее благодарю за ответ!
...
Рейтинг: 0 / 0
Соединение двух файлов формата PDF
    #37277449
Уважающий ВсехВас,
может что-то из подойдёт
...
Рейтинг: 0 / 0
Соединение двух файлов формата PDF
    #37286187
newnoober
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
если нужно программно, то когда-то давно делал так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
' Данная процедура создает один  .pdf файл из нескольких исходных .pdf файлов
Sub pdf_plus_pdf(ByVal pathItog As String, ByRef arr_files() As String)
 'pathItog - полное имя результирующего файла
 'arr_files() массив, содержащий полные имена файлов, которые нужно склеивать
   
    Dim numPages As Integer
    Dim AcroApp As Acrobat.CAcroApp '
    Dim i As Integer
    
    Dim NewDocument As Acrobat.CAcroPDDoc
    Dim OldDocument As Acrobat.CAcroPDDoc
    
    Set AcroApp = CreateObject("AcroExch.App")
    Set NewDocument = CreateObject("AcroExch.PDDoc")
    Set OldDocument = CreateObject("AcroExch.PDDoc")
        
    NewDocument.Open (arr_files( 1 ))
    For i =  2  To UBound(arr_files())
        Debug.Print arr_files(i)
        OldDocument.Open (arr_files(i))
          numPages = NewDocument.GetNumPages()
        If NewDocument.InsertPages(numPages -  1 , OldDocument,  0 , OldDocument.GetNumPages(), True) = False Then
            MsgBox "Невозможно вставить страницы"
        End If
        OldDocument.Close
    Next i
    
    If NewDocument.Save(PDSaveFull, pathItog) = False Then
        MsgBox "Невозможно сохранить измененный документ"
    End If
    
    NewDocument.Close
    AcroApp.Exit
    Set AcroApp = Nothing
 End Sub

"AcroExch.App" в Adobe Acrobat X.0 Type Library (X.0= {7.0/8.0/9.0} и т.п.) Ставится по-моему вместе с Adobe Acrobat Pro.
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Соединение двух файлов формата PDF
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]