Macro Simples No Wor4d

[Guest - Wellington -]

Bom dia Pessoal ...

estou tendo dificuldades para armazenar a quantidade de paginas numa variavel (sendo que dentro no cabeçalho consigo normalmente) ...

Abaixo o codigo que da certo na cabeçalho

1- ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

2- Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldNumPages

como posso jogar essa informação da linha dois numa variavel ( tipo variavel x ) ?

Atenciosamente,

Welllington

[RenatoMejias]

Se você quer pegar o números de páginas do documento e atribuir a uma variável tente isso:

Sub teste()
Dim x As Integer
x = Selection.Information(wdNumberOfPagesInDocument)
MsgBox (x)
End Sub

Acho que isso resolve, até mais...

[Guest - Wellington -]

Renato ...

deu certo , vou precisa colocar erra rotina dentro de uma função minha aqui ...valeu campeão.

Abraços,

Wéééé