Jak se každý den naučit novou nabídku přidáním funkce „Citát dne“ do vašeho slova

V dnešním příspěvku vám chceme vysvětlit, jak si do Wordu přidat funkci „Citát dne“, abyste se každý den dozvěděli nový citát.

Funkce „Citát dne“ zobrazuje jeden jiný citát pokaždé, když spustíte Word. Než se ponoříte do hromady práce, věnujte pár chvil přečtení moudrého citátu. To vám velmi prospěje.

Proto nyní přidejte takovou funkci do svého Wordu podle našich pokynů.

Vložte nabídky do souboru aplikace Excel

1. Nejprve otevřete Excel a přejmenujte nový list na „Citáty“.
2. Dále zadejte „Číslo“ do buňky A1, „Nabídky“ do buňky B1 a „Časy“ do buňky C1.
3. Poté vyplňte sloupec A sériovými čísly.
4. Přidejte jednu nabídku do každé buňky ve sloupci B.
5. A ve sloupci C zadejte číslo „0“.
6. Nakonec pojmenujte soubor Excel jako „Citát dne“. A uložte jej do složky. V našem případě po uložení souboru bude jeho úplná adresa vypadat takto:

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

Podle toho byste si měli pamatovat na své.

Můžete kliknout zde stáhnout ukázkový soubor.

Vložte modul do projektu VBA

1. Nejprve spusťte editor VBA v aplikaci Word stisknutím kláves „Alt + F11“.
2. Na panelu „Projekt“ vlevo klikněte na „Normální“.
3. Poté na panelu nabídek klikněte na kartu „Vložit“.
4. V rozevírací nabídce vyberte možnost „Modul“.
5. Dalším dvojitým kliknutím otevřete nový modul.
6. Nyní tam vložte následující kódy:

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. Klikněte na tlačítko „Uložit“.

Hodnocení:

V tomto řádku kódu:

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

Nezapomeňte nahradit adresu cesty skutečnou.

Vložte uživatelský formulář

Dále vytvoříme uživatelský formulář pro zobrazení nabídky.

1. Přesto v editoru VBA znovu klikněte na kartu „Vložit“.
2. Pouze tentokrát zvolíte „UserForm“.
3. Pak budete mít uživatelský formulář. Kliknutím na úchyty formuláře změníte jeho velikost.
4. Poté stiskněte „F4“ pro otevření okna „Vlastnosti“. Zobrazí se v levém dolním rohu obrazovky.
5. Pojmenujte formulář jako „frmQuoteOfTheDay“ a nastavte jeho titulek jako „Citát dne“. Kromě toho správně nastavte barvu písma a pozadí. A vyberte si "Nepravdivé" pro „ShowModal“.
6. Poté kliknutím na příkaz „Toolbox“ v pruhu nabídky pole vyvolejte.
7. Pomocí ovládacích prvků vytvořte textové pole, štítek a příkazové tlačítko. Uspořádejte je v následujícím pořadí:
8. Dále byste měli nastavit vlastnosti těchto ovládacích prvků.

• Nejprve klikněte na štítek. Nastavte text titulku jako „Citát dne“. Použijte správnou velikost písma a nastavte pozadí jako průhledné.
• Za druhé klikněte na textové pole. Pojmenujte jej jako „txtQuoteOfTheDay“.
• Za třetí, klikněte na příkazové tlačítko. Pojmenujte jej jako „btnClose“ a nastavte titulek jako „Zavřít“. Poté poklepáním na tlačítko „Zavřít“ otevřete oblast kódování. Zadejte následující kódy:

Private Sub btnClose_Click()
  Unload Me
End Sub

9. Nakonec uložte kódy.

Pokaždé, když spustíte Word, uvidíte uživatelský formulář, jako je tento:

Opravte problémy se slovy

Je nevyhnutelné setkat se s tím či oním problémem ve Wordu, který může vést k poškození dokumentu. Nejdůležitější je každou krizi řešit rychle a správně. To však bude vyžadovat profesionální nástroj. obnovit docx.

Úvod autora:

Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně poškozený Excel a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com