Como aprender uma nova citação todos os dias adicionando um recurso de “Citação do dia” em seu Word

Na publicação de hoje, queremos explicar como adicionar um recurso de "Citação do Dia" no seu Word para aprender uma nova citação todos os dias.

O recurso "Citação do Dia" exibe uma citação diferente a cada vez que você inicia o Word. Reserve alguns segundos para ler uma citação inspiradora antes de mergulhar em uma pilha de tarefas. Isso lhe fará muito bem.

Portanto, siga nossas dicas para adicionar esse recurso ao seu Word agora.

Colocar citações em um arquivo do Excel

1. Em primeiro lugar, abra o Excel e renomeie uma nova planilha como “Citações”.
2. Em seguida, insira “Number” na célula A1, “Quotes” na célula B1 e “Times” na célula C1.
3. Em seguida, preencha a coluna A com números de série.
4. Adicione uma citação em cada célula na coluna B.
5. E insira o número “0” na coluna C.
6. Por fim, nomeie o arquivo do Excel como “Cotação do dia”. E salve em uma pasta. No nosso caso, após salvarmos o arquivo, seu endereço completo ficará conforme abaixo:

C:\Users\Public\Documents\Sample\Quote of the Day.xlsx

Assim, você deve se lembrar do seu.

Você pode clicar aqui. para baixar um arquivo de amostra.

Inserir um Módulo no Projeto VBA

1. Para começar, acione o editor VBA no Word pressionando “Alt+F11”.
2. No painel “Projeto” à esquerda, clique em “Normal”.
3. Em seguida, clique na guia "Inserir" na barra de menu.
4. E escolha “Módulo” no menu suspenso.
5. Em seguida, clique duas vezes para abrir o novo módulo.
6. Agora cole os seguintes códigos lá:

Sub AutoExec()
  Dim objExcel As Excel.Application
  Dim objWorkbook As Excel.Workbook
  Dim objWorksheet As Excel.Worksheet
  Dim nRowIndex As Integer
  Dim nMinValue As Integer
  Dim nMinRowIndex As Integer
 
  Set objExcel = CreateObject("Excel.Application")
  Set objWorkbook = objExcel.Workbooks.Open("C:\Users\Public\Documents\Sample\Quote of the Day.xlsx")
  Set objWorksheet = objWorkbook.Sheets("Quotes")
 
  ' Initialization
  nMinValue = 0
  nMinRowIndex = -1
 
  For nRowIndex = 2 To objWorksheet.UsedRange.Rows.Count
    If (nMinRowIndex = -1) Then
      nMinValue = objWorksheet.Cells(nRowIndex, 3).Value
      nMinRowIndex = nRowIndex
    Else
      If (objWorksheet.Cells(nRowIndex, 3).Value < nMinValue) Then
        nMinValue = objWorksheet.Cells(nRowIndex, 3).Value
        nMinRowIndex = nRowIndex
      End If
    End If
  Next nRowIndex
 
  frmQuoteOfTheDay.txtQuoteOfTheDay.text = objWorksheet.Cells(nMinRowIndex, 2).Value
  frmQuoteOfTheDay.Show Modal
 
  objWorksheet.Cells(nMinRowIndex, 3).Value = objWorksheet.Cells(nMinRowIndex, 3).Value + 1
 
  objWorkbook.Close SaveChanges:=True
  ' Close Excel using Quit method on the Application object.
  objExcel.Application.Quit
  '  Release the object variable.
  Set objExcel = Nothing
End Sub

7. Clique no botão "Salvar".

Observação:

Nesta linha de código:

Set objWorkbook = objExcel.Workbooks.Open("C:\Users\Public\Documents\Sample\Quote of the Day.xlsx")

Lembre-se de substituir o endereço do caminho por um real.

Inserir um formulário de usuário

Em seguida, criaremos um formulário de usuário para mostrar a cotação.

1. Ainda assim, no editor VBA, clique na guia “Inserir” novamente.
2. Só que desta vez, você escolhe “UserForm”.
3. Então você terá um formulário de usuário. Clique nas alças do formulário para redimensioná-lo.
4. Em seguida, pressione “F4” para abrir a janela “Propriedades”. Ele aparecerá no canto inferior esquerdo da tela.
5. Nomeie o formulário como “frmQuoteOfTheDay” e defina sua legenda como “Citação do dia”. Além disso, defina a fonte e a cor de fundo corretamente. E escolha "Falso" para o “MostraModal”.
6. Em seguida, clique no comando “Caixa de ferramentas” na barra de menu para abrir a caixa.
7. Use os controles para criar uma caixa de texto, um rótulo e um botão de comando. Organize-os na seguinte ordem:
8. Em seguida, você deve definir propriedades para esses controles.

• Primeiro, clique no rótulo. Defina o texto da legenda como "Citação do dia". Aplique o tamanho de fonte adequado e defina o plano de fundo como transparente.
• Em segundo lugar, clique na caixa de texto. Nomeie-o como “txtQuoteOfTheDay”.
• Em terceiro lugar, clique no botão de comando. Nomeie como “btnClose” e defina a legenda como “Close”. Em seguida, clique duas vezes no botão "Fechar" para abrir a área de codificação. Digite os seguintes códigos:

Private Sub btnClose_Click()
  Unload Me
End Sub

9. Por fim, salve os códigos.

Sempre que você iniciar o Word, verá um formulário de usuário como o abaixo:

Corrigir problemas de palavras

É inevitável deparar-se com um ou outro problema no Word que pode levar à corrupção do documento. O mais importante é lidar com cada crise de forma rápida e adequada. Isso, no entanto, exigirá uma ferramenta profissional para... recuperar docx.

Introdução do autor:

Vera Chen é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo Excel danificado e pdf reparar produtos de software. Para mais informações visite www.datanumen.com