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

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

@user-vr1lu7ie8u

Жыл бұрын

У вас получилось это реализовать?

Спасибо огромное Сделал макрос для сохранения постранично в pdf. Правда сохраняет не в папку с исходным файлом, а в папку Документы. Так и не разобрался почему Sub Macro1() ' ' Macro1 Macro ' ' For i = 1 To ActiveDocument.ComputeStatistics(wdStatisticPages) Selection.GoTo What:=wdGoToPage, Which:=wdGoToPage, Name:=Str(i) Selection.GoTo What:=wdGoToBookmark, Name:="\page" Selection.Copy Documents.Add DocumentType:=wdNewBlankDocument Selection.PasteAndFormat (wdPasteDefault) Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting 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 ActiveDocument.ExportAsFixedFormat 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

А как выделить две страницы?

👍🏻👍🏻👍🏻

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

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

@AnyKeySkywalker

3 жыл бұрын

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

@jerih5939

3 жыл бұрын

@@AnyKeySkywalker подскажите, пожалуйста, что именно необходимо подправить?

Спосиба

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

@kusyuka1

4 жыл бұрын

Sub Розбивка() ' ' Розбивка Макрос ' ' For i = 1 To ActiveDocument.ComputeStatistics(wdStatisticPages) Selection.GoTo What:=wdGoToPage, Which:=wdGoToPage, Name:=Str(i) Selection.GoTo What:=wdGoToBookmark, Name:="\page" Selection.Copy Documents.Add DocumentType:=wdNewBlankDocument Selection.PageSetup.LeftMargin = CentimetersToPoints(2) Selection.PasteAndFormat (wdFormatOriginalFormatting) Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting 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 ActiveDocument.SaveAs2 FileName:="Ticket" + Str(i) + ".docx", FileFormat:=wdFormatXMLDocument _ , LockComments:=False, Password:="", AddToRecentFiles:=True, _ WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _ SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _ False, CompatibilityMode:=15 ActiveWindow.Close Next i End Sub

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

Там 1=1 или i=1

@AnyKeySkywalker

4 жыл бұрын

i=1

Столько воды и не о чём 😊

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