Как переделать макрос так, что бы после слияния Word создавал PDF и сохранял в PDF каждый раздел отдельно?

@Baaur · Регистрация: 23.08.2013

Студворк — интернет-сервис помощи студентам

Добрый вечер всем!
Помогите переделать макрос что бы после слияние, word создавал PDF и сохранял в PDF по отдельности.
Данный макрос создает в word и сохраняет по отдельности в word

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Split_document()
    Dim srcdoc As Document, newdoc As Document
    Dim i As Integer
    
    Set srcdoc = ActiveDocument
    For i = 1 To srcdoc.Sections.Count - 1
        srcdoc.Sections(i).Range.Copy
        Set newdoc = Document.Add
        newdoc.Range.Paste
        newdoc.Sections(2).PageSetup.SectionStart = wdSectionContinuous
        newdoc.SaveAs srcdoc.Path & "\" & Left(srcdoc.Name, Len(srcdoc.Name) - 4) & _
            "_" & Format(i, "000") & ".docx"
        newdoc.Close
    Next
End Sub

Всем спасибо!

@Alex Dark · 27.10.2014, 21:56

Если хотите сами разобраться - Запустите запись макроса и сохраните документ в PDF
Остановите макрос.
Получите нужную команду.

Если вы хотите что бы это сделал за вас я - то мне так же ломово это делать как и вам разбираться

@Baaur · 27.10.2014, 22:05 **[ТС]**

Я пробовал редактором записать, но он не сохраняет по отдельности к сожалению.

@Alex Dark · 28.10.2014, 04:49

Ну так, а руки и голова вам на что?
"Запись макроса" тупо пишет последовательность выполненных действий, при чём не всегда правильно.
Ваша задача всего лишь правильно подправить параметры полученных команд и на VB реализовать алгоритм действий которые вы выполняете при помощи мыши и клавиатуры.

@Baaur · 28.10.2014, 07:03 **[ТС]**

Если бы я знал что и куда добавить или подредактировать то не спрашивал бы на форуме....
Думаю форум для этого и создан был.

@Surrogate · 28.10.2014, 11:43

как вам и советовали посмотрите код на выходе макрорекордера и в дополнении почитайте про метод ExportAsFixedFormat

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

Думаю форум для этого и создан был.

IMHO а форум создан для конкретных вопросов! от вас же ни строчки кода

@Surrogate · 28.10.2014, 11:51

вам даже влом "покурить" похожие темы которые можно увидеть внизу данной темы

@Baaur · 28.10.2014, 12:05 **[ТС]**

Я их смотрел, ни одна из тем не подходит. Но все же спасибо.

@Surrogate · 28.10.2014, 12:22

ну а что вам макрорекордер то хоть выдает пытались анализировать ?

@Baaur · 28.10.2014, 12:33 **[ТС]**

Да он мне выдал

Visual Basic
1
2
3
4
5
6
7
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        "C:\Users\*******\Desktop\1.pdf", ExportFormat:=wdExportFormatPDF, _
        OpenAfterExport:=True, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
        wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent, _
        IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:= _
        wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:= _
        True, UseISO19005_1:=False

Я думал что маркос должен добавлять PDF и сохранять его отдельно, тоесть как

Visual Basic
1
= CreateObject("AcroExch.PDDoc")

вместо

Visual Basic
1
Set newdoc = Document.Add

но все равно не работает

@Surrogate · 28.10.2014, 12:46

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

Я думал что маркос должен добавлять PDF и сохранять его отдельно, тоесть как Код Visual Basic1
= CreateObject("AcroExch.PDDoc")

это если будете работать непосредственно с Adobe Acrobat Pro.
чем принципиально отличается метод SaveAs от ExportAsFixedFormat объекта newdoc?

@Baaur · 28.10.2014, 13:02 **[ТС]**

Честно признаюсь не знаю

Но предполагаю то что ExportAsFixedFormat - сохраняет док в заданном формате,

@Surrogate · 28.10.2014, 13:25

правильно мыслишь

заданных форматов у метода два: PDF и XPS
в нашем случае это фиксированный формат PDF, что нам мешает экспортировать объект newdoc в PDF ?

@Baaur · 28.10.2014, 14:56 **[ТС]**

Пока не дошло что мешает....

Добавлено через 12 минут
Можно еще подсказку...

@Surrogate · 28.10.2014, 15:13

у метода 2 основных параметра.
путь куда сохранять выходной файл OutputFileName и его формат выходного файла. Остальные можно игнорировать.
В нашем случае ExportFormat:=wdExportFormatPDF
в итоге надо только подсунуть в параметр OutputFileName.

Добавлено через 1 минуту
код в стартовом сообщении ты как-то написал же !

Добавлено через 13 минут

Не по теме:

можно даже звонок другу и помощь зала

@Baaur · 28.10.2014, 15:46 **[ТС]**

Visual Basic
1
2
3
4
5
6
Dim srcdoc As Document
Set srcdoc = ActiveDocument
 
    srcdoc.ExportAsFixedFormat OutputFileName:= _
        srcdoc.Path & "\" & Left(srcdoc.Name, Len(srcdoc.Name) - 4) & _
            "_" & Format(i, "000") & ".pdf", ExportFormat:=wdExportFormatPDF

данный макрос сохраняет, но не получится сохранить по отдельности, если вставляю сстроку

Visual Basic
1
For i = 1 To srcdoc.Sections.Count - 1

то он перестает работать

Добавлено через 43 секунды
в 3-ю строку

@Surrogate · 28.10.2014, 16:13

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

чем принципиально отличается метод SaveAs от ExportAsFixedFormat объекта newdoc?

я именно этот объект имел в виду, а не srcdoc

Добавлено через 4 минуты
проглядел еще ошибку Set newdoc = Documents.Add

@Baaur · 28.10.2014, 18:33 **[ТС]**

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

Set newdoc = Documents.Add

вот вместо пытался написать
Set newdoc.ExportAsFixedFormat OutputFileName:="C:\Users\*******\Deskto p\1.pdf", ExportFormat:=wdExportFormatPDF
тоже не получилось

Добавлено через 8 минут

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

чем принципиально отличается метод SaveAs от ExportAsFixedFormat объекта newdoc?

Нашел
SaveAs - Сохраняет указанный документ с новым именем или форматом
ExportAsFixedFormat - сохраняет документ в формате PDF или XPS

@Surrogate · 28.10.2014, 18:36

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

Set newdoc.ExportAsFixedFormat OutputFileName:="C:\Users\*******\Deskto p\1.pdf", ExportFormat:=wdExportFormatPDF

если убрать Set то все получится

Добавлено через 1 минуту
только наверно имена документов в pdf надо будет по аналогии с тем как ты в SaveAs делал. чтоб каждому разделу свое присваивать свое имя

@Baaur · 28.10.2014, 18:51 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Split_document1()
    Dim srcdoc As Document, newdoc As Document
    Dim i As Integer
    
    Set srcdoc = ActiveDocument
    For i = 1 To srcdoc.Sections.Count - 1
        srcdoc.Sections(i).Range.Copy
        newdoc.ExportAsFixedFormat OutputFileName:=srcdoc.Path & "\" & Left(srcdoc.Name, Len(srcdoc.Name) - 4) & "_" & Format(i, "000") & ".pdf", ExportFormat:=wdExportFormatPDF
        newdoc.Range.Paste
        newdoc.Sections(2).PageSetup.SectionStart = wdSectionContinuous
        
        newdoc.Close
    Next
End Sub

все равно выдает ошибку и просит Set поставить

Добавлено через 2 минуты
а после проставление Set ошибок еще больше появляются

Новые блоги и статьи Все статьи Все блоги /
И решил я переделать этот ноут в машину для распределенных вычислений Programma_Boinc 09.11.2025 И решил я переделать этот ноут в машину для распределенных вычислений Всем привет. А вот мой компьютер, переделанный из ноутбука. Был у меня ноут асус 2011 года. Со временем корпус превратился. . .	Мысли в слух kumehtar 07.11.2025 Заметил среди людей, что по-настоящему верная дружба бывает между теми, с кем нечего делить.	Новая зверюга volvo 07.11.2025 Подарок на Хеллоуин, и теперь у нас кроме Tuxedo Cat есть еще и щенок далматинца: Хочу еще Симбу взять, очень нравится. . .	Инференс ML моделей в Java: TensorFlow, DL4J и DJL Javaican 05.11.2025 Python захватил мир машинного обучения - это факт. Но когда дело доходит до продакшена, ситуация не так однозначна. Помню проект в крупном банке три года назад: команда data science натренировала. . .	Mapped types (отображённые типы) в TypeScript Reangularity 03.11.2025 Mapped types работают как конвейер - берут существующую структуру и производят новую по заданным правилам. Меняют модификаторы свойств, трансформируют значения, фильтруют ключи. Один раз описал. . .
Адаптивная случайность в Unity: динамические вероятности для улучшения игрового дизайна GameUnited 02.11.2025 Мой знакомый геймдизайнер потерял двадцать процентов активной аудитории за неделю. А виновником оказался обычный генератор псевдослучайных чисел. Казалось бы - добавил в карточную игру случайное. . .	Протоколы в Python py-thonny 31.10.2025 Традиционная утиная типизация работает просто: попробовал вызвать метод, получилось - отлично, не получилось - упал с ошибкой в рантайме. Протоколы добавляют сюда проверку на этапе статического. . .	C++26: Read-copy-update (RCU) bytestream 30.10.2025 Прошло почти двадцать лет с тех пор, как производители процессоров отказались от гонки мегагерц и перешли на многоядерность. И знаете что? Мы до сих пор спотыкаемся о те же грабли. Каждый раз, когда. . .	Изображения webp на старых x32 ОС Windows XP и Windows 7 Argus19 30.10.2025 Изображения webp на старых x32 ОС Windows XP и Windows 7 Чтобы решить задачу, использовал интернет: поисковики Google и Yandex, а также подсказки Deep Seek. Как оказалось, чтобы создать. . .	Passkey в ASP.NET Core identity stackOverflow 29.10.2025 Пароли мертвы. Нет, серьезно - я повторяю это уже лет пять, но теперь впервые за это время чувствую, что это не просто красивые слова. В . NET 10 команда Microsoft внедрила поддержку Passkey прямо в. . .

@Alex Dark Наблюдатель 457 / 192 / 33 Регистрация: 01.05.2012 Сообщений: 1,028
	27.10.2014, 21:56
	Если хотите сами разобраться - Запустите запись макроса и сохраните документ в PDF Остановите макрос. Получите нужную команду. Если вы хотите что бы это сделал за вас я - то мне так же ломово это делать как и вам разбираться 1

@Baaur 0 / 0 / 0 Регистрация: 23.08.2013 Сообщений: 24
	27.10.2014, 22:05 [ТС]
	Я пробовал редактором записать, но он не сохраняет по отдельности к сожалению. 0

@Alex Dark Наблюдатель 457 / 192 / 33 Регистрация: 01.05.2012 Сообщений: 1,028
	28.10.2014, 04:49
	Ну так, а руки и голова вам на что? "Запись макроса" тупо пишет последовательность выполненных действий, при чём не всегда правильно. Ваша задача всего лишь правильно подправить параметры полученных команд и на VB реализовать алгоритм действий которые вы выполняете при помощи мыши и клавиатуры. 0

@Baaur 0 / 0 / 0 Регистрация: 23.08.2013 Сообщений: 24
	28.10.2014, 07:03 [ТС]
	Если бы я знал что и куда добавить или подредактировать то не спрашивал бы на форуме.... Думаю форум для этого и создан был. 0

@Surrogate Ушел с CyberForum совсем! 874 / 183 / 25 Регистрация: 04.05.2011 Сообщений: 1,020 Записей в блоге: 110
	28.10.2014, 11:51
	вам даже влом "покурить" похожие темы которые можно увидеть внизу данной темы Миниатюры 0

@Baaur 0 / 0 / 0 Регистрация: 23.08.2013 Сообщений: 24
	28.10.2014, 12:05 [ТС]
	Я их смотрел, ни одна из тем не подходит. Но все же спасибо. 0

@Surrogate Ушел с CyberForum совсем! 874 / 183 / 25 Регистрация: 04.05.2011 Сообщений: 1,020 Записей в блоге: 110
	28.10.2014, 12:22
	ну а что вам макрорекордер то хоть выдает пытались анализировать ? 0

@Baaur 0 / 0 / 0 Регистрация: 23.08.2013 Сообщений: 24
	28.10.2014, 13:02 [ТС]
	Честно признаюсь не знаю Но предполагаю то что ExportAsFixedFormat - сохраняет док в заданном формате, 0

@Surrogate Ушел с CyberForum совсем! 874 / 183 / 25 Регистрация: 04.05.2011 Сообщений: 1,020 Записей в блоге: 110
	28.10.2014, 13:25
	правильно мыслишь заданных форматов у метода два: PDF и XPS в нашем случае это фиксированный формат PDF, что нам мешает экспортировать объект newdoc в PDF ? 0

@Baaur 0 / 0 / 0 Регистрация: 23.08.2013 Сообщений: 24
	28.10.2014, 14:56 [ТС]
	Пока не дошло что мешает.... Добавлено через 12 минут Можно еще подсказку... 0

@Surrogate Ушел с CyberForum совсем! 874 / 183 / 25 Регистрация: 04.05.2011 Сообщений: 1,020 Записей в блоге: 110
	28.10.2014, 15:13
	у метода 2 основных параметра. путь куда сохранять выходной файл OutputFileName и его формат выходного файла. Остальные можно игнорировать. В нашем случае ExportFormat:=wdExportFormatPDF в итоге надо только подсунуть в параметр OutputFileName. Добавлено через 1 минуту код в стартовом сообщении ты как-то написал же ! Добавлено через 13 минут Не по теме: можно даже звонок другу и помощь зала 0

Как переделать макрос так, что бы после слияния Word создавал PDF и сохранял в PDF каждый раздел отдельно?

Решение