Så här lär du dig ett nytt citat varje dag genom att lägga till en "Citat av dagen" i ditt ord

I dagens inlägg vill vi förklara hur man lägger till funktionen "Dagens citat" i Word för att lära sig nya citat varje dag.

Funktionen "Dagens citat" visar ett nytt citat varje gång du startar Word. Ta bara några sekunder för att läsa ett visdomscitat innan du begraver dig i massor av arbete. Detta kommer att göra dig mycket gott.

Följ därför våra ledningar för att lägga till en sådan funktion i ditt Word nu.

Lägg citat i en Excel-fil

1. Först och främst öppnar du Excel och byter namn på ett nytt ark till "Citat".
2. Nästa inmatning "Antal" i cell A1, "Citat" i cell B1 och "Tider" i cell C1.
3. Fyll sedan kolumn A med serienummer.
4. Lägg till en offert i varje cell i kolumn B.
5. Och mata in numret ”0” i kolumn C.
6. Slutligen namnge Excel-filen som "Dagens citat". Och spara den i en mapp. I vårt fall, efter att vi har sparat filen, ska dess fullständiga adress se ut som nedan:

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

Följaktligen bör du komma ihåg din.

Du kan klicka här. för att ladda ner en exempelfil.

Sätt in en modul i VBA-projektet

1. Till att börja med startar du VBA-redigeraren i Word genom att trycka på "Alt + F11".
2. Klicka på "Normal" på panelen "Projekt" till vänster.
3. Klicka sedan på fliken "Infoga" i menyraden.
4. Och välj ”Modul” på rullgardinsmenyn.
5. Nästa dubbelklicka för att öppna den nya modulen.
6. Klistra in följande koder där:

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. Klicka på knappen "Spara".

Anmärkningar:

I den här kodraden:

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

Kom ihåg att ersätta sökadressen med en faktisk.

Infoga ett användarformulär

Därefter skapar vi ett användarformulär för att visa offerten.

1. I VBA-redigeraren klickar du ändå på fliken "Infoga" igen.
2. Endast den här gången väljer du “UserForm”.
3. Då har du ett användarformulär. Klicka på formulärhandtagen för att ändra storlek på det.
4. Tryck sedan på "F4" för att öppna "Egenskaper" -fönstret. Det kommer att visas i det nedre vänstra hörnet på skärmen.
5. Namnge formuläret som ”frmQuoteOfTheDay” och ställ in dess bildtext som ”Dagens citat”. Dessutom ställer du in teckensnitt och bakgrundsfärg ordentligt. Och välj "Falsk" för "ShowModal".
6. Klicka sedan på "Verktygslåda" -kommandot i menyraden för att ta fram rutan.
7. Använd kontrollerna för att skapa en textruta, en etikett och en kommandoknapp. Ordna dem i följande ordning:
8. Därefter bör du ställa in egenskaper för dessa kontroller.

• Klicka först på etiketten. Ställ in texttexten som ”Dagens citat”. Använd rätt teckenstorlek och ställ in bakgrunden som transparent.
• Klicka sedan på textrutan. Namnge det som “txtQuoteOfTheDay”.
• För det tredje, klicka på kommandoknappen. Namnge det som “btnClose” och ställ in bildtexten som “Close”. Dubbelklicka sedan på knappen "Stäng" för att öppna kodningsområdet. Ange följande koder:

Private Sub btnClose_Click()
  Unload Me
End Sub

9. Slutligen spara koder.

Varje gång du startar Word kommer du att se ett användarformulär som ser ut så här:

Åtgärda ordproblem

Det är oundvikligt att man stöter på det ena eller andra problemet i Word, vilket kan leda till att dokumentet blir skadat. Det viktigaste är att hantera varje kris snabbt och korrekt. Detta kräver dock ett professionellt verktyg för att... återställ docx.

Författarintroduktion:

Vera Chen är en dataåterställningsexpert i DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive skadad Excel och pdf reparera programvaruprodukter. För mer information besök www.datanumen.com