IPB

Bem-vindo, visitante ( Entrar | Registrar )

 
Reply to this topicStart new topic
Como Criar Uma Numeração Automática Para Documentos Word
OsmarJr
post Jul 24 2008, 12:50 PM
Post #1


Moderador
***

Grupo: Root Admin
Posts: 170
Registrado: 2-July 08
De: Curitiba - Paraná - Brasil
Membro N°: 3



Como criar uma numeração automática para documentos Word

Para começar, crie um arquivo texto com a estrutura de um arquivo .INI do Windows:
[Valores]
Ofícios=0
Memorandos=0
Cartas=0
...

Você pode ter quantos tipos de documentos desejar, cada um com sua numeração específica.

Em seguida, abra o modelo usado para a criação do documento e crie um indicador (bookmark) no local onde deseja que o número seja apresentado. Crie uma nova macro com nome AutoNew (que será executada sempre que um novo documento for criado.

O exemplo abaixo procura no arquivo Numeração.txt pelo item Ofícios no grupo Valores, passa o valor contido para o indicador NumDoc, soma 1 ao indicador, devolve o novo valor a Ofícios e atualiza o arquivo de numeração. Em seguida, insere o número na posição solicitada e salva o novo documento (já numerado) com o nome de arquivo contendo o número do documento.
CODE
Sub AutoNew()
' Abre o arquivo de numeração e pega o número do último Ofício
    NumDoc = System.PrivateProfileString("C:\Numeração.Txt", "Valores", "Ofícios")
' Testa se já tem Ofícios.
    If NumDoc = "0" Then
        NumDoc = 1
    Else
        NumDoc = NumDoc + 1
    End If
' Atualiza o número de Ofícios
    System.PrivateProfileString("C:\Numeração.txt", "Valores",  "Ofícios") = NumDoc
' Atualiza o valor do indicador
    ActiveDocument.Bookmarks("NumDoc").Range.InsertBefore Format(NumDoc, "00#")
' Salva o arquivo
    ActiveDocument.SaveAs FileName:="SeuCaminho" & "Ofício"Format(NumDoc, "00#")
End Sub


Se você não precisa mostrar o número no documento mas quer apenas salvá-lo com esse número, não é necessário criar o indicador no modelo e a penúltima linha do código pode ser excluída.

Nota: existem algumas sugestões de que estes valores deveriam ser armazenados no Registry em vez de um arquivo texto. Se o Registry for usado, o usuário estará preso a uma máquina específica. Por exemplo, se o modelo for usado por mais de um departamento (ou em mais de uma máquina), o arquivo texto pode ser salvo em uma área de acesso comum da rede e o Registry não.

Idem se o usuário fizer seu logon em mais de uma máquina da rede: o arquivo texto pode estar em sua área de usuário da rede e ele terá acesso a partir de qualquer máquina. O Registry é de uma máquina específica.

Mesmo que o arquivo texto seja salvo localmente, no caso de uma atualização de máquina é só copiar o arquivo para a nova máquina e continuar trabalhando. A cópia das informações do Registry é bem mais complicada.

Outro ponto que deve ser levado em consideração: e se o usuário, por qualquer razão, necessitar corrigir manualmente a numeração (um documento emitido sem o uso do modelo, por exemplo)? A alteração em um arquivo texto é simples enquanto que qualquer modificação no Registry pode levar a problemas se ele não tiver um bom conhecimento.
Go to the top of the page
 
+Quote Post

Reply to this topicStart new topic
1 usuário(s) está(ão) lendo este tópico (1 visitantes e 0 usuários anônimos)
0 membros:

 

Modos de Exibição: Padrão · Mudar para: Linear+ · Mudar para: Outline


Versão Simples Horário: 25th June 2018 - 08:46 AM