Фионова Л.Р., Катышева М.А. Делопроизводство в кадровой службе: методические указания к лабораторным работам

Подождите немного. Документ загружается.

Важнейшим свойством VBA является возможность объединять

любые приложения Microsoft Office для выполнения одной или нескольких

задач. Редактор VB – это не только средство редактирования кода, но и

замечательное средство отладки кода и изучения языка Visual Basic, так

как можно в интерактивном режиме проверить действие любой

синтаксической конструкции. Возможности VBA совсем не уступают

другим языкам программирования в Windows и постоянно растут

Программирование панели инструментов позволяет создавать для

приложений пользователя собственный интерфейс, например, исключить

из меню и панелей инструментов основного приложения кнопки и

программы, не относящиеся к разрабатываемому пользователем

приложению и добавить необходимые средства.

Для программирования строк меню и панелей инструментов

используются объект CommandBar и семейство CommandBars. В

семействе CommandBars хранятся все

строки меню и панели

инструментов конкретного приложения. Семейство CommandBars

содержится в объекте Application. Оно представляет собой панели команд.

В свою очередь каждый объект CommandBar содержит семейство

CommandBarControls, состоящее из всех элементов управления данной

панели инструментов. Свойство Controls объекта CommandBar

возвращает семейство CommandBarControls. Элементы семейства

CommandBarControls относятся к одному из трех

типов приведенных в

таблице 1.

Таблица 1 - Элементы семейства CommandBarControls

CommandBarButton

Кнопка или элемент меню, вызывающий

выполнение команды или подпрограммы

CommandBarComboBox

Сложно организованное меню, такие как

поле ввода, раскрывающийся список или

поле со списком

CommandBarPopUp

Меню или вложенное меню

Наиболее часто используемые методы объекта CommandBar

приведены в таблице 2.

Таблица 2 - Методы объекта CommandBar

Add

Создает новую панель команд и добавляет ее в семейство

CommandBars.

Синтаксис:

Add(Name,Position,MenuBar,Temporary)

− Name – имя создаваемой панели команд;

− Position – определяет местоположение панели команд:

¾ msobarleft (привязка строки меню к левой границе

окна основного приложения)

¾ msobartop (привязка строки меню к верхней

границе окна основного приложения)

¾ msobarRight (привязка строки меню к правой

границе окна основного приложения)

¾ msobarBottom (привязка строки меню к нижней

границе окна основного приложения)

¾ msoBarFloating (свободное размещение строки

меню на экране)

¾ msoBarPopup (устанавливает, будет ли панель

команд контекстным меню)

− MenuBar – допустимые значения: True (панель команд

заменяет активную строку меню) и False (в противном

случае)

− Temporary – допустимые значения: True (панель команд

удаляется при закрытии приложения) и False (в противном случае)

Delete

Удаляет панель команд

Reset

Восстанавливает в исходное состояние (по умолчанию)

встроенную панель инструментов

ShowPopUp

Отображает контекстную панель команд в специфицированном

местоположении, если указаны координаты, либо в месте

расположения указателя, если они опущены.

Синтаксис:

ShowPopUp (x, y):

− x – x-координата панели команд

− y – y-координата панели команд

Свойства объекта CommandBar приведены в таблице 3.

Таблица 3 - Свойства объекта CommandBar

Enabled

Определяет возможность доступа к панели команд

Visible

Определяет, видима ли строка панели команд. Например, скрыть

панель инструментов Форматирование можно с помощью

следующей инструкции:

Application. CommandBars(“Formatting”).Visible = False.

Отобразить все панели инструментов можно с помощью

следующей инструкции:

Application. CommandBars. Visible = True

Controls

Возвращает семейство CommandBarControls, состоящее из всех

элементов управления конкретной панели инструментов

Position

Возвращает местоположение панели команд.

Допустимые значения:

− msobarleft (привязка строки меню к левой границе окна

основного приложения);

− msobartop (привязка строки меню к верхней границе

окна основного приложения);

− msobarRight (привязка строки меню к правой границе

окна основного приложения)

− msobarBottom (привязка строки меню к нижней

границе окна основного приложения)

− msoBarFloating (свободное размещение строки меню на

экране)

− msoBarPopup (устанавливает, будет ли панель команд

контекстным меню)

Protection

Устанавливает защиту строки меню от изменений со стороны

пользователя. Допустимые значения: msoBarNoProtection,

msoBarNoCustomise, msoBarNoResize, msoBarNoMove,

msoBarNoChangeVisible, msoBarNoChangeDock,

msoBarNoVerticalDock, msoBarNoHorizontalDock

Наиболее часто используемые панели инструментов:

Formatting – форматирование;

Standard – стандартная;

Drawing – рисование;

Web – Web;

WordArt – WordArt;

Picture – настройка изображения;

Clipboard – буфер обмена.

Семейство CommandBarControls содержит все элементы конкретной

панели инструментов или меню. Важнейшим методом этого семейства

является метод Add, создающий новый элемент.

Синтаксис метода Add приведен в таблице 4

Таблица 4.

Таблица 4 – Метод Add

Add

Добавляет новый элемент на панель управления или в меню. Возвращает

объект CommandBarButton, CommandBarComboBox или CommandBarPopup.

Синтаксис:

− Add ( Type, Id, Parameter, Before, Temporary)

− Type – задает тип добавляемого элемента. Допустимые значения:

¾ msoControlButton (кнопка или элемент меню)

¾ msoControlEdit (поле ввода)

¾ msoControlDropdown (раскрывающийся список)

¾ msoControlComboBox (поле со списком)

¾ msoControlPopup (вложенное меню);

− Id – целое число, идентифицирующее встроенный элемент

управления. Если аргумент Id равен 1 или опущен, то добавляется пустой

элемент управления заданного типа;

− Parameter – задает параметр, используемый встроенным элементом

управления;

− Before – индекс или имя элемента управления, перед которым

добавляется новый элемент управления. Если аргумент опущен, то элемент

размещается в конце панели инструментов или меню;

− Temporary – допустимые значения: True (новый элемент

управления автоматически удаляется из меню или панели инструментов при

закрытии приложения) и False (в противном случае).

Свойства объекта CommandBarControl приведены в таблице 5.

Таблица 5 - Свойства объекта CommandBarControl

Caption

Текстовая строка, отображаемая в заголовке

DescriptionText

Возвращает описание элемента управления

Enabled

Устанавливает, является ли допустимым выбранный

пользователем элемент управления

FaceID

Возвращает номер встроенной кнопки, используемой в

качестве элемента управления. Если это свойство равно

нулю, то возвращается пустой элемент управления

OnAction

Возвращает имя макроса, выполняемого при активизации

элемента управления

ShortcutText

Возвращает комбинацию горячих клавиш, назначенных

элементу управления

Style

Только для объекта CommandBarButton. Устанавливает

внешний вид кнопки. Допустимые значения:

− msoButtonAutomatic (кнопка не содержит текста и

рисунка)

− msoButtonIcon (кнопка содержит рисунок, в этом

случае надо также задать свойство Icon)

− msoButtonCaption (кнопка содержит текст, в этом

случае надо также задать свойство Caption)

− msoButtonIconandCaption (кнопка содержит текст и

рисунок, в этом случае надо также задать свойства Icon и

Caption)

TooltipText

Текст, отображаемый в окне всплывающей подсказки

Visible

Устанавливает режим отображения (видимость) на экране

кнопки

Новая панель инструментов должна создаваться при открытии Word

документа и исчезать при закрытии этого документа. В этом случае в Окне

проекта необходимо выбрать объект ThisDocument и в Окне кода для

объекта Document и события Open ввести код программы на создание

новой панели инструментов.

Пример создания панели инструментов пользователя приведены в

листинге фрагмента программы ниже:

Private Sub Document_Open()

´Скрытие панели инструментов Стандартная, Форматирование

´и Формы при открытии документа

With Application

.CommandBars("Forms").Enabled = False

.CommandBars("Standard").Enabled = False

.CommandBars("Formatting").Enabled = False

End With

´Создание новой панели инструментов с именем Документация

´отдела работы с кадрами, которая будет удаляться при закрытии

´приложения

With Application.CommandBars.Add(Name:="Документация отдела

работы с кадрами", Position:=msoBarTop, MenuBar:=False,

Temporary:=True)

.Visible = True

With .Controls

´Создание меню Прием

With .Add(Type:=msoControlPopup, ID:=1, Before:=1)

.Caption = "Прием"

With .Controls

´Создание кнопки с текстом в меню Прием

With .Add(Type:=msoControlButton, ID:=1, Before:=1)

.Caption = "Штатное расписание"

.OnAction = "штат_1"

End With

With .Add(Type:=msoControlButton, ID:=1, Before:=2)

.Caption = "Приказ о приеме работника"

.OnAction = "прием"

End With

With .Add(Type:=msoControlButton, ID:=1, Before:=3)

.Caption = "Приказ о приеме работников"

.OnAction = "прием_1"

End With

With .Add(Type:=msoControlButton, ID:=1, Before:=4)

.Caption = "Личная карточка работника"

.OnAction = "лич_карт"

End With

With .Add(Type:=msoControlButton, ID:=1, Before:=5)

.Caption = "Личная карточка ГС"

.OnAction = "личкарт_1"

End With

With .Add(Type:=msoControlButton, ID:=1, Before:=6)

.Caption = "Учетная карточка научного,научно-педагогического

работника"

.OnAction = "учеткарт"

End With

….

….. With .Add(Type:=msoControlPopup, ID:=1, Before:=6)

.Caption = "Увольнение"

With .Controls

With .Add(Type:=msoControlButton, ID:=1, Before:=1)

.Caption = "Приказ о прекращении действия трудового договора с

работником"

.OnAction = "прекращение"

End With

With .Add(Type:=msoControlButton, ID:=1, Before:=2)

.Caption = "Приказ о прекращении действия трудового договора с

работниками"

.OnAction = "прекращение_1"

End With

….

…..

….

End Sub

При нажатии на соответствующие кнопки панели инструментов, на

экран будут создаваться новые документы на основе шаблонов.

Пример текста процедур, введенные в Окне кода модуля, приведен

ниже:

Sub прием()

Documents.Add Template:="D:\Шаблоны\табель.dot"

End Sub

Пример созданной панели приведен на рисунке 2.

Рисунок 2 – Панель для работы с кадровыми документами

Порядок выполнения работы

1 Изучить теоретическую часть работы.

2 Скрыть все панели инструментов при открытии документа

программным образом и добавить свою панель инструментов.

3 Добавить на свою панель различные элементы для создания

документов на основе шаблона.

4 Добавить на свою панель кнопку Справка и ввести процедуру,

выводящую информацию о разработчиках программы и правилах работы с ней.

5 Отобразить скрытые панели при закрытии документа и удалить

созданную панель.

Контрольные вопросы

1 Назначение VBA.

2 Что используется в VBA для программирования строк меню и

панелей инструментов?

3 Какие панели инструментов наиболее

часто используются в

работе?

4 Перечислите элементы семейства CommandBarControls.

5 Как скрыть панель инструментов при открытии документов

программным способом?

6 Как создать свою панель инструментов?

7 Как добавить на панель различные элементы?

Библиографический список

1 Альбом унифицированных форм первичной учетной документации

по учету труда и его оплаты. М.: НИПИстатинформ Госкомстата России,

2004, - 75 с.

2 Кузнецова Т.В. Делопроизводство. – М.: ООО «Журнал

«Управление персоналом», 2003. – 408 с.

3 Санкина Л.В. Справочник по кадровому делопроизводству.

Изд. 2-е, доп. и перераб.- М.: МЦФЭР, 2002. – 304 с.

4 Шафрин Ю.А

. Учебник IBM PC. – М.: Бином. Лаборатория

знаний, 2002.- 536 с.

Приложение А

(обязательное)

Унифицированные формы приказов