Ответы 05/04/2018 (Office Killer)

tDots

Вопрос 1

Стандартными средствами сделать такое нельзя. Но можно написать макрос, который будет создавать копию сообщения, удалять вложения и перемещать в нужную папку. Вот его код. В данном случае письмо перемещается в папку "Спам", которая создана в папке "Входящие". Как привязать запуск кода к правилу и куда вставлять сам код - читайте в нашей статье. Там всё подробно написано.

Sub CopyWithoutAtt(itm As Outlook.MailItem)
 
Dim NS As Outlook.NameSpace
Dim myInb As Outlook.Folder
Dim myDF As Outlook.Folder
Dim objAtt As Outlook.Attachment
Dim cItem As Outlook.MailItem

Set NS = Application.GetNamespace("MAPI")
Set myInb = NS.GetDefaultFolder(olFolderInbox)
'задали подпапку, созданную в папке "Входящие"
Set myDF = myInb.Folders("Спам")
'копируем полученное сообщение
Set cItem = itm.Copy
'удаляем вложения
While cItem.Attachments.Count > 0
    cItem.Attachments.Remove 1
Wend
'перемещаем в заданную папку
cItem.Move myDF
End Sub

Вопрос 2

1) Можно сделать замену быстрее. Введите в поле найти ^p^w, а в поле заменить на - ^p^t. Пробелы в начале строки (вернее, после символов абзаца) заменятся на знак табуляции.

2) Видимо речь о знаке разрыва строки. Выполните автозамену, указав в поле найти знак "Разрыв строки" из списка "Сцепиальные знаки". Замените его на знак Абзаца.

Вопрос 3

Ответили в этом уроке на канале.

Вопрос 4

Стандартными средствами такое реализовать никак нельзя. Только через VBA при создании письма. И даже так - это достаточно сложно и скорее всего не оправданно. Направление подскажем. Вот такой код создает новое письмо с вложением файла 1.xlsb с рабочего стола и ссылкой на это вложение в тексте письма. Копать нужно в эту сторону. Но работать будет только в Outlook.

Sub CreateAttWithHL()
Dim msg As Outlook.MailItem
Set msg = Application.CreateItem(0)
msg.Display
msg.HTMLBody = "<html><body>Кликните <a href=""cid:FirstAtt"">тут</a> , чтобы открыть вложение</body></html>"
Set attach = msg.Attachments.Add("C:\Users\Igor Solobay\Desktop\1.xlsb")
attach.PropertyAccessor.SetProperty "http://schemas.microsoft.com/mapi/proptag/0x3712001F", "FirstAtt"

End Sub

Офисная рутина жутко утомляет. Мы снимаем стресс и расслабляемся, используя методику Coloring Pages. Попробуйте начать вот с какого-нибудь рисунка

Вопрос 5

Всё зависит от того, по какой причине возникли эти пробелы. Вариантов - множество. Вот некоторые:

Если это множество идущих подряд пробелов - используйте прием из этого урока.
Если это следствие разрыва строки, то перейдите в "Файл" - "Параметры" - "Дополнительно" и поставьте вот эту галочку

Еще вариант - выделить и скопировать большой пробел. Нажать Ctrl+H. Вставить его в поле "Найти". В поле "Заменить на" вставить обычный пробел и нажать "Заменить все".

Если ничего не помогло - пришлите нам проблемный файл. Можно не весь, а только пару абзацев с проблемой. Обязательно найдем решение.

Вопрос 6

Если Вы вводили текст на слайдах в поля, предуспотренные макетом, то можно выделить все слайды и изменить макет сразу на всех. Или сбросить его. Эти команды доступны на вкладке "Главная" в группе "Слайды".

Если же Вы не использовали макеты, а просто произвольно добавляли на слайды текст (например, через объект Надпись), то придется все править вручную. И в следующий раз использовать макеты ;)

Вопрос 7

Функция создания автореферата была доступна последний раз в версии Word 2007. В более новых она отсутствует. Можете установить старую версию и попробовать функцию. Но ожидать от нее супер-результат не стоит. Она поможет создать хорошую основу, но подправлять придется руками. Да и с русским языком может работать не так хорошо, как с английским. В рамках MS Office других вариантов нет.

Можно также поискать в Интернете другое ПО, решающее аналогичную задачу.

Вопрос 8

Вертикально прокручивать мышью целые страницы нельзя. Можно выбрать на вкладке "Вид" команду "Одна страница", чтобы на экране была страница целиком, и листать их клавишами PageUp/PageDown. Еще вариант - переключить на вкладке "Вид" тип прокрутки с вертикальной на горизонтальную. Тогда колесом мыши можно будет листать строго по одной странице, но не вверх/вниз, а вправо/влево.

Поддержать наш проект и его дальнейшее развитие можно вот здесь.

Ваши вопросы по данной статье можете задавать через нашего бота обратной связи в Telegram: @KillOfBot

Друзья, если у Вас есть вопросы по Excel, то их нужно задавать вот этом боту @ExEvFeedbackBot, а ответы искать на вот этом канале: Excel Everyday

С уважением, команда tDots.ru