Копирование текста самого большого шрифта

[werovulv]

Здравствуйте. Я к Вам с очередным вопросом)) Работа теперь только с первой страницей документа ведется, основное - это необходимо выделить и скопировать текст самого большого шрифта. И можно ли как то копировать еще текст по маске ФИО?

[Казанский]

Пробуйте, это насчет шрифта.

Sub bb()
Dim r As Range, c As Range, x, mx
  Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="2"
  Set r = ActiveDocument.Range(0, Selection.Start - 1)
  For Each c In r.Characters
    x = c.Font.Size
    If x > mx Then mx = x
  Next
  With r.Find
    .ClearFormatting
    .Font.Size = mx
    .Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    If .Execute Then
      r.Select
      r.Copy
    Else: MsgBox "Не удалось найти текст", vbExclamation
    End If
  End With
End Sub

Насчет маски - ищите с использованием Подстановочных знаков.

[werovulv]

Со ширфтом отлично работает, спасибо! Буду искать))