Как да научавате нов цитат всеки ден, като добавяте функция „Цитат на деня“ във вашата дума

В днешната публикация искаме да обясним как да добавите функция „Цитат на деня“ във вашия Word, за да научавате нов цитат всеки ден.

Функцията „Цитат на деня“ показва един различен цитат всеки път, когато стартирате Word. Просто отделете няколко секунди, за да прочетете мъдър цитат, преди да се заровите в тонове работа. Това ще ви е от голяма полза.

Затова следвайте нашите указания, за да добавите такава функция във вашия Word сега.

Поставете кавички в файл на Excel

1. Първо, отворете Excel и преименувайте нов лист като „Цитати“.
2. Следва въвеждане на „Number“ в клетка A1, „Quotes“ в клетка B1 и „Times“ в клетка C1.
3. След това попълнете колона А със серийни номера.
4. Добавете по една кавичка във всяка клетка в колона Б.
5. И въведете номер „0“ в колона В.
6. И накрая, наименувайте файла на Excel като „Цитат на деня“. И го запазете в папка. В нашия случай, след като запазихме файла, пълният му адрес ще изглежда както по-долу:

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

Съответно, трябва да запомните своето.

Можете да кликнете върху тук за изтегляне на примерен файл.

Поставете модул в VBA Project

1. Като начало задействайте редактора на VBA в Word, като натиснете „Alt + F11“.
2. В панела „Проект“ вляво щракнете върху „Нормално“.
3. След това щракнете върху раздела „Вмъкване“ в лентата с менюта.
4. И изберете „Модул“ от падащото меню.
5. След това щракнете двукратно, за да отворите новия модул.
6. Сега поставете следните кодове там:

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. Щракнете върху бутона „Запазване“.

Забележка:

В този кодов ред:

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

Не забравяйте да замените адреса на пътя с действителен.

Поставете потребителски формуляр

След това ще създадем потребителска форма, за да покажем офертата.

1. И все пак, в редактора на VBA, щракнете отново върху раздела „Вмъкване“.
2. Само този път вие избирате “UserForm”.
3. Тогава ще имате потребителска форма. Щракнете върху манипулаторите на формуляра, за да го преоразмерите.
4. След това натиснете „F4“, за да отворите прозореца „Properties“. Той ще се появи в левия ъгъл на екрана.
5. Наименувайте формуляра като „frmQuoteOfTheDay“ и задайте заглавието му като „Цитат на деня“. Освен това задайте правилно цвета на шрифта и фона. И изберете „Невярно“ за „ShowModal“.
6. След това щракнете върху командата „Кутия с инструменти“ в лентата с менюта, за да изведете полето.
7. Използвайте контролите, за да създадете текстово поле, етикет и команден бутон. Подредете ги в следния ред:
8. След това трябва да зададете свойства за тези контроли.

• Първо кликнете върху етикета. Задайте текста на надписа като „Цитат на деня“. Приложете правилния размер на шрифта и задайте фона като прозрачен.
• Второ, щракнете върху текстовото поле. Наименувайте го като „txtQuoteOfTheDay“.
• Трето, щракнете върху командния бутон. Наименувайте го като „btnClose“ и задайте надписа като „Close“. След това щракнете двукратно върху бутона „Затвори“, за да отворите областта за кодиране. Въведете следните кодове:

Private Sub btnClose_Click()
  Unload Me
End Sub

9. И накрая, запазете кодовете.

Всеки път, когато стартирате Word, ще виждате потребителски формуляр, подобен на този по-долу:

Отстраняване на проблеми с думи

Неизбежно е да се сблъскате с този или онзи проблем в Word, който може да доведе до повреден документ. Най-важното е да се справите с всяка криза бързо и правилно. Това обаче ще изисква професионален инструмент. възстанови docx.

Въведение на автора:

Вера Чен е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително повреден Excel и pdf ремонт на софтуерни продукти. За повече информация посетете WWW.datanumen.com