Какая функция возвращает количество страниц в док-те корел

ravend / 28.05.2013, 14:55/15:05

Форум:

Какая процедура/функция может позволить присвоить перемененной количество страниц в документе?
а3=?
нужно для корректной (приятной )работы макроса дабы не вышибало на дебаг по окончании страниц в документе...
тело вот, тайны нет , сам прогил тока на делфе и с ++ 10 лет назад , поэтму писанно методом копипастра с через редактировать макрос и гугл поиск...

Sub Text_in_cr_all_pages()
    ' Recorded 28.05.2013

    Dim a2 As Variant
    Dim s2 As String
    Dim a3 As Variant
  a3=???
  For a2 = 1 To 100  '/a3
        s2 = CStr(a2)
        'ActiveDocument.Pages(s2).Shapes.All.CreateSelection
        ActiveDocument.Pages(s2).Shapes.All.UngroupAllEx
        ActiveSelection.ConvertToCurves
        
 Next a2
End Sub

Sancho / 28.05.2013, 15:03/15:06

ActiveDocument.Pages.Count, юзай F2.
П.С. ConvertToCurves для всего... интересно что вы этим хотите добиться?
И ещё - на форуме есть спец. кнопка для вставки кода, если что :) Сообщение исправил.

ravend / 28.05.2013, 15:40

спс. макрос топорный признаю. нужен исключительно для личного пользования кривить кучу визиток текстовых . с этой целью справится . через ALL text (OrigSelection.ConvertToCurves) не всегда почему то кривит... особенно если есть растр через страницу ..
Спасибо!

ravend / 28.05.2013, 18:22

Сделал так . Кому нужно пользуйтесь
Предупреждаю сразу все на ваш риск и страх (я не профессиональный прогер ) слепил из того, что вижу . Возможны баги в заливках(плашки и тп ), из за перевода всех объектов в кривые .Подойдёт тем , кто по каким то либо причинам предпочитает кривить шрифты на многостраничном документе .
Лично я стараюсь сделать PDF с экспортом шрифтов в кривых , дабы исключить вылет на рипах (такое бывает как не странно ). Но тут попросили почему то именно корел.... А кривить руками было лень...

Sub Text_in_cr_all_pages()
    ' Recorded 28.05.2013

    Dim a2 As Variant
    Dim a3 As Variant
    Dim s2 As String
    Dim s3 As String
    
   a2 = ActiveDocument.Pages.Count
   s2 = CStr(a2)
  For a3 = 1 To s2
        s3 = CStr(a3)
        ActiveDocument.Pages(s3).Shapes.All.CreateSelection 
        ActiveDocument.Pages(s3).Shapes.All.UngroupAllEx 
        ActiveDocument.Pages(s3).Shapes.All.ConvertToCurves
        
  Next a3
End Sub

Sancho / 28.05.2013, 23:29

ravend, на сам деле, макросов типа перевести весь текст в кривые, полно.
Гуглить не пробовал? :)