O Microsoft Word é uma ferramenta poderosa para criar documentos de texto. Com sua ajuda, você pode criar um pequeno calendário conveniente, que pode ser acessado clicando no botão apropriado na barra de ferramentas. Para fazer isso, você precisará usar o kit de ferramentas do Microsoft Visual Basic, que é instalado junto com qualquer pacote do Microsoft Office.
Instruções
Passo 1
Crie um documento do Word e salve-o como um modelo. Para fazer isso, use os itens de menu apropriados "Arquivo" (para Office 2007 e superior - o botão Microsoft Office no canto superior esquerdo) - "Novo" - "Documento em branco" e, em seguida, "Salvar como" - "Modelo do Word".
Passo 2
Abra o ambiente de programação Visual Basic pressionando a combinação de teclas alt="Image" e F11. Uma janela do editor será aberta, na qual pressione a tecla "F7".
etapa 3
Na parte superior da janela, selecione "Inserir" - "Formulário do usuário". Selecione o menu "Ferramentas" - "Controles adicionais". No menu pop-up, marque a caixa ao lado de "Controle de calendário" (ou "Controle de calendário). Clique OK".
Passo 4
Clique no ícone "Calendário" que aparece no painel de controle da "Caixa de ferramentas". Mova o ponteiro do mouse sobre a forma e desenhe um quadrado do tamanho necessário para o calendário.
Etapa 5
Você pode alterar as opções de exibição do calendário. Para isso, à esquerda da janela, no menu Propriedades, selecione "Personalizar" e clique no botão com reticências à direita da linha. Na janela pop-up, selecione as configurações necessárias. Na guia "Fonte" e "Cor", você pode selecionar os parâmetros do próprio painel do calendário. Depois de fazer todas as configurações, clique em "OK".
Etapa 6
Clique no título do formulário, e em "Propriedades" (linha "Legenda") você poderá especificar o nome "Calendário". O título mudará.
Etapa 7
Para organizar o fechamento do calendário pressionando a tecla "Esc". Para fazer isso, selecione o botão "CommandButton" na Caixa de Ferramentas e desenhe-o. Altere o valor em Cancelar em Propriedades para Verdadeiro. Pressione F7, digite entre as duas linhas "Private Sub.." e "End Sub" a linha "Unload Me" e clique em "OK".
Etapa 8
Para exibir a data atual no calendário, cole o código após o item "Private Sub Calendar1_Click ()": Private Sub UserForm_Initialize ()
Calendar1. Today
End Sub
Etapa 9
Para exibir o calendário em qualquer documento criado no modelo, selecione o comando "Inserir" - "Módulo" e digite: Sub OpenCalendar ()
UserForm1. Show
End Sub
Etapa 10
Clique no botão "Salvar" na barra de ferramentas (ou "Arquivo" - "Salvar"). Você pode fechar o editor.
Etapa 11
Para testá-lo, pressione alt="Image" e F8 no Word. Digite “OpenCalendar”, clique em “Executar”. O calendário será aberto. Salve o modelo criado.
