Календар Word (download), MS Office, Програмні керівництва, статті

Чи можна в Word зробити маленький календарик, який можна було б викликати на кнопку на панелі інструментів? На зразок такого, як в Excel або як в 1С?

Можна. У зарубіжному інтернеті є відмінна стаття Мартіна Гріна на цю тему: A Pop-up Calendar for Word.
Мартін дозволив мені скористатися його досвідом і опублікувати цю статтю на моєму сайті. Але перекладати всю статтю не має сенсу: вона велика і детальна; я лише викладу її основні моменти. В результаті, ми повинні отримати приблизно ось такий календар:



Календар буде виділено на формі (з’явиться рамка). Двічі клацніть по ній мишею, щоб перейти у вікно коду до створеної процедурою. Введіть між двома існуючими операторами наступний код:


Selection.Text = Format (Calendar1.Value, “dd mmmm yyyy”) & “Рі.”
Selection.MoveRight Unit:=wdCharacter, Count:=1
Unload Me


Підсумковий код повинен виглядати так:


Private Sub Calendar1_Click() Selection.Text = Format (Calendar1.Value, “dd mmmm yyyy”) & “м.”
Selection.MoveRight Unit:=wdCharacter, Count:=1
Unload Me
End Sub

Цей код вствляет обрану дату з календаря в місце, де знаходиться курсор вводу в документі, а потім курсор введення переміщається на 1 символ вправо (для введення користувачем наступного тексту) і форма закривається.


  • Щоб при відкритті календаря завжди відображалася поточна дата, нижче коду макросу Private Sub Calendar1_Click() вставте наступний код:
    Private Sub UserForm_Initialize()
    Calendar1.Today
    End Sub

  • Для того, щоб календар був доступний завжди, коли відкривається документ (заснований на цьому шаблоні), необхідно додати в наш проект новий модуль і ввести соответствущий код. Для цього в меню Insert виберіть команду Module. Нове (пусте) вікно буде відкрито в редакторі VB. Введіть наступний код:
    Sub OpenCalendar()
    frmCalendar.Show
    End Sub

  • Обов’язково збережіть всі зміни в макросі, натиснувши на кнопку Save на панелі інструментів редактора Visual Basic.
  • Календар готовий і його можна протестувати. Для цього перейдіть у вікно редактора Word і натисніть сполучення клавіш “Alt” + “F8”. Відкриється діалогове вікно Макрос. Знайдіть у списку макросів створений вами макрос OpenCalendar і натисніть кнопку Виконати. Відкриється наш календар. Виберіть у ньому будь-яку дату і клацніть по ній. Дата буде вставлена ​​в документ, а форма календаря закриється.
  • Залишилось зробити лише одну з трьох речей: розмістити кнопку на власній панелі інструментів (див. статті Як створити власну панель інструментів), Або призначити сполучення клавіш для цього макросу (Налаштування сполучень клавіш), Або додати команду виклику календаря в контекстне меню, яке викликається клацанням правої кнопки миші (див. статті Як додати свою команду в контекстне меню Word).

  • Якщо ви працюєте з редактором Word 2007, то всі дії по створенню календаря будуть аналогічними. Різниця може бути лише в розміщенні кнопки макросу на панель швидкого доступу або додавання команди в контекстне меню (див. статті Як додати свої команди в контекстне меню в Word 2007).


    Як я і обіцяв, ви можете завантажити шаблон “Календар Word” (форма завантаження). Розпакуйте шаблон і помістіть його в папку автозавантаження Word, яка приблизно знаходиться за адресою на вашому комп’ютері: C: Documents and SettingsApplication DataMicrosoftWordSTARTUP. Після відкриття документа (створення документа) буде доступна нова панель інструментів із кнопкою виклику календаря.

    Схожі статті:


    Сподобалася стаття? Ви можете залишити відгук або підписатися на RSS , щоб автоматично отримувати інформацію про нові статтях.

    Коментарів поки що немає.

    Ваш отзыв

    Поділ на параграфи відбувається автоматично, адреса електронної пошти ніколи не буде опублікований, допустимий HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

    *

    *