CRONÔMETRO POPUP para Microsoft Word

Novo   Download   Home 

Este utilitário gera um Cronômetro popup especial no Microsoft® Word com Contagem Regressiva (Marcador de Tempo). É programado em Microsoft® Visual Basic® for Application (VBA) e disponível opcionalmente como Suplemento de COM (dll), Suplemento de EXE (dot/exe) ou Suplemento do Word (dot), podendo ser útil para usuários da interface do Word e programadores de VBA. Veja as figuras abaixo.

Ele consiste basicamente de um único arquivo (WordStopwatch.dll, WordStopwatch.exe ou WordStopwatch.dot) que pode ser instalado automaticamente usando um dos pacotes de arquivo de instalação disponíveis abaixo para download. Exceto para a DLL, se optar por Suplemento de COM, nenhuma outra configuração é salva no Registro do Windows. Sua configuração é salva nos arquivos WordStopwatch.ini, WordStopwatchHotKey.dot, WordStopwatchLoadExe.dot, WordStopwatch1.dot e WordStopwatch1.dotm que são criados e mantidos pelo próprio utilitário. Você também pode desinstalá-lo total e automaticamente, não deixando nenhuma sujeira no Registro do seu Windows ou disco.

Itens a seguir nesta página:

Características

Configurar Contagem Regressiva

Download

Opções de Suplementos para Instalar

Figuras

Função fStopwatch() em VBA

Função fGetVersion em VBA

Exemplos de Uso do Cronômetro no Word

Características:

- Cronômetro;

- Contagem Regressiva (Marcador de Tempo) com barra de progresso que pode ser ocultada ou exclusiva;

- Ao expirar a contagem regressiva, ele pode bipar, tocar um arquivo WAV, executar um programa do Windows, executar uma macro via OLE Automation em um arquivo aberto ou fechado do Microsoft Office, enviar pressionamentos de teclas para a janela de um aplicativo em execução no Windows e/ou alertar a expiração;

- Pode falar (pronunciar) em voz de robô, anunciando segundo a segundo os últimos n segundos de uma contagem regressiva;

- Ao expirar a contagem regressiva, pode ainda: (1) reiniciar imediatamente a mesma contagem regressiva em loop infinito, ou (2) pressionar simultaneamente os botões Zerar e Iniciar do cronômetro para iniciar contagem a partir do zero, ou (3) pressionar o botão Iniciar ou o Reiniciar para iniciar ou reiniciar contagem a partir do tempo atualmente no visor. Estas duas últimas opções possibilitam que, ao expirar uma contagem regressiva, uma ou várias instâncias com botões atados iniciem ou reiniciem simultaneamente suas contagens. Por exemplo, em uma competição com partida ao tiro, você abre uma instância para cada competidor com botões Iniciar atados e, em uma das instâncias, você define uma contagem regressiva para gerar o tiro da partida e, no mesmo instante, iniciar automaticamente o próprio cronômetro e os cronômetros de todos os outros competidores;

- Permite múltiplas instâncias em uma única instância do Excel Word com botões, configurações, contagens e resultados independentes. Em quantidades práticas, não há limites para o número de instâncias simultâneas, e não há degradação na precisão da contagem e na atualização dos visores;

- Os botões Iniciar, Parar, Reiniciar, PararIns ou Zerar de mesma categoria em todas as instâncias ou em apenas algumas delas rodando independentemente podem ser atados para serem acionados simultaneamente com um único clique;

- Botões de mesma categoria atados conforme item anterior são distinguidos por * em seus títulos;

- Os botões Iniciar ou Reiniciar em todas as instâncias ou em apenas algumas delas rodando independentemente podem ser atados aos botões Parar de diferente categoria para serem acionados simultaneamente com um único clique. Possibilita que, ao iniciar ou reiniciar uma instância, pare todas as outras com botões assim atados;

- Botões de diferentes categorias atados conforme item anterior são distinguidos por º em seus títulos;

- Os botões Iniciar ou Reiniciar em todas as instâncias ou em apenas algumas delas rodando independentemente podem ser atados aos botões PararIns de diferente categoria para serem acionados simultaneamente com um único clique. Possibilita que, ao iniciar ou reiniciar uma instância, pare e insira na planilha o tempo no visor em todas as outras com botões assim atados;

- Botões de diferentes categorias atados conforme item anterior são distinguidos por ª em seus títulos;

- Não importa a quantidade de instâncias abertas, os eventos em todos os botões atados acontecem no mesmo instante do clique, sem milésimo de segundo a mais ou a menos entre instâncias. Você pode verificar isso ligando a impressão na fita de papel ou em uma divisão em planilha;

- A propriedade de múltiplas instâncias pode ser desabilitada;

- Relatórios de divisão de tempo (Instantâneos) diretamente em planilhas do Excel, uma nova planilha a cada popup na mesma pasta de trabalho criada durante cada execução ou quando salvado e fechado;

- Se, ao pressionar o botão Divisão e o cursor de célula do Excel estiver sobre o relatório de uma divisão anterior, você será questionado se deseja retomá-lo. Ou ainda, se a célula ativa estiver em branco e houver um intervalo de células em branco suficientes a sua frente (> 25x8) para um relatório, você também será questionado se deseja iniciar um novo relatório ali mesmo, a partir da célula ativa. Se não houver razões para questionamento ou se você negá-los, segue o descrito no item anterior criando imediatamente uma nova planilha padrão para o relatório de divisão de tempo;

- Relatórios de divisão de tempo com rótulos (Instantâneos de Rótulos), permitindo configurar até 10 botões de instantâneo na interface com diferentes rótulos, cores de fundo e de frente e sons. Os rótulos e as cores definidas nos botões da interface são também devidamente registrados nas células da planilha de divisão;

- Cinco modos de visor;

- Cores de fundo e de frente do visor podem ser alteradas pelo usuário;

- O tamanho do visor pode ser ajustado por meio de um botão na interface ou pelas bordas com o mouse, e o tamanho da fonte se ajusta automaticamente, ou vice-versa, onde o tamanho da fonte pode ser especificado e o visor então se ajusta automaticamente. A fonte também pode ser formatada em cor, nome, negrito, itálico e sublinhado.

- O painel de botões pode ser ajustado para qualquer tamanho através de um botão na interface;

- A largura e a altura da interface se ajustam automaticamente ao mínimo para acomodar o visor e todos os controles visíveis, mas você pode definir uma escala entre largura e altura como a da tela em uso, da figura de fundo inserida, de um padrão comum em monitores e televisores (4:3, 14:9 e 16:9) ou qualquer percentual maior que zero onde as escalas mínima ou máxima suportadas serão automaticamente limitadas de acordo com a largura mínima automática do cronômetro ou a altura da tela em uso;

- A configuração completa de uma instância pode ser salva em arquivo no disco e nomeado pelo próprio usuário para ser aberta em outra instância paralela ou futura;

- A última configuração aberta ou a configuração da última instância fechada será usada como padrão na próxima nova instância;

- Decimais para uma precisão de milionésimo de segundo;

- Pode capturar e inserir na seleção célula ativa;

- Pode capturar tempos positivos ou negativos na seleção em células. Os positivos são preparados para serem incrementados pelo cronômetro habilitando o botão Reiniciar e os negativos são preparados para contagem regressiva;

- Tempo positivo em célula pode ser numérico ou texto formatado, numérico conforme definições do Excel para representar datas e horas por números decimais, ou texto formato inserido normalmente em células com formato de texto ou inserido antecedido por aspa em células sem formato de texto. Exemplos: 5:10,25 ou ‘5:10,25 (Cinco minutos, dez segundos e vinte e cinco centésimos de segundo); 10 ou ‘10 (Dez segundos);

- Tempo negativo em célula só pode ser em texto formatado, pois o Excel não representa um tempo negativo através de um número decimal negativo. Portanto, tempo negativo deve ser sempre inserido como texto formato entre parênteses ou precedido por aspa e sinal negativo. Exemplos: (5:10,25) ou ‘-5:10,25 (Cinco minutos, dez segundos e vinte e cinco centésimos de segundo); (10) ou ‘-10 (Dez segundos). Veja também os exemplos em 1 - Cronometrar Receita de Frango Assado e 4 - Cronometrar Contagem Regressiva para Encerramento de Leilão no final desta homepage;

- A conduta de popup pode ser configurada via menu para: Zerar o visor (Não capturar a seleção célula ativa), Iniciar o cronômetro, Dividir tempo em planilha ativa ou em segundo plano e Popup na última posição salva;

- A conduta do botão PararIns pode ser configurado via menu para: (1) Parar, Inserir e Fechar (Vermelho); (2) Parar, Inserir e Zerar (Marrom); (3) Parar, Inserir, Zerar e Iniciar (Oliva), (4) Parar e Inserir (Laranja), (5) Inserir (Branco) ou (6) Desabilitar. As opções de 1 a 4 possibilitam que um único clique gere mais de uma ação no mesmo instante, sem milésimo de segundo a mais ou a menos;

- O botão PararIns pode ser ainda configurado para inserir o resultado na célula ativa atual ou na célula ativa quando iniciou. Neste último caso, a instância fica atada à célula onde se originou e o endereço da célula aparece no título do cronômetro;

- A conduta do botão Zerar pode ser configurada via menu para: (1) Somente Zerar ou Resumir se em a contagem regressiva disparando os eventos configurados; (2) Zerar e Iniciar; (3) Inserir, Zerar e Iniciar ou (4) Desabilitar. As opções 2 e 3 possibilitam que um único click gere mais de um evento no mesmo instante, sem milésimo de segundo a mais ou a menos;

- Popup em tamanho reduzido, mas você pode configurá-lo deste de tamanho de ícone até tamanho que ocupe ou exceda a tela inteira;

- Popup próximo ao cursor do mouse ou, opcionalmente, na última posição salva, mas você pode configurar para ancorar em até nove regiões da tela, como a Superior Esquerda, a Central, a Inferior Direita etc., e ainda região Aleatória e a da Posição do mouse. Você pode ainda configurar deslocamento na horizontal e na vertical em relação a região ancorada. A opção Aleatória funciona como um protetor de tela e a opção Posição do mouse possibilita ancorar (Fixar) o mouse sobre qualquer botão ou visor do cronômetro (Ctrl libera);

- Pode autopopup selecionando células com formatos de tempo ou células definidas especificamente para autopopup;

- Pode acontecer simultâneos autopopups em diferentes células, não mais que um em cada célula;

- Uma instância gerada em um autopopup de uma célula fica atada a mesma como padrão;

- Pode ser configurado um som de arquivo WAV independente para cada um dos seguintes botões: Iniciar, Parar, Reiniciar, PararIns, Instantâneo e Zerar, incluindo ainda um para cada um dos 10 Instantâneos de Rótulo;

- Todos os sons, inclusive o da fita de papel digital, podem ser temporariamente desabilitados;

- Pode imprimir tempo e configuração em uma fita de papel digital a cada evento;

- Pode capturar de volta para o visor tempos e configurações registradas na fita de papel digital;

- Pode enviar algumas ou todas as linhas na fita de papel digital para a impressora;

- Pode copiar o tempo no visor para Área de Transferência do Windows;

- Pode colar no visor tempo existente na Área de Transferência do Windows;

- Pode ser chamado pelo botão direito do mouse (Menu de Contexto), ou por um botão na barra de ferramentas Padrão do Word Excel (Guia Suplementos da Faixa de Opções 2007, 2010 ou 2013), ou por uma tecla de atalho no teclado definida pelo próprio usuário;

- Aceita as seguintes teclas de atalho que possibilitam contar tempo usando apenas o teclado:

- Popup Cronômetro: Qualquer definida pelo usuário
- Botão Iniciar/Parar/Reiniciar: Enter ou Espaço
- Botão Parar/Inserir: I
- Botão Zerar: R ou Backspace
- Colar a partir da Área de Transferência do Windows: Ctrl + V or V
- Copiar para Àrea de Transferência do Windows: Ctrl + C ou C;
- Selecionar célula no Excel: Todas as teclas padrão de navegação do Excel. Isto possibilita que você selecione qualquer célula no Excel para inserir uma contagem (Instantâneo) no vôo, seleciona diretamente do cronômetro sem necessidade de ativar a janela do Excel;

- No primeiro plano, a face pode ser configurada da seguinte forma: transparência do visor e de botões, ocultação da barra de título e ativação de um botão ao clicar no visor. No plano de fundo, ele pode ser configurado em: opaco por cor ou figura e transparente ou transparente total. Na opção Transparente, se o visor também estiver configurado como transparente, apenas os números da contagem ficam visíveis. Na opção Transparente total, tudo fica oculto, inclusive os números da contagem, mas eles ficam visíveis junto com os controles de fechar e exibir painel de botões quando você passa o mouse sobre a região da tela onde está o cronômetro ou quando você pressiona a tecla Ctrl do teclado;

- Pode desancorar sua janela da janela do Word Excel possibilitando que fique visível mesmo se a janela do Word Excel for minimizada;

- Pode fazer sua janela ficar Sempre na Frente de todas as janelas abertas no Windows;

- Pode auto-ocultar o painel de botões deixando visível apenas o visor da contagem. Ao aproximar o ponteiro do mouse, um pequeno botão será exibido para, se você clicar, reexibir o painel que será auto-ocultado novamente no afastar do mouse;

- Pode ancorar na célula que estava ativa no Excel quando iniciou e assim sempre acompanhar o deslocamento da célula na tela, canto superior-esquerdo com canto superior-esquerdo, inclusive sumindo e reaparecendo se a célula sumir e reaparecer na tela;

- Pode se posicionar dentro da célula onde está ancorado ajustando sua largura e/ou sua altura a célula quando o título e o painel de botões estiverem ocultos;

- O botão Padrão no formulário de configuração da face possibilita visualizar ou restaurar todas as configurações padrão da face;

- Todas as instâncias rodando podem ser fechadas com um único clique selecionando o comando ‘Fechar Tudo’ no menu;

- Cada um dos botões Parar, Reiniciar, Contagem Regressiva (CntRegr), Dividir/Insttâneo, Copiar, Colar e Exibir Painel (ep) presentes na interface podem ser desabilitados quando não forem úteis, evitando que sejam indevidamente pressionados;

- Célula do Excel pode funcionar como mais um botão do cronômetro, similar ao botão PararIns, onde o ato de selecionar a célula funciona como pressionar botão, mas condições podem ser configuradas para que o pressionamento possa acontecer. Assim, só pressiona ao selecionar células: (1) Com Formato de Tempo; (2) Com Conteúdo Vazio; (3) Na Planilha Ativa quando Iniciou; (4) Na Linha Ativa quando Iniciou ou (5) Na Coluna Ativa quando Iniciou. A conduta ao pressionar também pode ser configurada para: (1) Parar, Inserir e Fechar o cronômetro; (2) Parar, Inserir e Zerar; (3) Parar, Inserir, Zerar e Iniciar, (4) Parar e Inserir, (5) Inserir somente. E ainda pode ser configurado para inserir o resultado na (6) Célula Ativa Atual ou na (7) Célula Ativa quando Iniciou. Todas estas opções estão no menu principal > sub menu “Célula do Excel como Botão”;

- Célula do Excel pode funcionar como um visor do cronômetro onde o conteúdo ou contagem no visor ecoa no conteúdo ou valor da célula ativa quando iniciou com as seguintes opções de configuração: (1) Ecoar só em Células com Formato de Tempo e/ou (2) Auto-ocultar Cronômetro ao Afastar o Mouse. Estas opções estão no menu principal > sub menu “Célula do Excel como Visor”;

- Se configurado para múltiplas instâncias e para ancorar na célula ativa ao iniciar, ao selecionar várias células e acionar o comando Cronômetro, pode criar de uma vez uma instância em cada uma de todas as células selecionadas;

- Ocupa menos de 420 Kb quando instalada;

- Pode também ser chamado diretamente a partir de qualquer código VBA através das funções fStopwatch(). e fGetVersion(). Veja, logo abaixo das figuras, descrições detalhadas destas funções e exemplos de aplicativos em VBA que as usam.

Configurar Contagem Regressiva:

Para configurar uma contagem regressiva na interface de usuário do cronômetro, acione o botão ‘CntDown’ para exibir o formulário de Contagem Regressiva que tem dois grupos de opções: Tipos de contagem e Eventos a executar ao expirar.

1. Tipos de contagem com duas opções:

1.1. Opção para contagem regressiva para zero.

Se selecionar esta opção, informe o tempo a ser zerado em horas, minutos, segundos e frações de segundos, digitando no teclado ou clicando com o mouse nas setas em cada caixa de texto.

1.2. Opção para contagem regressiva para uma data futura.

Se selecionar esta opção, informe a data e hora futura exata a ser alcançada ou vencida, digitando no teclado ou apenas usando o mouse, pois a caixa de texto de data/tempo tem seletor de data/hora incorporado onde você pode alterar um número diretamente no formato mantendo data e tempo válidos, assim:

- Posicione o cursor da caixa de texto em frente ao número a ser ajustado, usando o mouse ou as setas para direita e para esquerda do teclado;

- Para incrementar ou decrementar o número, use as teclas de seta para cima ou para baixo do teclado ou clique com o mouse na parte superior ou inferior do cursor da caixa de texto;

- Para inserir a data de hoje ou a hora atual e facilitar o ajuste para uma data futura próxima, use as teclas de atalho Ctrl + H (Insere Hoje, somente data) ou Ctrl + A (Insere Agora, somente hora) ou clique com o mouse nos ícones com H ou A à direita da caixa de texto.

2. Eventos a executar ao expirar a contagem com nove opções onde você pode selecionar nenhuma, uma ou mais de uma:

2.1. Bipar. Se selecionar esta opção, informe na caixa de texto ao lado o número de sinais sonoro a serem emitidos ao expirar a contagem;

2.2. Falar os últimos segundos. Se selecionar esta opção, informe na caixa ao lado o número de segundos a serem falado em contagem regressiva;

2.3. Tocar. Se selecionar esta opção, informe na caixa ao lado o caminho e o nome do arquivo WAV a ser tocado ao expirar a contagem;

2.4. Executar. Se selecionar esta opção, informe na caixa ao lado os dados para um dos três tipos de execução suportados:

- Executar arquivo. Informe o caminho e o nome do arquivo a executar no Windows. Se informar só o nome do arquivo executável, ele será procurado no path padrão do Windows;

- Executar macro. Informe o caminho, nome do arquivo do Microsoft Office e o nome da macro a executar seguindo este formato: Path\NomeDoArquivo!NomeDaMacro. O nome do arquivo e o nome da macro separados pelo ponto de exclamação são obrigatórios, o path é importante e até recomendado, mas, se não for informado, o arquivo será procurado em seu respectivo aplicativo do Office eventualmente em execução. Também é obrigatório que o nome do arquivo tenha uma extensão reconhecida por um destes aplicativos do Office: Excel, Word, PowerPoint ou Access. Suporta ainda a passagem de até cinco argumentos para a macro neste formato: Path\NomeDoArquivo!NomeDaMacro,Arg1,Arg2... Onde é obrigatório a separação por vírgulas, e um argumento não pode ter vírgulas em si, mas elas podem ser passadas codificadas, substituindo-as por {%2C};

- Enviar teclas. Informe o comando de linha para o utilitário independente SendKeys.exe (Sem path) integrado na instalação seguindo este formato: SendKeys.exe Arg1 Arg2 “Arg3” “Arg4” [Arg5]. Os argumentos são separados por espaço e como o Arg3 e o Arg4 podem ser textos, eles devem ser colocados entre aspas para suportar espaços neles. O Arg5 é opcional Veja os detalhes completos da sintaxe na homepage do SendKeys.exe aqui.

2.5. Alertar. Se selecionar esta opção, informe na caixa ao lado a mensagem desejada para o alerta ao expirar a contagem;

2.6. Reiniciar a contagem regressiva em loop infinito. Se selecionar esta opção, ao expirar a contagem regressiva, a mesma será imediatamente reiniciada em um loop infinito;

2.7. Fechar Cronômetro. Se selecionar esta opção, ao expirar a contagem regressiva, o cronômetro será imediatamente fechado;

2.8. Rodar o cronômetro do zero pressionando botões Reset e Iniciar. Se selecionar esta opção, ao expirar a contagem regressiva, o cronômetro será imediatamente zerado e iniciado. Dica! Em múltiplas instâncias, atar botões Reset e Iniciar para restaurar e iniciar do zero vários cronômetros de forma simultânea;

2.9. Rodar cronômetro do tempo atual pressionando botão Reiniciar. Se selecionar esta opção, ao expirar a contagem regressiva, o cronômetro será imediatamente reiniciado a partir do tempo atualmente no visor. Dica! Em múltiplas instâncias, atar botões Iniciar e Reiniciar para iniciar ou reiniciar vários cronômetros de forma simultânea.

O botão ‘Salva Config.’ salva a configuração atual como padrão para as futuras execuções. Já o botão ‘Padrão’ restaura a configuração padrão de fabrica.

Download:

Testado no Word para Windows, versões 2000, 2002(XP), 2003, 2007, 2010 (32 e 64-bit), 2013 (32 e 64-bit) e 2016-24 (32 e 64-bit) em instalações MSI-based e Click-To-Run do Office 365™ de serviços baseados na nuvem.

Veja também para Microsoft Access®, para Microsoft Excel® e para Microsoft PowerPoint®.

Opções de Suplementos para Instalar:

Este utilitário pode estar disponível para ser instalado em três opções de suplemento: Suplemento de EXE, Suplemento de COM ou Suplemento do Word. Suplemento de COM e Suplemento do Word rodam no Windows no mesmo processo ou espaço de memória do Word e são tecnologias bem detalhadas na documentação do Word e em bons livros sobre VBA, enquanto Suplemento de EXE é uma denominação especial aqui para um misto daquelas duas tecnologias onde o mesmo código VBA é rodado em um processo EXE separado e um pequeno Suplemento do Word faz a conexão entre os dois processos. Apesar das diferenças nas tecnologias, este utilitário é totalmente funcional em qualquer uma delas. Assim, o que pode decidir na sua escolha para instalar são as características abaixo comparadas:

¹Indisponível temporariamente.

Figuras:

Função fStopwatch() em VBA:

O cronômetro também pode ser chamado diretamente de qualquer código VBA usando a função fStopwatch(), que tem a mesma sintaxe da função fStopwatch() do Cronômetro para Excel. Portanto, o código que chama uma função também pode chamar a outra. No entanto, como o Excel e o Word têm recursos diferentes, alguns argumentos mantêm seus nomes e posições, mas podem ser úteis apenas em um deles. A função fStopwatch() aqui, assim como lá, possui os seguintes 27 argumentos opcionais e sete retornos:

1 - InitialElapsed (Date/Time, Padrão=0);

2 - ResetAtPupUp (Boolean, Padrão=False);

3 - StartAtPupUp (String, Padrão=””). Se em qualquer posição da string (texto) houver:

“1” - Inicia o cronômetro ou a contagem regressiva no popup;
“2” - Ata o botão Iniciar aos de outras instâncias com igual configuração;
“3” - Idem para o botão Parar;
“4” - Idem para o botão Reiniciar;
“5” - Idem para o botão PararInserir;
“6” - Idem para o botão Zerar;
“7” - Ata o botão Iniciar aos botões Parar de outras instâncias;
“8” - Ata o botão Reiniciar aos botões Parar de outras instâncias;
“9” - Ata o botão Iniciar aos botões PararIns de outras instâncias;
“A” - Ata o botão Reiniciar aos botões PararIns de outras instâncias;

4 - DisplaySetting (String, Padrão=””, antes DisplaySize). Define a configuração para o visor do cronômetro com todas as opções presentes no frame "Visor:" do formulário exibido pelo comando “Configurações de Face...” presente no menu do cronômetro. É uma string composta por nove substrings separadas por ; no formato “n1;n2;s1;n3;n4;n5;n6;n7;s2” onde:

- n1 é um número inteiro que define o tamanho da fonte do visor. Long 2 a 500, Padrão="" para usar a configuração padrão ou a configuração salva no arquivo indicado pelo argumento 21, SavedSettingFile).

- n2 é uma das seguintes opções para clicando no visor aciona:

Vazio - Usa a configuração padrão ou a configuração salva no arquivo indicado pelo argumento 21, SavedSettingFile;
0 - Nenhum Botão;
1 - Botão Iniciar/Parar;
2 - Botão PararIns;
3 - Botão Dividir/Instantâneo;
4 - Botão Zerar.

- s1 é o nome da fonte do visor.

Vazio - Usa a configuração padrão ou a configuração salva no arquivo indicado pelo argumento 21, SavedSettingFile;

- n3 é uma das seguintes opções para a formatação em negrito da fonte do visor:

Vazio - Usa a configuração padrão ou a configuração salva no arquivo indicado pelo argumento 21, SavedSettingFile;
0 - Falso;
1 - Verdadeiro.

- n4 é uma das seguintes opções para a formatação em itálico da fonte do visor:

Vazio - Usa a configuração padrão ou a configuração salva no arquivo indicado pelo argumento 21, SavedSettingFile;
0 - Falso;
1 - Verdadeiro.

- n5 é uma das seguintes opções para a formatação em sublinhado da fonte do visor:

Vazio - Usa a configuração padrão ou a configuração salva no arquivo indicado pelo argumento 21, SavedSettingFile;
0 - Falso;
1 - Verdadeiro.

- n6 é um número inteiro (RGB) indicando uma cor de fundo para o visor:

Vazio - Usa a configuração padrão ou a configuração salva no arquivo indicado pelo argumento 21, SavedSettingFile;

- n7 é um número inteiro (RGB) indicando uma cor para a fonte do visor:

Vazio - Usa a configuração padrão ou a configuração salva no arquivo indicado pelo argumento 21, SavedSettingFile;

10 - SplitSheet (String, Padrão="" para cria uma nova planilha de divisão de tempo); (Útil só no ExcelStopwatch)

Vazio - Usa a configuração padrão ou a configuração salva no arquivo indicado pelo argumento 21, SavedSettingFile;
1 - Cor, exibindo de forma opaca a cor de plano de fundo indicada em n3 abaixo;
2 - Transparente;
3 - Transparente total, tudo oculto, inclusive a fonte do visor, mas que fica visível junto com os controles de fechar e exibir painel de botões ao passar o mouse sobre a região da tela onde está o cronômetro ou ao pressionar a tecla Ctrl do teclado;
4 - Figura, exibindo de forma opaca a figura indicada em s1 e formatada em n4, n5 e n6 abaixo.
Nota: Ao indicar qualquer uma destas opções, já seleciona também a opção "Habilitar plano de fundo" A opção 128 acima é a princípio redundante e foi mantida mais para compatibilidade com versões anteriores.

Vazio - Usa a configuração padrão ou a configuração salva no arquivo indicado pelo argumento 21, SavedSettingFile;
0 - Nenhuma das opções abaixo;
1 - Bipar um determinado número de vezes de acordo com n2 abaixo;
2 - Tocar um arquivo WAV definido abaixo em s1;
4 - Executar um arquivo exe no Windows, macro ou envio de teclas definido abaixo em s2;
8 - Emitir um alerta de texto definido abaixo em s3;
16 - Reiniciar a contagem regressiva em loop infinito;
32 - Fechar o cronômetro;
64 - Rodar o cronômetro do zero pressionando botões Reset e Iniciar. (Dica! Em múltiplas instâncias, atar os botões Reset e Iniciar para iniciar várias instâncias simultaneamente do zero ao expirar a contagem regressiva.);
128 - Rodar Cronômetro do tempo atual no visor pressionando botão Reiniciar. (Dica! Em múltiplas instâncias, atar os botões Iniciar e Reiniciar para iniciar ou reiniciar várias instâncias simultaneamente ao expirar a contagem regressiva.);
256 - Falar os últimos segundos da contagem regressiva de acordo com n3 abaixo, mas é opcional se n3 for definido abaixo.
Nota: Os argumentos 1, 2, 4, 8 e 256 acima se tornam opcionais se n2, s1, s2, s3 e n3, respectivamente forem definidos abaixo.

Sub YourSub()
    Dim fRet As Variant
    Dim ObjToVBA As Object    'See Note below
    Set ObjToVBA = Application.Run("CreateObj")
    
    fRet = ObjToVBA.fStopwatch
    If Not fRet = Empty Then MsgBox "Error: " & fRet, vbCritical, "Fail!"
End Sub

Sub YourSub2()
    Dim fRet As Variant
    Dim ObjToVBA As Object    'See Note below
    Set ObjToVBA = Application.Run("CreateObj")
    
    fRet = ObjToVBA.fStopwatch(0, , "12", , , , , , True)
    If Not fRet = Empty Then MsgBox "Error: " & fRet, vbCritical, "Fail!"
End Sub

Sub YourSub()
    Dim sRet As String, vCallVerOld As Variant: On Error Resume Next
    Dim ObjToVBA As Object
    Set ObjToVBA = Application.Run("CreateObj")
    sRet = ObjToVBA.fGetVersion
     If Err.Number <> 0 Then
          MsgBox "The 'Popup Stopwatch for Word' not found!"
     Else
          vCallVerOld = Split(sRet, ".")
          vCallVerOld = vCallVerOld(0) * 10 ^ 6 + vCallVerOld(1) * 10 ^ 3 + vCallVerOld(2)
          If vCallVerOld < 5000000 Then MsgBox "The 'Popup Stopwatch for Word' " & sRet & " found is old!"
          If vCallVerOld >= 5000000 Then MsgBox "The 'Popup Stopwatch for Word' " & sRet & " found is updated for this code!"
     End If
End Sub

Veja notas sobre métodos Early and Late Binding.

Exemplos de Uso do Cronômetro:

Exemplo 1 - Criação de botão de comando em documento (Ver nota 1):

O objetivo deste exemplo é mostrar o código VBA necessário para chamar o cronômetro a partir de um botão no documento, da mesma forma que ele é chamado a partir do menu do Word, usando a última configuração de chamada salva em um arquivo .ini.

Baixe o arquivo doc zipado deste exemplo clicando no link abaixo e abra no Word:

WordStopwatch_Ex1.doc

Depois de abrir o doc no Word:

- Você pode testar o código imediatamente no próprio documento do exemplo, basta clicar duas vezes no botão “Start WordStopwatch_Ex1”, disponível na primeira página, para acionar o cronômetro da mesma forma que ele é acionado por um botão de menu na interface do usuário do Word, usando a última configuração salva no arquivo WordStopwatch.ini; (Ver nota 2);

- Você pode implementar o código VBA, conforme está no exemplo do doc, no projeto VBA do seu documento específico. Basta abrir a janela do Visual Basic (VBE) com Alt+F11 e copiar o módulo de classe ClassWordStopwatch e o módulo padrão ModExamp1 para o projeto VBA do seu documento. Isso é tudo em termos de código. Você ainda precisa criar o botão (veja a nota 4) ou um botão similar no seu documento para iniciar.

Nota 1: Este exemplo é apresentado em primeiro lugar não por sua importância, mas para ilustrar uma sequência de exemplos que aumentam gradualmente em complexidade e utilidade.

Nota 2: Para testar documentos com código VBA, você precisa definir a segurança de macros do Word para o nível médio, permitindo que as macros sejam habilitadas quando solicitado ao abrir os documentos. Você também precisa instalar o 'Popup Stopwatch for Word', que pode ser baixado gratuitamente para uso pessoal através do link Novo   Download   acima nesta página.

Exemplo 2 - Contagem regressiva para intervalo do café (modelo 1):

O objetivo deste Exemplo 2 é mostrar o código VBA necessário para criar um tradicional cronômetro em contagem regressiva para o intervalo do café em uma leitura do documento que usa arquivos externos para a figura de fundo e para o som de expiração.

Ele ensina como criar um cronômetro para fazer a contagem regressiva de um intervalo de tempo. O cronômetro será configurado para se mover na tela como um protetor, com um visor transparente e um fundo opaco contendo uma imagem de um arquivo JPG salvo no disco. Quando o tempo acabar, o cronômetro emitirá um bipe e reproduzirá um som de um arquivo WAV. Ambos os arquivos devem ter o mesmo nome do documento ativo e estar salvos na mesma pasta no disco.

Baixe o arquivo doc zipado deste exemplo clicando no link abaixo e abra no Word:

WordStopwatch_Ex2.doc

Depois de abrir o doc no Word:

- Você pode testar o código imediatamente no próprio documento do exemplo, basta clicar duas vezes no botão “Start WordStopwatch_Ex2” disponível na primeira página para definir o intervalo de tempo e então iniciar a contagem regressiva; (Ver nota 2);

- Você pode implementar o código VBA, conforme está no exemplo do doc, no projeto VBA do seu documento específico. Basta abrir a janela do Visual Basic (VBE) com Alt+F11 e copiar o módulo de classe ClassWordStopwatch, o módulo padrão ModExamp2 e o userform UFormExamp2 para o projeto VBA do seu documento. Isso é tudo em termos de código. Você ainda precisa criar o botão (veja a nota 4) ou um botão similar no seu documento para iniciar. (Ver nota 3)

Nota 3: O código VBA em cada exemplo (pressione Alt+F11 para ver) está formatado corretamente e tem instruções para facilitar para você, mesmo sem conhecimento de VBA, alterar qualquer uma das centenas de configurações do cronômetro, principalmente elementos de interface relacionados a tamanhos, posição na tela, cores, fontes, figura de fundo, transparências e até mesmo transparência total do cronômetro com exibição automática apenas da fonte do display quando você aproxima o mouse ou pressiona a tecla Ctrl.

Nota 4: Sobre a criação de um botão de comando em uma página de documento do Word para chamar uma macro VBA. Originalmente, era utilizado um botão ActiveX, mas infelizmente essa poderosa ferramenta agora está desativada por padrão no Office e corre o risco de ser completamente removida em versões futuras. Sem outra opção nativa, a solução aqui é uma alternativa que utiliza uma caixa de texto estilizada sobreposta por um retângulo transparente e o evento de aplicativo WindowBeforeDoubleClick() para capturar a ação de clique duplo no retângulo. Veja o código VBA no objeto ThisDocument.

Exemplo 3 - Contagem regressiva para intervalo do café (modelo 2):

O objetivo deste Exemplo 3 é mostrar o código VBA necessário para criar um tradicional cronômetro em contagem regressiva para o intervalo do café em uma leitura do documento que não usa arquivos externos para a figura de fundo e para o som de expiração.

Ele ensina como criar um cronômetro para fazer a contagem regressiva de um intervalo de tempo. O cronômetro será configurado para se mover na tela como um protetor, com um visor transparente para mostrar apenas os números e um fundo transparente para exibir a janela do Word como plano de fundo. Quando o tempo acabar, ele emitirá dez bipes. Portanto, este exemplo não requer que a imagem e o som sejam salvos em arquivos separados do documento.

Baixe o arquivo doc zipado deste exemplo clicando no link abaixo e abra no Word:

WordStopwatch_Ex3.doc

Depois de abrir o doc no Word:

- Você pode testar o código imediatamente no próprio documento do exemplo, basta clicar duas vezes no botão “Start WordStopwatch_Ex3” disponível na primeira página para definir o intervalo de tempo e então iniciar a contagem regressiva; (Ver nota 2)

- Você pode implementar o código VBA, conforme está no exemplo do doc, no projeto VBA do seu documento específico. Basta abrir a janela do Visual Basic (VBE) com Alt+F11 e copiar o módulo de classe ClassWordStopwatch, o módulo padrão ModExamp3 e o userform UFormExamp3 para o projeto VBA do seu documento. Isso é tudo em termos de código. Você ainda precisa criar o botão (veja a nota 4) ou um botão similar no seu documento para iniciar. (Ver nota 3)

Exemplo 4 - Contagem regressiva para avançar página (em paralelo):

O objetivo deste Exemplo 4 é mostrar o código VBA necessário para criar um cronômetro em contagem regressiva em cada página para avançar para o próximo página quando a contagem regressiva expirar. Os cronômetros para todos as páginas serão lançados em paralelo e simultaneamente.

Ele também ensina como lançar mais de um cronômetro simultaneamente em paralelo, contando tempos diferentes. Uma pilha de cronômetros aparecerá na tela, com o mais curto sobreposto aos mais longos, mas seus botões estarão atados, então se o de cima parar, o de baixo também para, e similarmente se ele reiniciar. O exemplo 5 a seguir, que tem o mesmo objetivo e eficiência, ensina como lançar em série, onde o primeiro, ao expirar, chama o próximo, mantendo assim apenas um cronômetro contando na tela.

Baixe o arquivo doc zipado deste exemplo clicando no link abaixo e abra no Word:

WordStopwatch_Ex4.doc

Depois de abrir o doc no Word:

- Você pode testar o código imediatamente no próprio documento do exemplo, basta clicar duas vezes no botão “Start WordStopwatch_Ex4” disponível na primeira página para criar um cronômetro em contagem regressiva em cada página que avance para a próxima página quando a contagem regressiva expirar. O tempo para cada página é definido no código, onde você pode alterá-lo pressionando Alt+F11 e procurando por 'Set countdown times'; (Ver nota 2)

- Você pode implementar o código VBA, conforme está no exemplo do doc, no projeto VBA do seu documento específico. Basta abrir a janela do Visual Basic (VBE) com Alt+F11 e copiar o módulo de classe ClassWordStopwatch e o módulo padrão ModExamp4 para o projeto VBA do seu documento. Isso é tudo em termos de código. Você ainda precisa criar o botão (veja a nota 4) ou um botão similar no seu documento para iniciar. (Ver nota 3)

Exemplo 5 - Contagem regressiva para avançar página (em série):

O objetivo deste Exemplo 5 é mostrar o código VBA necessário para criar um cronômetro em contagem regressiva em cada página para avançar para o próximo página quando a contagem regressiva expirar. Os cronômetros serão lançados em série, um após o outro.

Ele também ensina como lançar mais de um cronômetro em série, onde o primeiro, ao expirar, chama o próximo, mantendo assim apenas um cronômetro contando na tela. O exemplo 4, que tem o mesmo objetivo e eficiência, ensina como lançar mais de um cronômetro simultaneamente em paralelo, contando tempos diferentes, formando assim uma pilha na tela.

Baixe o arquivo doc zipado deste exemplo clicando no link abaixo e abra no Word:

WordStopwatch_Ex5.doc

Depois de abrir o doc no Word:

- Você pode testar o código imediatamente no próprio documento do exemplo, basta clicar duas vezes no botão “Start WordStopwatch_Ex5” disponível na primeira página para criar um cronômetro em contagem regressiva para avançar para a próxima página quando a contagem regressiva expirar e assim por diante. O tempo para cada página é definido no código, onde você pode alterá-lo pressionando Alt+F11 e procurando por 'Set countdown times'; (Ver nota 2)

- Você pode implementar o código VBA, conforme está no exemplo do doc, no projeto VBA do seu documento específico. Basta abrir a janela do Visual Basic (VBE) com Alt+F11 e copiar o módulo de classe ClassWordStopwatch e o módulo padrão ModExamp5 para o projeto VBA do seu documento. Isso é tudo em termos de código. Você ainda precisa criar o botão (veja a nota 4) ou um botão similar no seu documento para iniciar. (Ver nota 3)

Exemplo 6 - Contagem regressiva para avançar página (auto pesca):

Não disponível. Requer eventos de página que ainda não existem no Word.

Exemplo 7 - Contagem regressiva para avançar página (Acelerador):

Não disponível. Requer eventos de página que ainda não existem no Word.

Exemplo 8 - Contagem regressiva em etapas de leitura (em paralelo):

O objetivo deste Exemplo 8 é mostrar o código VBA necessário para criar dois cronômetros em contagem regressiva lançados em paralelo e simultaneamente. Um para alertar sobre o limite mínimo de duração da leitura do documento e outro para o limite máximo.

Ele também ensina como lançar mais de um cronômetro simultaneamente em paralelo, contando tempos diferentes. Uma pilha de cronômetros aparecerá na tela, com o mais curto sobreposto aos mais longos, mas seus botões estarão atados, então se o de cima parar, o de baixo também para, e similarmente se ele reiniciar. O exemplo 9 a seguir, que tem o mesmo objetivo e eficiência, ensina como lançar em série, onde o primeiro, ao expirar, chama o próximo, mantendo assim apenas um cronômetro contando na tela.

Baixe o arquivo doc zipado deste exemplo clicando no link abaixo e abra no Word:

WordStopwatch_Ex8.doc

Depois de abrir o doc no Word:

- Você pode testar o código imediatamente no próprio documento do exemplo, basta clicar duas vezes no botão “Start WordStopwatch_Ex8” disponível na primeira página para criar em paralelo dois cronômetros em contagem regressiva. Um para alertar o mínimo e outro para o limite máximo de duração de leitura do documento com quatro páginas definidas apenas para testar este exemplo. O tempo para cada página é definido no código, onde você pode alterá-lo pressionando Alt+F11 e procurando por 'Set countdown times; (Ver nota 2)

- Você pode implementar o código VBA, conforme está no exemplo do doc, no projeto VBA do seu documento específico. Basta abrir a janela do Visual Basic (VBE) com Alt+F11 e copiar o módulo de classe ClassWordStopwatch, o módulo padrão ModExamp8 e o userform UFormExamp8 para o projeto VBA do seu documento. Isso é tudo em termos de código. Você ainda precisa criar o botão (veja a nota 4) ou um botão similar no seu documento para iniciar. (Ver nota 3)

Exemplo 9 - Contagem regressiva em etapas de leitura (em série):

O objetivo deste Exemplo 9 é mostrar o código VBA necessário para criar dois cronômetros em contagem regressiva lançados em série. Um para alertar sobre o limite mínimo de duração da leitura do documento e outro para o limite máximo.

Ele também ensina como lançar mais de um cronômetro em série, onde o primeiro, ao expirar, chama o próximo, mantendo assim apenas um cronômetro contando na tela. O Exemplo 8 acima, que tem o mesmo objetivo e eficiência, ensina como lançar mais de um cronômetro simultaneamente em paralelo, contando tempos diferentes, formando assim uma pilha no tela.

Baixe o arquivo doc zipado deste exemplo clicando no link abaixo e abra no Word:

WordStopwatch_Ex9.doc

Depois de abrir o doc no Word:

- Você pode testar o código imediatamente no próprio documento do exemplo, basta clicar duas vezes no botão “Start WordStopwatch_Ex9” disponível na primeira página para criar em série dois cronômetros em contagem regressiva. Um para alertar o mínimo e outro para o limite máximo de duração de leitura do documento com quatro páginas definidas apenas para testar este exemplo. O tempo para cada página é definido no código, onde você pode alterá-lo pressionando Alt+F11 e procurando por 'Set countdown times; (Ver nota 2)

- Você pode implementar o código VBA, conforme está no exemplo do doc, no projeto VBA do seu documento específico. Basta abrir a janela do Visual Basic (VBE) com Alt+F11 e copiar o módulo de classe ClassWordStopwatch, o módulo padrão ModExamp9 e o userform UFormExamp9 para o projeto VBA do seu documento. Isso é tudo em termos de código. Você ainda precisa criar o botão (veja a nota 4) ou um botão similar no seu documento para iniciar. (Ver nota 3)

Mais informação

Home