Visual Basic

Вопрос

Пытаюсь разобраться в хелпе для VB в Word'е, но там очень мало написано по моей теме. Хочу сделать следующее: вставку после курсора текущей даты. В примерах хелпа есть только как вставить дату/время в самый конец документа. А мне нужно туда, где я укажу. И после даты/времени еще в этом же макросе нужно вставлять некий текст, скажем, «час Х», если время на часах — 2 часа ночи. Подскажите, пожалуйста, как мне это написать?

Ответ

Для вставки после курсора ничего особенного делать не надо. Только если что-то выделено, оно пропадет (иначе надо делать

Selection.Collapse wdCollapseEnd

для установки курсора в конец выделения со снятием выделения).

Selection.TypeText Now() If Time() = "2:00:00" Then Selection.TypeText "MyText"
Alex Juice