Объекты Worda

[Busine2009]

Например, в ворде нет такой команды "Выделить страницу".

Можно ли создать такую команду, не знаю, как правильно называется.
Не макрос, а именно какой-нибудь объект.
Или создать этот объект где-нибудь в другом месте, а затем подсоединить к шаблону.

[viter.alex]

Непонятно, какой объект вы имеете ввиду. И почему не макрос? Запишите макрос в шаблон, повесьте его на кнопку или сочетание клавиш и пользуйтесь.
Вам нужно выделить страницу? Это можно сделать, только без колонтитулов и примечаний. Спросите меня как.

[Busine2009]

Я имею ввиду вообще:

например, есть объект Table, могу ли я создать тоже объект? Или если их нет в программе, то ничего нельзя сделать?

Напишите, пожалуйста, макрос, выделения только страницы. А еще лучше макрос по уменьшению пустых знаков абзаца на 1 пункт на текущей странице, ну или хотя бы по выделению пустых знаков абзаца на одной странице.

[viter.alex]

Объект создать можно. Если вы знаете, что этот объект должен делать, какими свойствами обладать и т.д. Делается это с помощью классов. Вам этим еще рано заниматься.
Сходу не могу сообразить как получить текущую страницу. Вот для всего документа:

  With ActiveDocument.Range.Find
    .Text = "^p"
    While .Execute
        .Parent.Select
      If Len(.Parent.Paragraphs(1).Range.Text) = 1 Then
        .Parent.Paragraphs(1).Range.Font.Size = .Parent.Paragraphs(1).Range.Font.Size - 1
      End If
    Wend
  End With

[Busine2009]

А как просто тогда выделить текущую страницу?

[viter.alex]

Сообщение от Busine2009

А как просто тогда выделить текущую страницу?

Если бы я смог получить текущую страницу, то я бы смог ее и выделить. Сейчас будем кумекать.
Накумекал я следующее:

Sub SearchOnCurrentPage()
  'Запоминаем в переменную oRng диапазон всего документа
  Dim oRng As Range: Set oRng = ActiveDocument.Range
  'Расширяем этот диапазон до положения курсора
  oRng.SetRange oRng.Start, Selection.Range.Start
  'Запоминаем в переменную oRng начало страницы, на которой находится курсор
  Set oRng = ActiveDocument.Range.GoTo(wdGoToPage, , oRng.ComputeStatistics(wdStatisticPages))
  'Расширяем диапазон, хранящийся в переменной oRng, до начала следующей страницы.
  'Таким образом в нашей переменной окажется вся страница, на которой в данный момент находится курсор.
  oRng.SetRange oRng.Start, oRng.GoToNext(wdGoToPage).Start
  'Запоминаем номер последнего символа на текущей странице
  Dim iEnd&: iEnd = oRng.End
  With oRng.Find
  'На нужной странице, диапазон которой хранится в переменно oRng, ищем знаки абзацев
    .Text = "^p"
    'Если знак абзаца найден
    While .Execute
      'При поиске диапазон почему-то меняется, поэтому выполняем проверку, что мы не вышли за пределы
      If .Parent.End <= iEnd Then
        'Если в найденном абзаце находится только один символ — знак абзаца
        If Len(.Parent.Paragraphs(1).Range.Text) = 1 Then
          'то уменьшаем его шрифт на 1
          .Parent.Paragraphs(1).Range.Font.Size = .Parent.Paragraphs(1).Range.Font.Size - 1
        End If
      End If
    Wend
  End With
End Sub

[Busine2009]

Я к тому вел беседу, что есть такая команда, как выделить раздел, можно ли своими силами создать команду: выделить страницу.

[viter.alex]

Можно так сделать. Повесьте этот макрос на кнопку и будет вам счастье.

Sub SelectCurrentPage()
  'Запоминаем в переменную oRng диапазон всего документа
  Dim oRng As Range: Set oRng = ActiveDocument.Range
  'Расширяем этот диапазон до положения курсора
  oRng.SetRange oRng.Start, Selection.Range.Start
  'Запоминаем в переменную oRng начало страницы, на которой находится курсор
  Set oRng = ActiveDocument.Range.GoTo(wdGoToPage, , oRng.ComputeStatistics(wdStatisticPages))
  'Расширяем диапазон, хранящийся в переменной oRng, до начала следующей страницы.
  'Таким образом в нашей переменной окажется вся страница, на которой в данный момент находится курсор.
  oRng.SetRange oRng.Start, oRng.GoToNext(wdGoToPage).Start
  'Выделяем диапазон
  oRng.Select
End Sub

Красная строчка добавлена в предыдущий макрос. Все что ниже — удалено

[Busine2009]

Например, есть такое сочетание клавиш ctrl + А - выделение всего документа - это же не макрос.
Вот как создать подобное для выделения 1 страницы.

[viter.alex]

Сообщение от Busine2009

Например, есть такое сочетание клавиш ctrl + А - выделение всего документа - это же не макрос…

Вы уверены? Это команда EditSelectAll. Если вы создадите макрос с таким именем, то переопределите ее. Например, так

Sub EditSelectAll()
  MsgBox "Вы попытались выделить весь текст в документе." & vbCr & "Но не тут-то было!", vbExclamation, "Шутка"
End Sub

Запустите этот макрос и увидите, что будет.

Сообщение от Busine2009

…Вот как создать подобное для выделения 1 страницы.

Я же дал макрос. Повесьте на него сочетание клавиш и все.
Да, макрос не работал с последней страницей. вот исправленный вариант:

Sub SelectCurrentPage()
  Dim iPgRng%, iPgsCnt%, iEnd&
  'Запоминаем в переменную oRng диапазон всего документа
  Dim oRng As Range: Set oRng = ActiveDocument.Range
  'Расширяем этот диапазон до положения курсора
  oRng.SetRange oRng.Start, Selection.Range.Start
  'Количество страниц в нашем диапазоне
  iPgRng = oRng.ComputeStatistics(wdStatisticPages)
  'Количество страниц в документе
  iPgsCnt = ActiveDocument.Range.ComputeStatistics(wdStatisticPages)
  'Запоминаем в переменную oRng начало страницы, на которой находится курсор
  Set oRng = ActiveDocument.Range.GoTo(wdGoToPage, , iPgRng)
  'Если количество страниц в диапазоне oRng равно количество страниц в документе, то _
  курсор находится на последней странице. Исходя из этого, определяем позицию в документе, _
  до которой будем расширять наш диапазон. Если курсор находится на последней странице, то _
  расширяем до конца документа, если нет, то расширяем до начала следующей страницы.
  iEnd = IIf(iPgRng = iPgsCnt, ActiveDocument.Range.End, oRng.GoToNext(wdGoToPage).Start)
  'Таким образом в переменной oRng окажется вся страница, на которой в данный момент находится курсор.
  oRng.SetRange oRng.Start, iEnd
  'Выделяем диапазон
  oRng.Select
End Sub