как ... из документа Word каждую страницу сохранить в отдельный файл

Постраничное сохранение документа в отдельные файлы.

[traktin]

Спасибо огромное! документ на 457 страниц, я бы иначе просто повесилась вручную сохранять

[viktoronyshchuk]

Спасибо огромное

Сделал макрос для сохранения постранично в pdf. Правда сохраняет не в папку с исходным файлом, а в папку Документы. Так и не разобрался почему

Sub Macro1()
'
' Macro1 Macro
'
'
For i = 1 To
Selection.GoTo What:=wdGoToPage, Which:=wdGoToPage, Name:=Str(i)
Selection.GoTo What:=wdGoToBookmark, Name:="\page"
Selection.Copy
Documents.Add
Selection.PasteAndFormat (wdPasteDefault)


With Selection.Find
.Text = "^m"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
OutputFileName:= _
"Билет" + Str(i) + ".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
ActiveWindow.Close False
Next i
End Sub

[Домикнадереве-чч]

Не, ну неудачный момент с "ой, бесконечный цикл" можно было и перезаписать))

А так спасибо за материал

[АнастасияЕлисеева-жж]

Подскажите пожалуйста как этот макрос переделать на 2 листа ?🙏🙏🙏

[TheKargashik]

Подскажите, пожалуйста, как сделать так, чтобы каждая страница сохранялась с именем, которое бы бралось из 4 строки каждой страницы?

[nemo]

А есть макрос или программка для разделения документа ворд на определённое количество страниц?

[wetiran]

нашел способ "легче" выделяешь и удаляешь все "ненужные" страницы, когда останется ножная "сохранить как..."

[КоляВолков-пч]

Жаль нет отдельно макроса написаного под видео(

[rapid]

Хороший материал с отвратительной подачей. Без обид. Просто посмотрите у Павлова как надо - вы же не на лекции перед студентами во втором семестре. Ваша подача материала подразумевает, что смотрят подготовленные люди...