Ответ в Word.
Небольшой макрос, который позволяет использовать редактор MS Word для ответа на определенные сообщения.
Можно добавить на панель инструментов формы чтения почты кнопку с вызовом данной макрокоманды.
Sub Ответить_в_Word()
Dim ItemAs MailItem
Dim RepItem As MailItem
Set Item = ActiveInspector.CurrentItem
Set RepItem = Item.Reply
RepItem.FormDescription.UseWordMail = True
RepItem.Display
End Sub
Корректировка имен.
Иногда при переходе на более новую версию MS Outlook он создает адрес электронной почты элемента в папке "Контакты" в формате: Name (email_adress),
который подставляется при отправке почты в строку адреса.
Адреса получаются слишком длинными.
Что бы из имени адреса отсечь не нужную информацию можно создать и запустить следующий макрос:
Sub ShortNames()
Dim Item As ContactItem
Dim i As Integer
Dim myNS As NameSpace
Dim myFolder As MAPIFolder
Dim myItems As Items
Dim s As String
Dim s1 As String
Dim ind As Integer
Set myNS = Application.GetNamespace("MAPI")
Set myFolder = myNS.GetDefaultFolder(olFolderContacts)
For i = 1 To myFolder.Items.Count
On Error GoTo Ercont
Set Item = myFolder.Items(i)
s = Item.Email1DisplayName
If s = "" Then
GoTo nextcont
End If
ind = InStr(s, "(")
If ind = 0 Then
s1 = Mid(s, 1, ind - 1)
Item.Email1DisplayName = s1
Item.Save
End If
nextcont:
Next i
Exit Sub
Ercont:
Resume nextcont
End Sub
Без проверки. Иногда нужно набрать такое слово, которое ни в каком словаре не найти.
Да и слово встречается редко. Часто такое бывает при работе со специализированными текстами (техническими, медицинскими и т.д.).
При этом система проверки грамматики текстового процессора упорно подчеркивает это слово, как неизвестное.
Да. Можно занести это слово в дополнительный словарь.
А можно просто отметить его как "не проверять грамматику".
Но вот лень в пылу набора хвататься за мышку, вызывать диалог установка параметров языка выделенного текста...
Данный макрос позволяет убрать проверку языка выделения при помощи нажатия комбинации клавиш.
Комбинацию клавиш можно назначить самому в режиме настройки клавиатуры.
Текст макроса следующий:
Sub NoProofing()
i = Selection.Start
j = Selection.End
If Selection.Start = Selection.End Then
Call Selection.MoveLeft(wdWord, 1, wdMove)
Selection.Words(1).Select
End If
Selection.NoProofing = True
Selection.Start = i
Selection.End = j
End Sub
Масштаб. Следующие два макроса позволяют уменьшить или увеличить масштаб отображения документа при помощи клавиатуры.
Назначив эти макросы на нужные комбинации клавиш можно удобно изменять мастаб просмотра.
Текст макросов следующий:
Sub IncreaseZoom()
Dim i As Long
i = Word.ActiveWindow.View.Zoom.Percentage
Word.ActiveWindow.View.Zoom.Percentage = i + 10
End Sub
Sub DecriaseZoom()
Dim i As Long
i = Word.ActiveWindow.View.Zoom.Percentage
Word.ActiveWindow.View.Zoom.Percentage = i - 10
End Sub
| 
