как найти текст не в кривых???

  • Автор темы Автор темы keson
  • Дата начала Дата начала
Статус
Закрыто для дальнейших ответов.

keson

Участник
Топикстартер
Сообщения
25
Реакции
0
Привет всем!
Переводила текст в кривые, и вроде всё перевела, но смотрю информацию о документе и вижу, что текст где-то остался. Уменя в документе 10 листов, как мне найти текст который не перевелся в кривые??? Пробую через "поиск и замена" - "найти объекты", но не пойму принципа поиска, должно выделиться же как-то, я так понимаю...но ничего не выделяется, может есть другой способ?
 
Ответ: как найти текст не в кривых???

window-dockers-object manager. В открывшемся справа окне ищите текстовые документы и конвертируйте в крывые.
 
Ответ: как найти текст не в кривых???

Удаляете половину страниц, смотрите, в какой текст. Снова половините и смотрите. Повторять до обнаружения искомой страницы.
Далее или через докер, как выше сказано, или разгруппировать все и найти через Едит>Селект олл>Текст.
 
Ответ: как найти текст не в кривых???

Если Вам требуется перевести весь текст в кривые, то воспользуйтесь макросом, например таким или подобным.
Если действительно нужно найти текст, то добавьте в макрос выход по первому найденному и переход к объекту. Получится примерно так:
Код:
Sub FindText() 'Найти текст в документе
  On Error Resume Next
  Dim p As Page
  For Each p In ActiveDocument.pages
    p.Activate
    If Pfind(p.Shapes.FindShapes) Then Exit Sub
  Next p
End Sub
Private Function Pfind(sr As ShapeRange) As Boolean
  Dim s As Shape, pf As Boolean
  Pfind = False
  For Each s In sr
    If s.Type = cdrGroupShape Then
      pf = Pfind(s.Shapes.All)
      If pf Then Pfind = pf: Exit Function
    End If
    If Not s.PowerClip Is Nothing Then
      pf = Pfind(s.PowerClip.Shapes.All)
      If pf Then Pfind = pf: Exit Function
    End If
    If s.Type = cdrTextShape Then
      's.AddToSelection 'раскомментируй если хочешь ещё и выделить объект
      ActiveWindow.ActiveView.ToFitShape s
      Pfind = True
      Exit For
    End If
  Next s
End Function
 
Ответ: как найти текст не в кривых???

Все разгруппировать, затем Edit - Select All - Text на каждой странице.
 
Ответ: как найти текст не в кривых???

и PowerClip'ы разгруппировать?
 
Ответ: как найти текст не в кривых???

lev сказал(а):
и PowerClip'ы разгруппировать?

А вот за это уже не скажу, за много лет работы никогда с ними не сталкивался.
Но текст сгруппированный с объектами, разгрупировать надо.
 
Ответ: как найти текст не в кривых???

HeyMan сказал(а):
...за много лет работы никогда с ними не сталкивался.

Не по теме:
Жесть. Неужели ни одного макетика?
 
Ответ: как найти текст не в кривых???

спасибо большое ребята, у меня получилось через менеджер объектов
 
Ответ: как найти текст не в кривых???

qsedftghk сказал(а):

Не по теме:
Жесть. Неужели ни одного макетика?


Не по теме:
Ну так уж получилось, что ни одного, да. Сложные макеты я делал в Иллюстраторе, а верстать предпочитал в Кварке, сейчас - в Инди.
 
Статус
Закрыто для дальнейших ответов.