Управление элементами интерфейса WinWord
Управление линейкой (оставлено для совместимости с предыдущими версиями WordBasic): ViewRibbon, ViewRibbon().
Синтаксис:
ViewRibbon [вкл_выкл]
вкл_выкл - 0 - не показывать
1 - показывать
опущено - изменяет значение переключателя на противоположное (инвертирует его).
Функция ViewRibbon() возвращает – 1, если линейка видна, 0, если нет.
Пример: макрокоманда инвертирует переключатель определяет видна Линейка форматирования
или нет.
Sub MAIN
If SelInfo(27) = - 1 Then FileNewDefault
ViewRibbon
n = ViewRibbon()
If n = 0 Then
MsgBox "Линейка форматирования спрятана."
Else
MsgBox "Линейка форматирования видна."
End If
End Sub
Управление Линейкой: ViewRuler, ViewRuler()
Синтаксис:
ViewRuler [On]
ViewRuler()
Пример:
Sub MAIN
If SelInfo(27) = - 1 Then FileNewDefault
ViewRuler 1
n = ViewRuler()
If n = 0 Then
MsgBox "The Ruler is hidden."
Else
MsgBox "The Ruler is visible."
End If
End Sub
Оператор ViewMenus()
Синтаксис:
ViewMenus()
Пример:
Sub Main
n = ViewMenus()
If n = 1 Then
MsgBox "The full menu bar is not displayed."
Else
MsgBox "The full menu bar is displayed."
End If
End Sub
Управление показом линейки статуса: ViewStatusBar, ViewStatusBar()
Синтаксис:
ViewStatusBar [On]
ViewStatusBar()
Пример:
Sub MAIN
ViewStatusBar 0
n = ViewStatusBar()
If n = 0 Then
MsgBox "Строка статуса не видна."
Else
MsgBox " Строка статуса не видна."
End If
End Sub
Для того чтобы вставить в текст текущую дату, проще всего воспользоваться функцией Date$(), возвращающей ее в символьном виде. В русифицированной версии дата возвращается в формате ДД.ММ.ГГ.
Вся работа с календарными датами построена на понятии последовательного номера дня. Этот номер вычисляется функцией Now(), которая возвращает последовательный номер (SN), соответствующий текущей системной дате (правая чисть) и времени (цифры после десятичной точки).
Другие функции преобразуют этот последовательный номер в нужное им возвращаемое значение.
Функция Year(SerialNumber) возвращает целочисленное значение от 1899 до 4095, соответствующее компоненте “год” в SerialNumber. Пример:
yr = Year(Now())
insert Right$(Str$(yr),2)
mns = Manth (Now())
dy = Day (Now())
Для преобразования календарных дат введенных пользователем (т.е. из символьного вида в число), служит функция DateValue().
