Автозаполнение слова изнутри документа

Использование Office 2013. Я работаю над большим документом Word. Есть куча общих слов. Проблема в том, интересно, можно ли предложить слова из этого документа, пока вы печатаете (на лету)? не могу найти учебник или помощь по этому поводу. Даже в Excel есть такая функциональность. Может быть, какой-нибудь плагин или что-то в этом роде? какие-либо предложения?

Источник

1 ответ

То, что вы искали, было отличной функцией, найденной в Microsoft Word 2003. По какой-то причине они удалили ее в Microsoft Word 2007 только для того, чтобы вернуть ее в Microsoft Word 2010. Я могу только предположить, что эта функция все еще остается в Word 2013.

Во-первых, убедитесь, что Показать предложения автозаполнения включены: Выберите Файл -> Параметры -> Дополнительно -> Параметры редактирования -> Установите флажок Показать предложения автозаполнения.

Вам нужно будет добавить ваши общие слова в качестве автотекста, чтобы они отображались в автокоррекции:

Выделите слово или фразу, которую вы хотите добавить. Допустим, этот текст "Автозаполнение".

  1. Нажмите меню Вставка.
  2. Выберите Quick Parts.
  3. Нажмите " Автотекст" и в раскрывающемся меню выберите " Сохранить выделение в галерее автотекста".
  4. Дайте ему имя, это будут первые несколько букв, которые вы хотите напечатать, чтобы Microsoft Word предложил вместо этого сохраненный текст. Обычно вы делаете это так же, как текст, который вы сохраняете. Вы должны быть в состоянии оставить остальные опции, как они есть.
  5. Нажмите ОК, чтобы закончить.

Теперь, когда вы хотите написать слово "Автозаполнение", вы можете просто набрать "авто", и маленький всплывающий пузырь покажет вам полное слово и попросит нажать ввод, если вы хотите вставить его. Обратите внимание, что вам нужно написать как минимум первые четыре буквы, чтобы всплывающее окно автоматически заполнилось.

Источник

Не совсем то, что вы описываете, но, возможно, полезно: этот макрос автоматически завершит текущее слово, используя словарь проверки орфографии:

Public Sub Autocomplete()

    Dim lastWord As Range
    Set lastWord = Selection.Previous(WdUnits.wdWord)

    On Error Resume Next
    lastWord.Text = lastWord.GetSpellingSuggestions.Item(1).Name
    On Error GoTo 0
    lastWord.InsertAfter " "

    Selection.Move WdUnits.wdWord, 1

End Sub

Я назначил ему сочетание клавиш Ctrl + Space, поэтому, если я наберу

The quick brown fox jmpd|

... и запустить макрос, он автоматически заполняется до

The quick brown fox jumped |

(Запишите положение курсора и вставленный пробел)

Источник
Другие вопросы по тегам