Швидке введення тексту за допомогою команди = rand (), MS Office, Програмні керівництва, статті

Вручну вводити цю команду = rand () не завжди буває зручно. Тому краще мати її завжди під рукою, а точніше – мати її доданої в контекстне меню, яке викликається по клацанню правою кнопкою миші. Тоді не доведеться згадувати її синтаксис і вводити руками:



Якщо ви хочете додати цю команду в контекстне меню, відкрийте ваш шаблон Normal.dot (Normal.dotm) в редакторі Word та / або викличте редактор Visual Basic за допомогою комбінації клавіш «Alt» + «F11». Потім перейдіть на проект шаблону і вставте новий модуль для макросів.
У вікні редагування коду вставте наступний код:

“Макроси для роботи з контекстним меню “Оголошуємо змінні глобальні для даного модуля
Dim cb As CommandBar
Dim cbb As CommandBarButton
Dim cbc As CommandBarControl
 
Sub insRand() “Вставка команди” = rand () “в контекстне меню
CustomizationContext = NormalTemplate
Set cb = CommandBars(“text”)
Set cbc = cb.FindControl(Tag:=”rand”)
If Not cbc Is Nothing Then Exit Sub
Set cbb = cb.Controls.Add(msoControlButton, , , 1)
With cbb . Caption = “= rand () – зразок тексту”
.FaceId = 488
.Tag = “rand” . OnAction = “rand” “викликаємо макрос введення команди (наведено нижче)
End With
End Sub
 
Sub rand() “Макрос введення команди” = rand () ”
Selection.TypeText Text:=”=rand()”
SendKeys “{ENTER}”
End Sub
 
Sub resetContextMenu()
CustomizationContext = NormalTemplate
Set cb = CommandBars(“text”)
cb.Reset
End Sub

Після вставки даного коду виконайте першу процедуру “insRand”. Команда “= rand ()” з’явиться в контекстному меню.
Якщо ви захочете відновити контекстне меню до початкового стану, то виконати третій процедуру “resetContextMenu”.

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


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

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

Ваш отзыв

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

*

*