Разбить документ Word на отдельные файлы по определенному признаку
Доброго дня!
в VBA Word не силен, встречались задачи редко, прошу помощи.
На просторах Инет нашел разбивку по страницам, но здесь в одном документе нужно разбить исходя из ключевого слова.
В одном документе может быть с десяток служебок на разное количество страниц, но Заканчиваются все одинаково словами «Директор Иванов И.И.»
Вот как можно по признаку «Иванов И.И.» разбить на отдельные файлы?
Может Циклом пройтись по всем найденным вхождениям «Иванов И.И.» , но как сделать цикл с поиском в Word я не знаю.
В общем спасибо за любую подсказку
Лучшие ответы ( 1 )
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
Ответы с готовыми решениями:
Разбить документ на отдельные файлы и переименовать каждый файл используя слияние. Поправить код
Здравствуйте! Пытаюсь провернуть мейл мердж. Получил общий документ со всеми письмами, но не.
Разбить Библию на отдельные файлы
Буду рад Вашей помощи в моёй промежуточной задаче по разбивке Библии: Библия сохранена в.
Разбить программу на отдельные файлы
#include <iostream> #include <fstream> using namespace std; int main() < .
Разделить документ Word на отдельные страницы с конвертацией в PDF
Добрый день! В Word, при помощи рассылки были созданы сертификаты участников. Далее, их необходимо.
2714 / 1693 / 774
Регистрация: 23.03.2015
Сообщений: 5,367
ArtNord,
Можно на файл взглянуть?
11565 / 4770 / 769
Регистрация: 07.08.2010
Сообщений: 13,918
Записей в блоге: 4
Сообщение от ArtNord 
В общем спасибо за любую подсказку
выложите реалистичный пример файла (с точки зрения оформления и содержимого)
371 / 269 / 93
Регистрация: 18.11.2015
Сообщений: 997
Narimanych, shanemac51, Да, не подумал сразу. Примерно так
| Форма СЗ.docx (16.1 Кб, 17 просмотров) |
2714 / 1693 / 774
Регистрация: 23.03.2015
Сообщений: 5,367
Сообщение было отмечено ArtNord как решение
Решение
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
Sub NNN() Dim R1 As Range, R2 As Range m = 1 n = 1 With ActiveDocument FN = .Content.End X = 1 Do Until n = FN Set R1 = .Range(Start:=m, End:=FN) R1.Find.Execute FindText:="È.È.Èâàíîâ", Forward:=True If R1.Find.Found = True Then n = R1.End Set R2 = .Range(Start:=m, End:=n) Set DC = Documents.Add R2.Copy DC.Range.Characters.Last.PasteAndFormat Type:=wdFormatOriginalFormatting DC.SaveAs ThisDocument.Path & "\File " & X DC.Close True m = n + 1 X = X + 1 End If Loop End With End Sub
371 / 269 / 93
Регистрация: 18.11.2015
Сообщений: 997
Narimanych, Большое спасибо! Да же не надеялся на столь быстрый и полный ответ!
в конце выполнения макроса, выдает ошибку 4608
Значение лежит вне диапазона, но чуть позже думаю разберусь.
Ещё раз спасибо
2714 / 1693 / 774
Регистрация: 23.03.2015
Сообщений: 5,367
Cтрока 8.
Do until m>FN.
Добавлено через 1 час 14 минут
Sorry
строка 8
Do While m < FN
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
Помогаю со студенческими работами здесь
Как разбить проект на отдельные файлы?
Здравствуйте, как разбить проект на отдельные файлы с целью рефакторинга? Я так понял нужно.
Строка. разбить пополам и записать в отдельные файлы
Есть файл из символами EOI78URYETWRQE розбить строку пополам и записать в другой файл половину.
Как разбить CSV файл на отдельные файлы
Всем привет, кто может подсказать решение, как разбить CSV файл состоящий из 100000 строк, на.
Как разбить документ Word на несколько файлов
Здравствуйте Уважаемые! Подскажите. Имеется документ Word, состоящий из "n" страниц. Как разбить.
Ошибка при выполнении макроса, который разбивает документ на отдельные pdf файлы
Есть макрос который разбивает документ на отдельные pdf файлы, но оно не всегда правильно работает.
Разбить word на файлы
Добрый день. Имеется файл word с n числом страниц. Необходимо разбить его на файлы по 2 стр. и.
Macromedia Flash 8 - как собрать отдельные файлы в единый flash-документ?
Добрый день. "Разбирала" flash-приложение с помощью Sothink SWF Decompiler 5. Сконвертировала в.
Или воспользуйтесь поиском по форуму:
разделить файлы Word онлайн бесплатно
Разделить DOCX, DOC, ODT и многие другие форматы Word .
Перетащите или загрузите свои файлы
Загружая свои файлы или используя наш сервис, вы соглашаетесь с нашим классом Условия использования и Политика конфиденциальности.
Подождите, ваш файл находится в обработке
Хотите сообщить об этой ошибке на форум Fileformat, чтобы мы могли изучить и решить проблему? Вы получите уведомление по электронной почте, когда ошибка будет исправлена. Форма отчета
Your error has been posted successfully.
Ваш файл успешно обработан
разделить файлы Word онлайн бесплатно
Отправить результат на:
Разделенные документы Word, включая DOCX, ODT, PDF, DOC и многие другие форматы
Наш разделитель документов Word позволяет бесплатно разделять файлы онлайн. Разделяйте файлы DOTX, OTT, PDF, WPS или любые другие поддерживаемые форматы. Установка стороннего программного обеспечения не требуется. Веб-приложение работает быстро, надежный, простой в использовании и абсолютно бесплатный.
Разделить на несколько документов
Вы можете разделить документ на несколько документов за несколько секунд.
Выберите режим разделения
Вы можете разделить документ по диапазону страниц, номеру страницы и каждой странице
Быстрая операция разделения
Молниеносно быстрые операции разделения для выбранные вами документы.
Как для разделения файлов документ
- Загрузить документ файлов, чтобы бесплатно разделить их онлайн.
- Укажите параметры и нажмите кнопку "Разделить", чтобы разделить документ.
- Загрузите разделенный документ для мгновенного просмотра или отправьте ссылку по электронной почте.
Часто задаваемые вопросы
Как разделить Word и другие файлы?
Просто используйте наш онлайн-класс Разделитель. Это быстро, просто в использовании и совершенно бесплатно. Он предназначен для быстрого разделения документов и изображений бесплатно для онлайн.
Какие форматы поддерживает ваш разделитель?
Мы поддерживаем различные документы, включая PDF, DOC, DOCX, RTF, ODT, HTML, Markdown, PNG, JPG, TIFF, BMP, MOBI, CHM, WPS, TXT и многие другие.
Как разделить страницы в ворде на отдельные файлы
Может возникнуть ситуация, что нужно разделить многостраничный документ на отдельные документы. Например, каждая страница несет отдельную информацию, а таких десятки или сотни.
Примечание. Если вам необходимо разделить информацию в документе, которая занимает 1,5, 2 или большее количество страниц, то способ не поможет. Предложенный макрос разделяет лишь по 1 странице.
Алгоритм работы:
1. Скопировать многостраничный документ, который нужно разделить в отдельную папку. Открыть его. Дальше: «Вид → Макросы → Макросы».
2. Если у вас до сих пор не было макросов и в открывшемся окне они не отображаются, то нужно нажать «Создать». Если макросы уже присутствуют, то нужно выделить любой из них и нажать «Изменить» или нажать сочетание клавиш Alt + F11. Запустится окно программы Microsoft Visual Basic.
3. Скопировать следующий код макроса:
Sub РозбитиДокументНаСторінки()
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 'Makes the code run faster and reduces screen _
flicker a bit.
Set docMultiple = ActiveDocument 'Work on the active document _
(the one currently containing the Selection)
Set rngPage = docMultiple.Range 'instantiate the range object
iCurrentPage = 1
'get the document's page count
iPageCount = docMultiple.Content.ComputeStatistics(wdStatisticPages)
Do Until iCurrentPage > iPageCount
If iCurrentPage = iPageCount Then
rngPage.End = ActiveDocument.Range.End 'last page (there won't be a next page)
Else
'Find the beginning of the next page
'Must use the Selection object. The Range.Goto method will not work on a page
Selection.GoTo wdGoToPage, wdGoToAbsolute, iCurrentPage + 1
'Set the end of the range to the point between the pages
rngPage.End = Selection.Start
End If
rngPage.Copy 'copy the page into the Windows clipboard
Set docSingle = Documents.Add 'create a new document
docSingle.Range.Paste 'paste the clipboard contents to the new document
'remove any manual page break to prevent a second blank
docSingle.Range.Find.Execute Findtext:="^m", ReplaceWith:=""
'build a new sequentially-numbered file name based on the original multi-paged file name and path
strNewFileName = Replace(docMultiple.FullName, ".doc", "_" & Right$("000" & iCurrentPage, 4) & ".doc")
docSingle.SaveAs strNewFileName 'save the new single-paged document
iCurrentPage = iCurrentPage + 1 'move to the next page
docSingle.Close 'close the new document
rngPage.Collapse wdCollapseEnd 'go to the next page
Loop 'go to the top of the do loop
Application.ScreenUpdating = True 'restore the screen updating
'Destroy the objects.
Set docMultiple = Nothing
Set docSingle = Nothing
Set rngPage = Nothing
End Sub
4. Найти где заканчивается последний макрос (если поле пустое, то просто вставить скопированный код нашего макроса) и вставить скопированный код. После этого можно закрыть окно Microsoft Visual Basic.
5. Далее перейти в «Вид → Макросы → Макросы» и найти только что добавленный (имя: РозбитиДокументНаСторінки), выделить его и нажать на кнопку «Выполнить».
6. После выполнения команд ваш документ будет разделен постранично (каждая страница на отдельном документе). Все документы будут добавлены в папку основного документа и будут иметь его название + номер страницы (смотрите снимок экрана ниже).
Макрос можно переименовать. Название макроса находится в начале и выделено полужирным: Sub РозбитиДокументНаСторінки(). Найдите его в коде, который показан выше и переименуйте если нужно. Имя не должно содержать пробелов.
Как разбить файл на отдельные файлы по одной странице
Здравствуйте. Есть срочная необходимость разбить файл Word (состоящий из N-листов, например 10) на отдельные файлы, состоящие из 1 листа каждый. Подскажите пожалуйста, как решить такую "задачку"? Спасибо.
2 Ответ от Alex_Gur 19.05.2015 09:58:14
Re: Как разбить файл на отдельные файлы по одной странице
Посмотрите, пожалуйста, здесь:
http://wordexpert.ru/forum/viewtopic.php?id=2633
Мы как раз сейчас обсуждаем особенности программной работы со страницами.
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.
3 Ответ от POLYARikSPb 19.05.2015 14:00:13
Re: Как разбить файл на отдельные файлы по одной странице
Спасибо, посмотрел Вашу ссылку, но не нашел ответа на свой вопрос. Может кто еще, что подскажет в решении данной задачки.
4 Ответ от Alex_Gur 19.05.2015 14:10:49
Re: Как разбить файл на отдельные файлы по одной странице
Алгоритм макроса может быть такой: Вы выделяете первую страницу, копируете ее, открываете новый документ, вставляете страницу в новый документ, сохраняете его под соответствующим именем и так далее со всеми страницами.
Напишете сами такой макрос?
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.
5 Ответ от POLYARikSPb 19.05.2015 15:00:12
Re: Как разбить файл на отдельные файлы по одной странице
К сожалению не напишу сам. "Не дружу" я с макросами. Если поможете написать, буду очень благодарен Вам. Быть может еще кому из форумчан пригодится данный "кейс"
6 Ответ от Alex_Gur 19.05.2015 15:03:27
Re: Как разбить файл на отдельные файлы по одной странице
POLYARikSPb пишет:
К сожалению не напишу сам. "Не дружу" я с макросами. Если поможете написать, буду очень благодарен Вам. Быть может еще кому из форумчан пригодится данный "кейс"
Попробую, если меня не обгонят другие эксперты.
Сейчас много работы.
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.
7 Ответ от POLYARikSPb 19.05.2015 15:23:50
Re: Как разбить файл на отдельные файлы по одной странице
ОК, буду с нетерпением ждать
8 Ответ от Alex_Gur 19.05.2015 15:41:36
Re: Как разбить файл на отдельные файлы по одной странице
Выложите, пожалуйста, пример файла, к которому нужно применить такой макрос.
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.
9 Ответ от POLYARikSPb 19.05.2015 16:06:58
Re: Как разбить файл на отдельные файлы по одной странице
Post's attachments
Бланк уставок ШЭ2607 081_205 Л-111.doc 1005 Кб, 8 скачиваний с 2015-05-19
You don't have the permssions to download the attachments of this post.
10 Ответ от Alex_Gur 19.05.2015 16:47:57
Re: Как разбить файл на отдельные файлы по одной странице
Получилось что-то такое:
Sub FormSomeFilesPages2() Dim i As Integer Dim j As Integer ' Номер страницы Dim strNameDoc As String ' Имя очередного сохраняемого документа j = 1 ' Обход всех страниц главного документа For i = 1 To ActiveDocument.ActiveWindow.Panes(1).Pages.Count ' Переход на первую страницу Selection.HomeKey Unit:=wdStory ' Выделение текущей страницы ActiveDocument.Bookmarks("\page").Range.Select ' Вырезание выделенного фрагмента и помещение его в буфер обмена Selection.Cut ' Открыть новый документ Documents.Add DocumentType:=wdNewBlankDocument ' Вставить данные из буфера обмена в новый документ Selection.Paste ' Сохранить и закрыть новый документ strNameDoc = "doc" + str(j) + ".docx" ActiveDocument.SaveAs2 filename:=strNameDoc ActiveDocument.Close SaveChanges:=True j = j + 1 Next i End SubВ процессе работы макроса оригинальный файл изменяется. Поэтому сохранять его после окончания макроса не надо.
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.
11 Ответ от Alex_Gur 19.05.2015 16:54:23
Re: Как разбить файл на отдельные файлы по одной странице
При разделении Вашего файла у меня получилось на одну страницу меньше (см. приложение).
Чтобы получилось точнее Вам нужно сделать следующее:
1) Убрать повторение заголовков таблиц. Повторение заголовков как часть следующей страницы все равно не распознается (фактически его на этой странице нет).
2) Для всех таблиц нужно установить режим Не разрешать перенос строк на следующую страницу (Свойства таблицы - вкладка Строка - снять флажок Разрешить перенос строк на следующую страницу).
Post's attachments
doc.zip 508.46 Кб, 7 скачиваний с 2015-05-19
You don't have the permssions to download the attachments of this post.
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.
12 Ответ от POLYARikSPb 19.05.2015 22:09:46
Re: Как разбить файл на отдельные файлы по одной странице
Спасибо, вроде работает
13 Ответ от Boris_R 20.05.2015 00:26:06
Re: Как разбить файл на отдельные файлы по одной странице
Если после разбиения на одностраничные файлы отсутствует необходимость дальнейшего редактирования полученных одностраничных файлов, то самый надежный способ - это сохранить файл в формате PDF с последующим разбиением полученного PDF файла на отдельные страницы.
Во вложении результат такого разбиения, сделанного с помощью Foxit Phantom. Можно использовать и другие программы для редактирования PDF файлов.
Post's attachments
PDF_split.7z 415.23 Кб, 3 скачиваний с 2015-05-20
You don't have the permssions to download the attachments of this post.
14 Ответ от POLYARikSPb 20.05.2015 08:38:04
Re: Как разбить файл на отдельные файлы по одной странице
Спасибо за овет. Этот способ я и сам знаю. Задача состоит именно в разбивке на листы ворд. В дальнейшем, которые нужно вставлять в автокад по-странично, так как при вставке файла ворд (состоящего из N-листов) вставляется только первый лист ворда. Вставлять в автокад в пдф формате мне не нужно.
Boris_R пишет:
Если после разбиения на одностраничные файлы отсутствует необходимость дальнейшего редактирования полученных одностраничных файлов, то самый надежный способ - это сохранить файл в формате PDF с последующим разбиением полученного PDF файла на отдельные страницы.
Во вложении результат такого разбиения, сделанного с помощью Foxit Phantom. Можно использовать и другие программы для редактирования PDF файлов.
15 Ответ от azur 07.09.2018 07:26:31
Re: Как разбить файл на отдельные файлы по одной странице
Приветствую!
Помогите, пожалуйста, решить пару проблем.
1) При работе найденного на просторах инета макроса после разбиения word-документа на отдельные документы в них добавляется вторая пустая страница?
Что в макросе подкрутить, чтобы пустая страница не добавлялась?
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 'Makes the code run faster and reduces screen _ flicker a bit. Set docMultiple = ActiveDocument 'Work on the active document _ (the one currently containing the Selection) Set rngPage = docMultiple.Range 'instantiate the range object iCurrentPage = 1 'get the document's page count iPageCount = docMultiple.Content.ComputeStatistics(wdStatisticPages) Do Until iCurrentPage > iPageCount If iCurrentPage = iPageCount Then rngPage.End = ActiveDocument.Range.End 'last page (there won't be a next page) Else 'Find the beginning of the next page 'Must use the Selection object. The Range.Goto method will not work on a page Selection.GoTo wdGoToPage, wdGoToAbsolute, iCurrentPage + 1 'Set the end of the range to the point between the pages rngPage.End = Selection.Start End If rngPage.Copy 'copy the page into the Windows clipboard Set docSingle = Documents.Add 'create a new document docSingle.Range.Paste 'paste the clipboard contents to the new document 'remove any manual page break to prevent a second blank docSingle.Range.Find.Execute Findtext:="^m", ReplaceWith:="" 'build a new sequentially-numbered file name based on the original multi-paged file name and path strNewFileName = Replace(docMultiple.FullName, ".doc", "_" & Right$("000" & iCurrentPage, 4) & ".doc") docSingle.SaveAs strNewFileName 'save the new single-paged document iCurrentPage = iCurrentPage + 1 'move to the next page docSingle.Close 'close the new document rngPage.Collapse wdCollapseEnd 'go to the next page Loop 'go to the top of the do loop Application.ScreenUpdating = True 'restore the screen updating 'Destroy the objects. Set docMultiple = Nothing Set docSingle = Nothing Set rngPage = Nothing End Sub---------------
2. Ещё вопрос.
Планируется сделать паспорта ПК. Очень много.
Инфа из экселя сливается в word-форму через поля слияния (получается длинная простыня на много страниц), а вышеприведённым макросом разрезается на файлы и сохраняется. НО появились неудобство.
Документов после разбиения будет за 350 штук. Вышеприведённый макрос сохраняет нарезанные документы по шаблону "Название_исходного_файла+Номер". Придётся каждый файл открывать, копировать и/н ПК, закрывать, переименовывать файл . Есть большое желание, чтобы макрос перед сохранением "заглядывал в определённое место в сохраняемом документе, брал с оттуда текст и присваивал этот текст как имя сохраняемого документа (инвентарный номер ПК).
Подскажите, как это сделать?
16 Ответ от Fck_This 07.09.2018 11:41:29
- Fck_This
- генерал-полковник
- Неактивен
- Откуда: Минск, Беларусь
- Зарегистрирован: 13.07.2016
- Сообщений: 648
- Поблагодарили: 97
- За сообщение: 1
Re: Как разбить файл на отдельные файлы по одной странице
azur пишет:
Приветствую!
Помогите, пожалуйста, решить пару проблем.
1) При работе найденного на просторах инета макроса после разбиения word-документа на отдельные документы в них добавляется вторая пустая страница?
Что в макросе подкрутить, чтобы пустая страница не добавлялась?
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 'Makes the code run faster and reduces screen _ flicker a bit. Set docMultiple = ActiveDocument 'Work on the active document _ (the one currently containing the Selection) Set rngPage = docMultiple.Range 'instantiate the range object iCurrentPage = 1 'get the document's page count iPageCount = docMultiple.Content.ComputeStatistics(wdStatisticPages) Do Until iCurrentPage > iPageCount If iCurrentPage = iPageCount Then rngPage.End = ActiveDocument.Range.End 'last page (there won't be a next page) Else 'Find the beginning of the next page 'Must use the Selection object. The Range.Goto method will not work on a page Selection.GoTo wdGoToPage, wdGoToAbsolute, iCurrentPage + 1 'Set the end of the range to the point between the pages rngPage.End = Selection.Start End If rngPage.Copy 'copy the page into the Windows clipboard Set docSingle = Documents.Add 'create a new document docSingle.Range.Paste 'paste the clipboard contents to the new document 'remove any manual page break to prevent a second blank docSingle.Range.Find.Execute Findtext:="^m", ReplaceWith:="" 'build a new sequentially-numbered file name based on the original multi-paged file name and path strNewFileName = Replace(docMultiple.FullName, ".doc", "_" & Right$("000" & iCurrentPage, 4) & ".doc") docSingle.SaveAs strNewFileName 'save the new single-paged document iCurrentPage = iCurrentPage + 1 'move to the next page docSingle.Close 'close the new document rngPage.Collapse wdCollapseEnd 'go to the next page Loop 'go to the top of the do loop Application.ScreenUpdating = True 'restore the screen updating 'Destroy the objects. Set docMultiple = Nothing Set docSingle = Nothing Set rngPage = Nothing End Sub---------------
2. Ещё вопрос.
Планируется сделать паспорта ПК. Очень много.
Инфа из экселя сливается в word-форму через поля слияния (получается длинная простыня на много страниц), а вышеприведённым макросом разрезается на файлы и сохраняется. НО появились неудобство.
Документов после разбиения будет за 350 штук. Вышеприведённый макрос сохраняет нарезанные документы по шаблону "Название_исходного_файла+Номер". Придётся каждый файл открывать, копировать и/н ПК, закрывать, переименовывать файл . Есть большое желание, чтобы макрос перед сохранением "заглядывал в определённое место в сохраняемом документе, брал с оттуда текст и присваивал этот текст как имя сохраняемого документа (инвентарный номер ПК).
Подскажите, как это сделать?
Спасибо!
Ну так, документ в студию. Вторая пустая скорее всего добавляется из-за знака абзаца в конце. Просто добавьте в макрос строку удаления последнего знака абзаца. Что-то вроде
If ActiveDocument.Characters.Last = Chr(13) Then ActiveDocument.Characters.Last.Delete
А по поводу "заглядывать в конкретное место - надо знать место. Это может быть ячейка таблицы или по маркеру искать (вроде Selection.find по знаку "№").
Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871
17 Ответ от azur 10.09.2018 02:26:22
Re: Как разбить файл на отдельные файлы по одной странице
Fck_This пишет:
Что-то вроде
If ActiveDocument.Characters.Last = Chr(13) Then ActiveDocument.Characters.Last.Delete
- в какую строку добавить этот код?
--------
Fck_This пишет:
А по поводу "заглядывать в конкретное место - надо знать место. Это может быть ячейка таблицы или по маркеру искать (вроде Selection.find по знаку "№").
- приложил файл с первыми тремя листами результата слияния. Красным выделено место инвентарного номера.
Мысль пришла.
Изменить или добавить в другое место инвентарный номер нельзя (утверждённый бланка). "Это может быть ячейка таблицы" - если вдруг изменится таблица/бланк, то тогда макрос перестанет работать.
Быть может, добавить дополнительно мелким шрифтом и белого цвета поле слияния с и/н в верхний колонтитул (он свободен).
Так при изменении тела документа не затронется место, на которое будет "смотреть" макрос.
Post's attachments
000_. - копия.docx 123.88 Кб, 2 скачиваний с 2018-09-10
You don't have the permssions to download the attachments of this post.