Iniciar O Cabeçalho Na Pagina Escolhida

[Guest - Wellington -]

Ola Pessoa , tenho mais um duvida , abaixo segue minha function

Function cab()

i = 1

x = Selection.Information(wdNumberOfPagesInDocument)

For i = 1 To x

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

With Selection.HeaderFooter.PageNumbers

.StartingNumber = i 'Aqui está meu problema , posi de acordo com o valor de i , gostaria que a macro fosse para a pagina i e lá eu poderia fazer as coisas abaiso End With

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

Selection.HeaderFooter.LinkToPrevious = Not Selection.HeaderFooter.LinkToPrevious

Selection.TypeText Text:="sss" & x

ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

Next i

End Function

Tenho um arquivo com 4 ou 5 páginas , mas para cada pagina será uma cabeçalho diferente ... meu problema está apenas em como fazer via macro , ele abrir o cabeçalho de acordo com a pagina ( da variavel i)

Abraços,

Wéééé

[RenatoMejias]

Wellington, não entendi bem o que você quer que esse código faça, explique melhor o que você quer que apareça no cabeçalho. Seria mais ou menos isso:

Pagina 1 (cabeçalho): WellingtonPage1

Pagina 2 (cabeçalho): WellingtonPage2

Pagina 3 (cabeçalho): WellingtonPage3

Pagina 4 (cabeçalho): WellingtonPage4

Seria isso?

[Guest - Wellington -]

Reanto ...

é mais ou menos isso .

Preciso que por pagina eu possa fazer uma cabeçalho diferente ...

ou seja,não vai ser um cabeçalho para todos paginas iguais e sim posso ficar personalizando cada um ...

acho que he a mesma coisa que você escreveu hehehehehe

Abraços,

Wéééé

[RenatoMejias]

Corrija-me se eu estiver errado, mas quando você altera um cabeçalho, independente de qual página seja, ele não alterará de TODAS as páginas para ficar com o MESMO cabeçalho? Então como você pretende mudar isso, o próprio Word não permite você fazer isso. ;)

[Guest - Wellington -]

Renato ... usando esses codigos condigo preencher um cabeçalho e ele nuam udar o restante

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

Selection.HeaderFooter.LinkToPrevious = Not Selection.HeaderFooter.LinkToPrevious

o que preciso, é + ou - assim

Via codigo eu modifico o primeira cabeçalho ( pag1) com o nome "Wellington"

no na segunda pagina eu coloco (pag2) com o nome "De Oliveira"

do jeito que fiz a função nas respostas acima , ele sempre modifica o primeiro e não consigo chamar o segundo ou terceiro para modificar , como disse o problema está aqui

"ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

With Selection.HeaderFooter.PageNumbers

.StartingNumber = i 'Aqui está meu problema , posi de acordo com o valor de i , gostaria que a macro fosse para a pagina i e lá eu poderia fazer as coisas abaiso End With"

Abraços,

Wéééé

[RenatoMejias]

Renato ... usando esses codigos condigo preencher um cabeçalho e ele nuam udar o restante

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

Selection.HeaderFooter.LinkToPrevious = Not Selection.HeaderFooter.LinkToPrevious

Tem certeza disso? Acabei de testar no meu. Coloquei apenas essas duas linhas, quando executo ele permite escrever dentro do cabeçalho, mas quando fecha ele atribui o cabeçalho a TODAS as páginas.

Envie no meu e-mail o documento que você fez o teste.