В тази статия ще ви предложим 2 интелигентни начина за свиване или разширяване на части от вашия Word документ.
От време на време чудили ли сте се колко прекрасно би било, ако можете да свиете определен набор от документи, за да видите две непоследователни части? Добрата новина е, че има тази вградена функция в Word 2013 и по-късните версии.
Ако имате Word 2013 или по-нова версия, можете да се обърнете към тази връзка, за да научите повече за функцията: https://support.microsoft.com/en-us/office/collapse-or-expand-parts-of-a-document-701786e0-95e2-40bf-bfe5-f0233cd3520c
Въпреки това, ако използвате Word 2010 или по-ранни версии, няма такъв късмет. Поради тази причина открихме 2 решения, които можете да приемете във версии преди Word 2013.
Метод 1: Свиване или разгъване на отделна част от документ
- Първо изберете текста, който искате да свиете.
- След това кликнете върху раздела „Вмъкване“.
- След това щракнете върху „Отметка“ в групата „Връзки“, за да отворите диалоговия прозорец „Отметка“.
- Въведете име на отметка в текстовото поле и щракнете върху „Добавяне“, за да създадете отметка за избраното съдържание.

- Сега натиснете „Alt+ F11“, за да отворите VBA редактора.
- След това щракнете върху „Нормално“ и след това върху раздела „Вмъкване“.
- Изберете „Модул“.
- Щракнете два пъти върху модула, за да отворите зоната за кодиране от дясната страна и поставете следните кодове:
Sub CollapseOrExpandTheSelectedText1()
ActiveDocument.Bookmarks("Introduction").Range.Font.Hidden = _
Not ActiveDocument.Bookmarks("Introduction").Range.Font.Hidden
End Sub
бележки:
- Можете да промените името на макроса на каквото искате да го наричате.
- „Въведение“ се отнася до името на отметката. Уверете се, че е същото като името, което сте въвели в стъпка 4.
- Щракнете върху „Запазване“, за да запазите макроса.
- След това поставете показалеца за вмъкване близо до отметката, но никога вътре в нея. Например, поставяме го на реда над избрания текст.
- След това натиснете „Ctrl+ F9“, за да вмъкнете поле.
- В полето въведете кодовете по-долу:
MACROBUTTON CollapseOrExpandTheSelectedText1 Introduction
бележки:
- "СвиванеИлиРазгъванеИзбраниятТекст1” е името на макроса в стъпка 8.
- "Въведение” е етикетът, който искате да покажете на бутона.
- Сега натиснете „Alt+ F9“ и ще видите бутона.
- Щракнете два пъти върху бутона, за да разширите или свиете текста.
Метод 2: Свиване или разгъване на много части от документ
Ако приложите метод 1, за да създадете няколко бутона за свиване или разширяване на съдържанието, можете да използвате следния метод, за да покажете или скриете текстовете на групи.
- Повторете от стъпки 5 до 8 в метод 1.
- След това, за да свиете всички текстове, поставете този макрос там:
Sub CollapseAllSelectedTexts()
Dim objBookmark As Bookmark
For Each objBookmark In ActiveDocument.Bookmarks
objBookmark.Range.Font.Hidden = True
Next
End Sub
За да разширите всички текстове, ще ви трябва този:
Sub ExpandAllSelectedTexts()
Dim objBookmark As Bookmark
For Each objBookmark In ActiveDocument.Bookmarks
objBookmark.Range.Font.Hidden = False
Next
End Sub
- След това кликнете върху „Run“ или натиснете „F5“.
Освен това можете да предприемете стъпки от 10 до 14 в метод 1, за да създадете бутони в документа за разширяване или свиване на всички текстове наведнъж.
Справете се с последствията от провал на думата
Word се проваля от време на време. И има последствия. Някои от тях са добри, докато други могат да ви накарат да възстановите данните обратно. Ако вашият случай е последният, по-добре изберете a възстановяване на док инструмент, който да ви помогне с бизнеса.
Въведение на автора:
Вера Чен е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително xlsx щети и pdf ремонт на софтуерни продукти. За повече информация посетете WWW.datanumen.com





