Постраничная разбивка документа Word. Сохранение под разными именами.(данные из документа)

@progressiv13 · Регистрация: 29.03.2018

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

ТЗ: Сделать так чтобы данные из Excel перетягивались в Word, При этом файл ворд разбивался на 5 файлов и сохранялся под 5 именами.

1) данные из excel перетягиваются в word путём слияния двух файлов. (сделано)
2) VBA макросом файл ворд делится на 5 разных фалов, постраничное деление (сделано)
3) VBA макросом эти 5 файлов скидываются в отдельную папку и сохраняются там. (сделано)
4) Необходимо чтобы название этих файлов содержало:
4.1) Порядковый номер (сделано)
4.2) ФИО переменная FIO (не сделано)
4.3) Дата создания файлов (сделано)

Данные FIO находятся в таблице 1. строка 3 столбец 2 или альтернативное расположение 1 лист 9 строка.

Макрос имеет форму:

Visual Basic
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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Public Sub SavesPages()
 
Dim LineCount As Long, i As Long
Dim StartLine As Long, EndLine As Long, CurrentPageNum As Long
 
Selection.HomeKey Unit:=wdStory
LineCount = ThisDocument.BuiltInDocumentProperties("Number of Lines")
 
StartLine = 1: CurrentPageNum = 1
For i = 1 To LineCount
 
Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=i
If Selection.Information(wdActiveEndPageNumber) <> CurrentPageNum Then
EndLine = i - 1
Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=StartLine
Selection.MoveDown Unit:=wdLine, Count:=EndLine - StartLine, Extend:=wdExtend
Selection.Copy
Documents.Add DocumentType:=wdNewBlankDocument
Selection.PageSetup.Orientation = wdOrientLandscape
Selection.PageSetup.TopMargin = CentimetersToPoints(1)
Selection.PageSetup.BottomMargin = CentimetersToPoints(1)
Selection.PasteAndFormat (wdPasteDefault)
Selection.TypeBackspace
ChangeFileOpenDirectory _
"C:\Users\Artem.Markitanov\Desktop\Для И.Г\Формы для отправки\"
DocNum = DocNum + 1
ActiveDocument.SaveAs FileName:=DocNum & "_" & FIO & "_" & Format(Date, "dd.mm.yy") & ".docx"
ActiveDocument.Close
StartLine = i
Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=i
CurrentPageNum = Selection.Information(wdActiveEndPageNumber)
End If
Next i
EndLine = LineCount
Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=StartLine
Selection.MoveDown Unit:=wdLine, Count:=EndLine - StartLine, Extend:=wdExtend
Selection.Copy
Documents.Add DocumentType:=wdNewBlankDocument
Selection.PageSetup.Orientation = wdOrientLandscape
Selection.PageSetup.TopMargin = CentimetersToPoints(1)
Selection.PageSetup.BottomMargin = CentimetersToPoints(1)
Selection.PasteAndFormat (wdPasteDefault)
Selection.TypeBackspace
ChangeFileOpenDirectory _
"C:\Users\Artem.Markitanov\Desktop\Для И.Г\Формы для отправки\"
DocNum = DocNum + 1
ActiveDocument.SaveAs FileName:=DocNum & "_" & FIO & "_" & Format(Date, "dd.mm.yy") & ".docx"
ActiveDocument.Close
MsgBox "Всё сделанно Ирина Георгиевна!"
 
End Sub

@progressiv13 · 29.03.2018, 19:36 **[ТС]**

Ребят помогите начинающему VBAшнику)))
Всё что смог нашёл, либо через макрорекордер сделал. Но вот это FIO. вроде бы легко, но чего то не хочет расти каменный цветок)))

shanemac51 · 30.03.2018, 12:51

я не люблю слияние , особенно если в таблицу может быть(вернее должно быть) выведено произвольное количество строк

shanemac51 · 30.03.2018, 15:21

я бы видимо запускала макрос из екселя и с другим размещением полей
===
(к сожалению набила макрос, но умудрилась как то потерять)

@progressiv13 · 30.03.2018, 16:01 **[ТС]**

Каждая форма на одного человека. Поэтому строк всего 1 в таблице (то есть один человек на один документ на все 5 листов, в разные органы). С удовольствием бы переделал формы, но они согласованны и пересогласование займет слишком длительный период.

По факту мне нужно в макрос добавить (в начале не в цикл) FIO=(какая то формула в которых я не силён) Таблица 1 столбец 2 строка 3(или просто 9 строка листа 1).
Я понимаю что реализация простая просто указать расположение нахождения ФИО.
Либо реализовать данную задумку через поиск "id:"
Можно через колонтитул реализовать и сделать текст белым.

shanemac51 · 30.03.2018, 16:05

я исходила из строк вордовского шаблона

прошу Вас разрешить оформить временный (постоянный) пропуск в контролируемую зону аэропорта Внуково нижеперечисленным (ному) работникам (у):

так что уточните ТЗ у заинтересованных лиц

@progressiv13 · 30.03.2018, 16:12 **[ТС]**

Уточнил))) Первоначально задача была на несколько сотрудников делать. Но из-за этого форма сползала. И это перестало всем нравится, Поэтому форму не поменяли, но ввели условие, что форма на одного сотрудника.

shanemac51 · 30.03.2018, 16:26

после 20мск восстановлю код --запуск из экселя ,из текущей строки, двойным кликом на 1-й ячейке строки
нужно ли сразу отправлять на печать
-----
сейчас некогда

@progressiv13 · 30.03.2018, 16:32 **[ТС]**

Нет на печать не нужно.
Спасибо! Буду благодарен за вашу помощь.

shanemac51 · 30.03.2018, 21:10

распаковать с каталогами

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@progressiv13 1 / 1 / 0 Регистрация: 29.03.2018 Сообщений: 7
	29.03.2018, 19:36 [ТС]
	Ребят помогите начинающему VBAшнику))) Всё что смог нашёл, либо через макрорекордер сделал. Но вот это FIO. вроде бы легко, но чего то не хочет расти каменный цветок))) 0

shanemac51 Модератор 12231 / 5078 / 814 Регистрация: 07.08.2010 Сообщений: 14,933 Записей в блоге: 4
	30.03.2018, 12:51
	я не люблю слияние , особенно если в таблицу может быть(вернее должно быть) выведено произвольное количество строк 0

@progressiv13 1 / 1 / 0 Регистрация: 29.03.2018 Сообщений: 7
	30.03.2018, 16:01 [ТС]
	Каждая форма на одного человека. Поэтому строк всего 1 в таблице (то есть один человек на один документ на все 5 листов, в разные органы). С удовольствием бы переделал формы, но они согласованны и пересогласование займет слишком длительный период. По факту мне нужно в макрос добавить (в начале не в цикл) FIO=(какая то формула в которых я не силён) Таблица 1 столбец 2 строка 3(или просто 9 строка листа 1). Я понимаю что реализация простая просто указать расположение нахождения ФИО. Либо реализовать данную задумку через поиск "id:" Можно через колонтитул реализовать и сделать текст белым. 0

@progressiv13 1 / 1 / 0 Регистрация: 29.03.2018 Сообщений: 7
	30.03.2018, 16:12 [ТС]
	Уточнил))) Первоначально задача была на несколько сотрудников делать. Но из-за этого форма сползала. И это перестало всем нравится, Поэтому форму не поменяли, но ввели условие, что форма на одного сотрудника. 0

shanemac51 Модератор 12231 / 5078 / 814 Регистрация: 07.08.2010 Сообщений: 14,933 Записей в блоге: 4
	30.03.2018, 16:26
	после 20мск восстановлю код --запуск из экселя ,из текущей строки, двойным кликом на 1-й ячейке строки нужно ли сразу отправлять на печать ----- сейчас некогда 1

@progressiv13 1 / 1 / 0 Регистрация: 29.03.2018 Сообщений: 7
	30.03.2018, 16:32 [ТС]
	Нет на печать не нужно. Спасибо! Буду благодарен за вашу помощь. 0

Опции темы

Постраничная разбивка документа Word. Сохранение под разными именами.(данные из документа)

Решение