none
Outlook Заменить прямые кавычки парными через GPO или скриптом RRS feed

  • Вопрос

  • Доброго времени суток.

    Поставлена задача при помощи GPO или VBS скриптом  убрать со всех Аутлуков чекбокс Автозамена - автоформат при вводе - заменять при вводе парные кавычки прямыми.

    1. Скрипт на VBS

    'On Error Resume Next
    Dim outA
    Set outA = CreateObject("Outlook.Application")
    Set objOptions = outA.Options
    objOptions.AutoFormatAsYouTypeReplaceQuotes = False
    objOptions.AutoFormatReplaceQuotes = False
    outA.Quit

    Не работает, пишет Метод  outA.Options не поддерживается.

    GPO

    REGEDIT4

    [HKEY_CURRENT_USER\Software\Policies\Microsoft\Office\16.0\outlook\options\assist]
    "fsmartquote_8_1"=dword:00000000

    Аналогично - не работает, параметр игнорируется.

    Вопрос - как этот процесс автоматизировать, может параметры реестра другие для аутлуков?

    17 июля 2021 г. 13:11

Ответы

  • Экспериментальным методом всё-таки удалось составить скрипт по отключению автозамены кавычек в Outlook.

    'On Error Resume Next
    Set objWord = CreateObject("Word.Application")
    'objWord.Visible = True
    Set objOptions = objWord.EmailOptions
    objOptions.AutoFormatAsYouTypeReplaceQuotes = False
    'objOptions.AutoFormatReplaceQuotes = False
    ObjWord.Quit

    21 июля 2021 г. 13:53

Все ответы

  • Здравствуйте

    Я поискал информацию по Вашему вопросу, но к сожалению на данный момент я нашел только следующее:

    As far as I know, the registry setting for the "Straight quotes" with "smart quotes" under the "AutoFormat As You Type" is [HKEY_CURRENT_USER\Software\Policies\Microsoft\office\16.0\word\options\assist] "fSmartQuote_8_1"=dword:00000000 or dword:00000001.

    However, there is no any article mentioning the setting for the "Straight quotes" with "smart quotes" under  the "AutoFormat" tab.

    The settings are stored in the registry, but unfortunately in a binary "blob" in the Settings value under the key HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Word\Data.


    Мнения, высказанные здесь, являются отражением моих личных взглядов, а не позиции корпорации Microsoft. Вся информация предоставляется "как есть" без каких-либо гарантий.

    19 июля 2021 г. 18:49
    Модератор
  • Экспериментальным методом всё-таки удалось составить скрипт по отключению автозамены кавычек в Outlook.

    'On Error Resume Next
    Set objWord = CreateObject("Word.Application")
    'objWord.Visible = True
    Set objOptions = objWord.EmailOptions
    objOptions.AutoFormatAsYouTypeReplaceQuotes = False
    'objOptions.AutoFormatReplaceQuotes = False
    ObjWord.Quit

    21 июля 2021 г. 13:53
  • Спасибо, что поделились Вашим решением!

    Мнения, высказанные здесь, являются отражением моих личных взглядов, а не позиции корпорации Microsoft. Вся информация предоставляется "как есть" без каких-либо гарантий.

    21 июля 2021 г. 18:41
    Модератор