Безспорно Word 2010 е най-добрият редактор на думиосвен, че предоставя основни инструменти за редактиране и стилове на диаграми, той предлага и опция за персонализиране на документа по какъвто и да е начин. Прикрит по подразбиране, Word 2010 предоставя опция за добавяне на различни функции, като например, чрез вмъкване на няколко реда код, които можете да обедините Word документи, без да се налага да използвате специално специализирано приложение на трети страни. В тази публикация ще вмъкваме няколко реда код, за да обединим цялото съдържание на документи, намиращи се в една и съща папка, и да ги покажем в нова.
За начало първо трябва да ги поставите в едно и същопапка, уверете се, че всички те принадлежат към една и съща версия на Word или Doc или Docx. Както можете да видите на екрана по-долу, ние отворихме два документа, които ще бъдат обединени заедно.
Сега отворете всеки документ на Word и го запишете като документ с активиран макрос, за това отворете менюто Файл и щракнете Запази като.
Ще се появи диалогов прозорец от Запазване като тип, кликване Word Macro-Enabled шаблон и щракнете върху Запазване.
Ще използваме VB редактор, така че първо трябва да направим Разработчик в прозореца на Word. В случай, че не намерите Разработчик раздела, отидете на досие меню, щракнете Опции и в левия панел щракнете Персонализирайте лентата, от десния панел активирайте Разработчик чек-бокс. Кликнете ОК да видиш Разработчик раздела на лентата.
Сега отидете до Разработчик и щракнете върху Visual Basic.
Ще стигнете до диалоговия прозорец на VB Editor, от лявата странична лента два пъти щракнете Този документ към отворете прозореца за редактиране на VB Ще видите прозореца с кода от дясната страна. Сега поставете тези редове от код в него.
Забележка: Не забравяйте да промените пътя на папкатакъдето документите са пребиваващи и версия на Word документи в тези редове с код. За по-лесно ние добавихме тази предпазна мярка и пред кодовете.
Под MergeDocs ()
Dim rng като обхват
Dim MainDoc като документ
Dim strFile като низ
Const strFolder = „C: UsersUsman JavaidDesktopWord документи“ ||| (Променете пътя, където вашите документи пребивават)
Задайте MainDoc = Documents.Add
strFile = Dir $ (strFolder & „* .docx“) ||| (Променете разширението на файла в .doc в случай, че имате работа с версия на Word 97-03)
Правете, докато strFile = “”
Задайте rng = MainDoc.Range
rng.Collapse wdCollapseEnd
rng.InsertFile strFolder & strFile
strFile = Dir $ ()
контур
Край Sub
Сега натиснете Ctrl + S за да запазите ново добавения макрос и затворете редактора на VB. Навигирайте до Разработчик и щракнете върху Макроси.
От Макрос диалогов прозорец, изберете MergeDocs макро и щракнете тичам.
Ако сте посочили правилно пътя и версията, всички документи ще се слеят и ще се отворят в нов документ.
Можете също да разгледате нашите прегледани по-рано ръководства за връщане към последния ред, редактиран в Word 2010 и използване на Mail Merge в Word 2010.
Коментари