[Resolvido]Código vba para automatizar word

Olá, Pessoal.

Tem como criar um código em vba, no word para mudar um numero de ordem que coloquei no centro da pagina, pois é uma capa de um documento e a data também, Ex. eu abro o documento para alterar, alterando e salvando ele muda o numero e data automaticamente, se não alterar e não salvar ele mentém o mesmo numero. Se for possivel gostaria de uma ajuda.

Obrigado.

este é um forum de Ms Access.

a sua duvida é relacionada com a automatização do Access com o Word.

se não for está no forum errado.

Amigo

O Word não tem nenhum evento que é disparado quando se altera um Documento. O que podemos fazer é criar um evento que é chamado imediatamente antes de se salvar um Documento, o DocumentBeforeSave. A rotina abaixo incrementa em uma unidade o local onde há o número (que chamo de Ordem). A data sempre será a atual, pois será um Indicador. A saber:

-A Ordem é um Indicador, que referencia ao intervalo onde está o número incremental da ordem;

-A Data é um Campo do tipo { DATE \@ "dd/MM/yyyy" };

-No VBE, o código deve ser colado em ThisDocument;

-Você deve salvar e sair do Documento uma vez para que a rotina comece a funcionar.

Option Explicit

Private WithEvents appWord As Word.Application

Private Sub Document_Open()
Set appWord = ThisDocument.Application
End Sub

Private Sub appWord_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
With ThisDocument
If .Saved = False Then
Dim lngInício As Long
Dim lngFim As Long

With .Bookmarks("Ordem").Range
lngInício = .Start
lngFim = .End
.Text = .Text + 1
End With
.Bookmarks.Add Name:="Ordem", Range:=.Range(lngInício, lngFim)
End If
End

Olá, VieiraSoft.

Obrigado pela ajuda, tem como vc me informar passo a passo sobre esse código,pois sou leigo em vba. copiei o código e colei da forma que vc falou salvei e não funcionou.

Grato.

Amigo Boa Noite

Vá a ferramentas >>> Macros >>> Editor do Visual Basic e abra um módulo VBA. Cole o código no módulo e guarde.

Caro, Vieira

Estou lhe mandando o arquivo anexo para vc entender melhor o que eu quero e se é possivel fazer, pois não conseguir fazer com a sua dica. o meu word é 2007.

Eu quero que fique automatizado o Nº 001,toda vez que eu salvar o arquivo com outro nome o numero mude automaticamente.

Grato.

Amigo, não tenho o 2007. Veja no link acima um printscreen do meu editor do vba com o código inserido.

Vieira.

Obrigado pela informação, fiz desse jeito que vc postou o exemplo,mas não funciona ou seja o numero não está automatico na capa do documento do word, como eu queria, mas tudo bem, vou parar por aqui.


Obrigado.

Obrigado pelo retorno.

Abraço