 |
Escrevendo
Valores por Extenso - 16 bits (Word 6) |
Em muitas empresas, vários profissionais necessitam de preparar relatórios onde,
invariavelmente, muitos valores monetários aparecem. É praxe que num relatório
profissional todos esses valores sejam grafados tanto na sua forma numérica, quanto na
sua forma por extenso. Não é aceitável a simples menção do valor monetário, como R$
123,45. É mais do que uma praxe citar, entre parêntesis, tal valor por extenso, como
Cento e vinte e três reais, e quarenta e cinco centavos.
É uma tarefa tediosa e, principalmente, sujeita a erros. A solução é criar uma
macro para resolver tal problema.
Mas melhor do que macro é usar uma biblioteca toda para isso, e foi o que o Analista Antonio
Augusto Ferreira, de São Paulo, fez. Ele disponibilizou uma biblioteca -
no formato DLL - para os programas feitos para rodar em 16 bits (Word,
Excel e Access), e mais, também disponibilizou uma macro prontinha - e testada
- para você colocar direto, sem muito trabalho, no seu Word 6. [ Atenção: se você possui a Versão 7.0 - 32 bits -
clique aqui ].
Siga os passos indicados abaixo, dê um download no arquivo
EXTENS16.ZIP
(são apenas 12 KBytes - menos de 15 segundos de download) para seu
disco, e passe a desfrutar do poder de escrever um valor qualquer, em extenso correto -
tudo ao simples toque de um botão na barra de ferramentas:
- Primeiro: faça o Download
do arquivo EXTENS16.ZIP, que contém a biblioteca DLL
e a Macro para o Word 6;
- Segundo: Extraia os arquivos que estão zipados no
EXTENS16.ZIP
(são eles: a biblioteca EXTENS16.DLL, e a Macro MACRO16.TXT);
lembre-se de que a biblioteca dll deve ser copiada para a pasta SYSTEM que se
encontra dentro da pasta WINDOWS (ou se você gosta dos bons tempos do DOS:
para o diretório \WINDOWS\SYSTEM);
- Terceiro: Crie a macro no Word ....: Abra o
arquivo MACRO16.TXT e copie para a memória o trecho indicado pelo
título, em maiúsculas, para o Word 6.0, ou 95); abra o Word e acione o
comando Ferramentas * Macro; na janela que se abre, dê um nome à macro - por
exemplo: EXTENSO.DLL; clique no botão [CRIAR]; apague as linhas
que já vêm escritas Sub Main e End Sub e que aparecem nessa janela; agora
cole nessa janela o texto que está na memória; e - finalmente - clique no botão
[SALVAR];
- Quarto: Coloque um botão na barra de ferramentas do
Word para executar a nova macro ao simples toque do botão: Selecione o menu Ferramentas
* Personalizar; na janela que se abre selecione a opção Macro (está na aba
"Barra de Ferramentas") na caixa de "Categorias"; selecione a macro
que você acabou de criar (se seguiu nossa sugestão é a de nome EXTENSO.DLL); Arraste
com o mouse (lembre-se de manter o botão esquerdo pressionado) a macro até uma área
livre da barra de ferramentas desejada; solte o botão do mouse; escolha agora um botão
que represente a macro para você - ou dê um nome (curto) para que apareça no lugar do
ícone;
- Quinto: Comece a usar sua nova MACRO
DE EXTENSO;
Não se esqueça de três pequenos detalhes para que todo esse processo possa
funcionar:
- Os valores devem ser digitados com pelo menos um espaço antes do primeiro algarismo;
- O cursor deve estar imediatamente à frente do algarismo final, para que a macro - e a
biblioteca - possa funcionar;
- Se seu Word está em inglês, a macro em MACRO.TXT não vai
funcionar.
|
