Беззаперечно Word 2010 - найкращий редактор слівНавколо, крім надання основних інструментів для редагування та стилів графіків, він також надає можливість налаштувати документ будь-яким способом. Word 2010, прихований за замовчуванням, надає можливість додавати різні функції, як-от, наприклад, вставляючи кілька рядків коду, ви можете зливати документи Word, не використовуючи жодного спеціального додатка сторонніх розробників. У цьому дописі ми будемо вставляти кілька рядків коду, щоб об’єднати весь вміст документів, що знаходяться в одній папці, і показати їх у новій.
Для початку спочатку потрібно покласти їх у те самепереконайтеся, що всі вони належать до однієї версії Word або Doc, або Docx. Як ви можете бачити на скріншоті нижче, ми відкрили два документи, які будуть об'єднані разом.
Тепер відкрийте будь-який документ Word і збережіть його як документ з підтримкою макросу. Для цього перейдіть до меню Файл і натисніть Зберегти як.
З'явиться діалогове вікно від Зберегти як тип, клацніть Шаблон Word макрос і натисніть кнопку Зберегти.
Ми будемо використовувати редактор VB, тому спочатку нам потрібно зробити Розробник видно у вікні Word. Якщо ви не знайдете Розробник вкладку, перейти до Файл меню, натисніть Параметри та у лівій панелі клацніть Налаштувати стрічку, з правої панелі enable Розробник прапорець. Клацніть Гаразд до бачити Розробник вкладка на стрічці.
Тепер перейдіть до Розробник і натисніть на вкладку Visual Basic.
Ви перейдете до діалогового вікна редактора VB, двічі клацніть ліву бічну панель Цейдокумент до відкрийте це вікно редагування VB Ви побачите вікно коду з правого боку. Тепер покладіть у нього ці рядки коду.
Примітка: Не забудьте змінити шлях папкиде містяться документи та версія документів Word у цих рядках коду. Щоб зробити це простіше, ми також додали цю обережність перед кодами.
Sub MergeDocs ()
Dim rng Як дальність
Dim MainDoc як документ
Dim strFile As String
Const strFolder = "C: UsersUsman JavaidDesktopWord документи" ||| (Змініть шлях, де проживають ваші документи)
Встановити MainDoc = Документи.Додати
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.
Коментарі