3 бързи начина за избор на текущата страница във вашия Word документ

В тази публикация с вълнение ви представяме 3 бързи начина за избиране на текущата страница във вашия Word документ.

От време на време вероятно ще се наложи да изберете текущата страница, за да копирате или извлечете съдържанието ѝ. Обикновено поставяме курсора в началото на страницата и щракваме с левия бутон, за да изберем цялата страница. Но трябва да признаете, че този метод не работи добре през цялото време, тъй като могат да възникнат грешки. Макар че не е ракетна наука да се свърши работата, можете да спестите време, като използвате по-бързи методи.

Ето нашите 3 решения.

Метод 1: Клавишни комбинации за документ от една страница

Когато в документа има само една страница, това, което трябва да направите, е да поставите показалеца за вмъкване навсякъде в документа и да натиснете „Ctrl + A“.

Метод 2: Клавишни комбинации за многостраничен документ

Сега като говорим за документ на много страници, можете да предприемете стъпките по-долу:

1. Първо, позиционирайте показалеца за вмъкване в началото на целевата страница.
2. След това натиснете „Shift“.
3. След това превъртете надолу до дъното на тази страница и щракнете в края на страницата.

Метод 3: Стартирайте Word Macro

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

Sub SelectCurrentPage()
  Dim lCurrentPageStart As Long
  Dim lCurrentPageEnd As Long
  Dim objPageRange As Range
  Dim nCurrentPageNumber As Integer
  Dim nAllPageNumber As Integer
 
  nCurrentPageNumber = Selection.Information(wdActiveEndPageNumber)
  nAllPageNumber = Selection.Information(wdNumberOfPagesInDocument)
  '  Get the start position of current page.
  lCurrentPageStart = Selection.GoTo(What:=wdGoToPage, Which:=wdGoToNext, Name:=nCurrentPageNumber).Start
 
  '  Get the end position of current page.
  If nCurrentPageNumber = nAllPageNumber Then
    lCurrentPageEnd = ActiveDocument.Content.End
  Else
    lCurrentPageEnd = Selection.GoTo(What:=wdGoToPage, Which:=wdGoToNext, Name:=nCurrentPageNumber + 1).Start
  End If
 
  '  Select current page.
  Set objPageRange = ActiveDocument.Range(Start:=lCurrentPageStart, End:=lCurrentPageEnd)
 
  objPageRange.Select
End Sub

8. Накрая кликнете върху „Run“ или натиснете „F5“. Всички текстове на тази страница вече са в избор.

Възстановяване на документи на Word

Би било толкова мъчно да откриете, че вашите документи на Word са повредени, което ви прави недостъпни за вашата информация. Със сигурност никой не иска да има корумпиран док. И все пак, когато се случи неочаквано, единствената опция, която остава, е да извлечете данните обратно с помощта на вграден инструмент или инструмент на трета страна.

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

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