2 интелигентни начина за свиване или разширяване на части от вашия Word документ

Споделете сега:

В тази статия ще ви предложим 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: Свиване или разгъване на отделна част от документ

  1. Първо изберете текста, който искате да свиете.
  2. След това кликнете върху раздела „Вмъкване“.
  3. След това щракнете върху „Отметка“ в групата „Връзки“, за да отворите диалоговия прозорец „Отметка“.
  4. Въведете име на отметка в текстовото поле и щракнете върху „Добавяне“, за да създадете отметка за избраното съдържание.Щракнете върху „Вмъкване“->Щракнете върху „Отметка“->Въведете име на отметка->Щракнете върху „Добавяне“
  5. Сега натиснете „Alt+ F11“, за да отворите VBA редактора.
  6. След това щракнете върху „Нормално“ и след това върху раздела „Вмъкване“.
  7. Изберете „Модул“.Щракнете върху "Нормално" -> Щракнете върху "Вмъкване" -> Щракнете върху "Модул"
  8. Щракнете два пъти върху модула, за да отворите зоната за кодиране от дясната страна и поставете следните кодове:

 

Sub CollapseOrExpandTheSelectedText1()
  ActiveDocument.Bookmarks("Introduction").Range.Font.Hidden = _
    Not ActiveDocument.Bookmarks("Introduction").Range.Font.Hidden
End Sub

бележки:

  • Можете да промените името на макроса на каквото искате да го наричате.
  • „Въведение“ се отнася до името на отметката. Уверете се, че е същото като името, което сте въвели в стъпка 4.
  1. Щракнете върху „Запазване“, за да запазите макроса.Поставяне на кодове-> Щракнете върху "Изпълни"
  2. След това поставете показалеца за вмъкване близо до отметката, но никога вътре в нея. Например, поставяме го на реда над избрания текст.
  3. След това натиснете „Ctrl+ F9“, за да вмъкнете поле.
  4. В полето въведете кодовете по-долу:
     MACROBUTTON CollapseOrExpandTheSelectedText1 Introduction

      бележки:

  • "СвиванеИлиРазгъванеИзбраниятТекст1” е името на макроса в стъпка 8.
  • "Въведение” е етикетът, който искате да покажете на бутона.Вмъкване на поле->Въвеждане на кодове
  1. Сега натиснете „Alt+ F9“ и ще видите бутона.
  2. Щракнете два пъти върху бутона, за да разширите или свиете текста.Бутонът за свиване или разгъване

Метод 2: Свиване или разгъване на много части от документ

Ако приложите метод 1, за да създадете няколко бутона за свиване или разширяване на съдържанието, можете да използвате следния метод, за да покажете или скриете текстовете на групи.Бутони за свиване или разгъване на множество части от документа

  1. Повторете от стъпки 5 до 8 в метод 1.
  2. След това, за да свиете всички текстове, поставете този макрос там:
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
  1. След това кликнете върху „Run“ или натиснете „F5“.

Освен това можете да предприемете стъпки от 10 до 14 в метод 1, за да създадете бутони в документа за разширяване или свиване на всички текстове наведнъж.Създайте бутони за свиване или разгъване на всички текстове

Справете се с последствията от провал на думата

Word се проваля от време на време. И има последствия. Някои от тях са добри, докато други могат да ви накарат да възстановите данните обратно. Ако вашият случай е последният, по-добре изберете a възстановяване на док инструмент, който да ви помогне с бизнеса.

Въведение на автора:

Вера Чен е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително xlsx щети и pdf ремонт на софтуерни продукти. За повече информация посетете WWW.datanumen.com

Споделете сега:

Коментарите са забранени.