нумерация листов вида 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 и так до конца документа на всех правых страницахв принципе количество листов ставится и фиг с ним а вот номер листа как то не корректноесть мысли по теме?