MANAU

Graymalkin Colega valeu mesmo, muito obrigado, se você tiver alguma idéia me manda por favor.

Não tem um modo de quando abrir já ir direto pra tela sem ter que criar um novo documento? Quando abrir já aparecer....

Graymalkin, ainda não aparece quando eu abro o documento, só aparece depois que eu salvo. O que estou fazendo errado? Private Sub Document_Close() If ActiveDocument.Saved Then contador = 0 arquivo = "c:\contador.txt" If Dir(arquivo) <> vbNullString Then n = FreeFile() Open arquivo For Input As #n Input #n, contador Close #n End If contador = contador + 1 n = FreeFile() Open arquivo For Output As #n Print #n, contador Close #n End If End Sub Private Sub Document_New() arquivo = "c:\contador.txt" If Dir(arquivo) <> vbNullString Then n = FreeFile() Open arquivo For Input As #n Input #n, contador Close #n End If Selection.TypeText "Data de Criação: " & Date & " - Arquivo Gerado Nº: " & Format(contador, "00000") End Sub

Eu quero colocar o cabeçalho do arquivo aberto da seguinte maneira: Data de Criação: 27/06/2004 - Arquivo Gerado Nº: 00001 De modo que o usuário não possa alterá-lo, quando for aberto o documento gostaria que isso já aparece. Da maneira que você me mandou, não sei se sou eu que estou fazendo errado.. (muito provavelmente) ... só depois que salva é que aparece o número do arquivo, gostaria que tivesse esse formato. Entedeu como? Eu sei que já estou querendo d+, mas eu não sei nada de programação... Se você ainda estiver com paciência v se você consegue....

Colei o código dessa maneira Private Sub Document_Close() If ActiveDocument.Saved Then contador = 0 arquivo = "C:\Documents and Settings\Rochinha\Dados de aplicativos\Microsoft\Modelos" If Dir(arquivo) <> vbNullString Then n = FreeFile() Open arquivo For Input As #n Input #n, contador Close #n End If contador = contador + 1 n = FreeFile() Open arquivo For Output As #n Print #n, contador Close #n End If End Sub Private Sub Document_New() arquivo = "C:\Documents and Settings\Rochinha\Dados de aplicativos\Microsoft\Modelos" If Dir(arquivo) <> vbNullString Then n = FreeFile() Open arquivo For Input As #n [U]*****>>>> Nesta linha!!!![/U] Input #n, contador Close #n End If Selection.TypeText "Documento Nº: " & contador End Sub E ele me informa um erro na linha marcada, e para mostrar o número como cabeçalho da página. Não perde a paciência não...

Me desculpa esqueci de agradecer... valeu mesmo, já me ajudou bastante, agora já tenho uma luz... :-)

Amigo, dessa maneira só de abrir o Word o arquivo já grava outro número. Eu sei que já estou pedindo muito, mas você foi o único que respondeu, não teria uma maneira de só acrescentar 1 se o arquivo for salvo? E mostrar qual o número que está no contador.txt dentro do documento do Word?

Não sei se vai funcionar, porque não sei como é que eu faço para implantar. Pode me ajudar?

Tenho a seguinte tarefa e não sei nem por onde começar, sei que pode ser feito com o VB. Preciso criar uma macro que conte quantas vezes que o normal.dot já foi aberto e salvo. Ele tem que ter uma numeração própria, 001,002,003... Imaginei o seguinte, que a macro busque o número que deve ser inserido em um arquivo *.txt e que ao ser aberto o normal.dot exiba o número gravado no arquivo *.txt, se aquele documento for alterado e salvo, a macro acrescenta +1 no arquivo *.txt, se não for salvo ele não faz nada. Gente se alguém puder me ajudar.... to precisando. Desde já agradeço aqueles que tiverem pelo menos curiosidade de ler este arquivo.. Valeu galera, t++++