3 Швидкі способи вибору поточної сторінки у вашому документі Word

У цій публікації ми раді представити вам 3 швидких способи вибору поточної сторінки у вашому документі Word.

Час від часу вам, ймовірно, доведеться вибирати поточну сторінку, щоб скопіювати або витягти її вміст. Зазвичай ми розміщуємо курсор на початку сторінки та утримуємо ліву кнопку миші, щоб виділити всю сторінку. Але ви повинні визнати, що цей метод працює не завжди, оскільки можуть виникати помилки. Хоча це не надто складно, ви можете заощадити свій час, використовуючи швидші методи.

Ось наші 3 рішення.

Спосіб 1: Комбінації клавіш для односторінкового документа

Якщо в документі лише одна сторінка, вам потрібно розташувати вказівник вставки будь-де всередині документа та натиснути «Ctrl+A».

Спосіб 2: Комбінації клавіш для багатосторінкового документа

Говорячи про багатосторінковий документ, ви можете виконати наведені нижче дії.

1. Спочатку розташуйте покажчик вставки на початку цільової сторінки.
2. Далі натисніть «Shift».
3. Потім прокрутіть униз цієї сторінки та натисніть у кінці сторінки.

Спосіб 3: Запустіть макрос Word

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. Нарешті натисніть «Виконати» або натисніть «F5». Усі тексти на цій сторінці зараз у виділенні.

Відновлення документів Word

Було б так боляче знайти ваші документи Word пошкодженими, залишивши вас недоступними для вашої інформації. Звичайно, ніхто не хоче мати a корумпований док. Однак, коли він трапиться несподівано, єдиний варіант, який залишиться, — отримати дані назад за допомогою вбудованого або стороннього інструменту.

Вступ автора:

Віра Чень є експертом з відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі пошкоджено Excel та pdf ремонт програмних продуктів. Для отримання додаткової інформації відвідайте WWW.datanumen.com