Форум вопросов и ответов

Форум вопросов и ответов (https://www.otvetnemail.ru/)
-   Архив вопросов и ответов (https://www.otvetnemail.ru/arhiv-voprosov-i-otvetov-805/)
-   -   нумерация листов вида 1 из 50 (https://www.otvetnemail.ru/arhiv-voprosov-i-otvetov-805/numeraciya-listov-vida-1-iz-50-a-306913/)

Guest 29.09.2011 23:42

нумерация листов вида 1 из 50
 
имеется процедурка:Код:Sub DefinePages() Dim Doc As Object Dim NumPage As Integer Doc = ThisComponent NumPage = 1 NPages = Doc.CurrentController.PageCount If NPages > 1 then if NPages mod 2 = 0 then NDoublePages = Fix(NPages / 2) else NDoublePages = Fix(NPages / 2) + 1 end If else NDoublePages = 1 end If TextFieldEnum = Doc.getTextFields.createEnumeration 'i = 2 While TextFieldEnum.hasMoreElements() TextField = TextFieldEnum.nextElement() If TextField.TextFieldMaster.Name = "НомерЛиста" Then TextField.Content = NumPage NumPage = NumPage + 1 End If If TextField.TextFieldMaster.Name = "КоличествоЛистов" Then TextField.Content = NDoublePages End If Wend Doc.TextFields.refresh()End Subто есть в колонтитул правой страницы установил два поля НомерЛиста и КоличествоЛистовнумерует только на первой правой странице, выглядит примерно так: 2 из 8 и так до конца документа на всех правых страницахв принципе количество листов ставится и фиг с ним а вот номер листа как то не корректноесть мысли по теме?


Часовой пояс GMT, время: 09:44.


© www.otvetnemail.ru - Форум вопросов и ответов.