Word 2010, бесспорно, лучший текстовый редактор. Помимо базовых инструментов редактирования и стилей построения диаграмм, он также позволяет настраивать документ по вашему желанию. Word 2010 предлагает возможность добавлять различные функции, скрытые по умолчанию. Например, с помощью нескольких строк кода можно объединить документы Word без использования сторонних приложений. В этой статье мы добавим несколько строк кода, чтобы объединить всё содержимое документов, находящихся в одной папке, и отобразить его в новой папке.
Для начала вам нужно поместить их в одну папку и убедиться, что все они принадлежат одной версии Word: Doc или Docx. Как видно на скриншоте ниже, мы открыли два документа, которые будут объединены.
Теперь откройте любой документ Word и сохраните его как документ с поддержкой макросов. Для этого перейдите в меню «Файл» и нажмите « Сохранить как».
Появится диалоговое окно, в котором в поле «Тип файла» выберите «Шаблон Word с поддержкой макросов» и нажмите «Сохранить».
Мы будем использовать редактор VB, поэтому сначала нужно сделать вкладку «Разработчик» видимой в окне Word. Если вкладка «Разработчик» не отображается , перейдите в меню «Файл» , выберите «Параметры» и в левой панели выберите «Настроить ленту» . В правой панели установите флажок «Разработчик» . Нажмите «ОК», чтобы вкладка «Разработчик» появилась на ленте.
Теперь перейдите на вкладку Разработчик и нажмите Visual Basic.
Откроется диалоговое окно редактора VB. В левой боковой панели дважды щёлкните по ThisDocument, чтобы открыть окно редактирования VB. Справа вы увидите окно кода. Теперь вставьте в него следующие строки кода.
Примечание: Не забудьте изменить путь к папке, где находятся документы, и версию документов Word в этих строках кода. Для упрощения работы мы также добавили эту меру предосторожности перед кодами.
Подраздел MergeDocs()
Dim rng As Range
Dim MainDoc As Document
Dim strFile As String
Const strFolder = “C:\Users\Usman Javaid\Desktop\Word documents\” ||| (Измените путь к папке, где находятся ваши документы)
Установить MainDoc = Documents.Add
strFile = Dir$(strFolder & “*.docx”) ||| (Измените расширение файла на .doc, если вы работаете с версией Word 97-03)
Выполнять до тех пор, пока strFile = “”
Установить rng = MainDoc.Range
rng.Collapse wdCollapseEnd
rng.InsertFile strFolder & strFile
strFile = Dir$()
Петля
Конечный перевод
Теперь нажмите Ctrl+S , чтобы сохранить добавленный макрос, и закройте редактор VB. Перейдите на вкладку «Разработчик» и нажмите «Макросы».
В диалоговом окне «Макросы» выберите макрос MergeDocs и нажмите «Выполнить» .
Если вы правильно указали путь и версию, то все документы будут объединены и открыты в новом документе.
Вы также можете ознакомиться с нашими ранее рассмотренными руководствами по возврату к последней отредактированной строке в Word 2010 и использованию функции слияния в Word 2010 .
[через Гэблера ]
Шифрование – это криптографическое явление, которое позволяет вам зашифровать содержимое с помощью специального ключа, в конечном итоге предотвращая любой внешний доступ к нему.
Часто требуется изменить ориентацию текста в ячейке, чтобы он соответствовал заданным ширине и высоте ячейки. Параметр «Формат ячеек» предлагает...
Excel 2010 не выявляет орфографические ошибки в режиме реального времени. Лучше проверить орфографические ошибки в таблице Excel, прежде чем отмечать её как выполненную.
В Excel 2010 есть опция, которая позволяет пользователю отображать значки в ячейках данных, применяя заданное условие. Excel включает 20 наборов значков в четырёх вариантах.
Excel 2010 предоставляет очень удобный способ доступа к таблицам данных из веб-браузеров. С помощью невероятно простого процесса вы можете импортировать данные из веб-браузеров для анализа или извлечения наилучших результатов.
Когда дело доходит до работы с таблицами, выполнения операций со строками и столбцами, Excel всегда выделяется. Если вы когда-нибудь задумывались, как преобразовать любой текст,
Проверка веб-совместимости — это полезная функция Microsoft Office Access 2010, которая позволяет проверить базу данных на наличие проблем с веб-совместимостью. Этот инструмент
Часто возникает необходимость сжать презентации PowerPoint при отправке по электронной почте. Если ваша презентация полна изображений, попробуйте сжать их.
Если вы имеете дело с огромной электронной таблицей, содержащей множество функций и формул, то вам будет крайне необходимо знать прецеденты и
Узнать ранг значения данных из списка очень просто с помощью встроенной функции РАНГ в Excel 2010. Эта функция принимает три простых аргумента.
