Converti um documeto para Word, mas preciso em um momento reiniciar a contagem de página do documento.Algém sabe como?
Olá, Não sei ao certo como seria fazer isto no Progress, mas para reiniciar a numeração dentro de um documento do Word é necessário criar uma nova seção. Tenta gravar macros fazendo este processo no Word mesmo de depois tenta passar os comandos para o Progress. Se no momento que tiver disponibilidade não tiverem respondido ou você tenha resolvido tento descobrir. T+
Olá Cobra. Eu gravei uma macro incluindo numeração de página no Word e me resultou nesta linha abaixo: ch-Word:Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _wdAlignPageNumberCenter, FirstPage:=True. Estou tentando de várias formas, mas até agora nada.Se eu conseguir respondo, ou do contrário, se tu conseguir alguma coisa, por favor me avisa....!! Obrigado.
Consegui a macro de um documento com capítulos, ou seja, começa com a página 1, vai até a 2 e depois retorna a página 1 novamente. Selection.InsertBreak Type:=wdSectionBreakNextPage With Selection.Sections(1).Headers(1).PageNumbers .NumberStyle = wdPageNumberStyleArabic .HeadingLevelForChapter = 0 .IncludeChapterNumber = False .ChapterPageSeparator = wdSeparatorHyphen .RestartNumberingAtSection = True .StartingNumber = 1 End With Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _ wdAlignPageNumberCenter, FirstPage:=True ActiveWindow.ActivePane.VerticalPercentScrolled = 22 Agora a questão é escrever isto em progress. Alguém pode me ajudar?
Caro Lelima, Segue o código traduzido para progress. chWord2 = chword:Selection:SECTIONs:ITEM(1). chWord3 = chWord2:Headers:ITEM(1). chWord3ageNumbers:NumberStyle = 0. chWord3ageNumbers:HeadingLevelForChapter = 0. chWord3ageNumbers:IncludeChapterNumber = FALSE. chWord3ageNumbers:ChapterPageSeparator = 0. chWord3ageNumbers:RestartNumberingAtSection = True. chWord3ageNumbers:StartingNumber = 1. chWord3 = chWord2:Footers:ITEM(1). chWord3ageNumbers:ADD(2, TRUE). Espero ter Ajudado. Mauricio Laerte
