Как задать имя файлам Word и поместить их в папки с такими же именами

@IvanLitovchenko · Регистрация: 18.09.2024

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

Добрый день!
Использую следующий код для постраничного разбиения файла Word. Подскажите, каким образом нужно изменить код, чтобы новые файлам были заданы имена по типу "Фамилия И.О." (эти данные содержатся на каждой странице), а также чтобы каждый файл был помещен в папку с таким же названием?

Visual Basic

Sub SplitIntoPages()
Dim docMultiple As Document
Dim docSingle As Document
Dim rngPage As Range
Dim iCurrentPage As Integer
Dim iPageCount As Integer
Dim strNewFileName As String
Application.ScreenUpdating = False '
Set docMultiple = ActiveDocument
Set rngPage = docMultiple.Range
iCurrentPage = 1
iPageCount = docMultiple.Content.ComputeStatistics(wdStatisticPages)
Do Until iCurrentPage > iPageCount
If iCurrentPage = iPageCount Then
rngPage.End = ActiveDocument.Range.End '
Else
Selection.GoTo wdGoToPage, wdGoToAbsolute, iCurrentPage + 1
rngPage.End = Selection.Start
End If
rngPage.Copy
Set docSingle = Documents.Add
docSingle.Range.Paste
docSingle.Range.Find.Execute Findtext:="^m", ReplaceWith:=""
strNewFileName = Replace(docMultiple.FullName, ".doc", "_" & Right$("000" & iCurrentPage, 4) & ".doc")
docSingle.SaveAs strNewFileName
iCurrentPage = iCurrentPage + 1
rngPage.Collapse wdCollapseEnd
Application.ScreenUpdating = True
Set docMultiple = Nothing
Set docSingle = Nothing
Set rngPage = Nothing
End Sub

@Catstail · 24.09.2024, 12:12

В строках 24 и 25 задавайте нужное имя файла и папку.

@Catstail Модератор 37412 / 20784 / 4277 Регистрация: 12.02.2012 Сообщений: 34,196 Записей в блоге: 14
	24.09.2024, 12:12	2
	В строках 24 и 25 задавайте нужное имя файла и папку. 0