Макрос исправления правописания во всем документе

@writerb · Регистрация: 17.02.2010

Студворк — интернет-сервис помощи студентам

Собственно нужен макрос, который бы прошел по всему тексту и исправил бы орфографию (там где это возможно)...
Не у кого нет имеется такой?
Или хотяб подскажите как реализовать?
Заранее спасибо

@Busine2009 · 17.02.2010, 21:56

writerb,
думаю, что это невозможно - т.к. при возникновении ошибки предлагается выбор.
Как макрос определит, что ему выбрать из списка?

@writerb · 17.02.2010, 22:00 **[ТС]**

Сообщение от Busine2009

writerb,
думаю, что это невозможно - т.к. при возникновении ошибки предлагается выбор.
Как макрос определит, что ему выбрать из списка?

первый из списка чтоб брал)

@Busine2009 · 17.02.2010, 22:03

writerb,
не вижу смысла в этом. Если там будет другое окончание.

@writerb · 17.02.2010, 22:04 **[ТС]**

Сообщение от Busine2009

writerb,
не вижу смысла в этом. Если там будет другое окончание.

ОРФО вроде нормальные окнчания делает...

@Busine2009 · 17.02.2010, 22:11

writerb,
пока никаких идей нет, запиши макрос с помощью макрорекордера и поищи в справке и в интернете связанное с этим.
Сервис - Макрос - Начать запись - окей - Сервис - Правописание - Заменить.

@writerb · 17.02.2010, 22:21 **[ТС]**

Кажется нашел

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub Auto_Spell()
 
Dim myDoc As Document
Dim SpellSuggs As SpellingSuggestions
 
Set myDoc = ActiveDocument
 
'********* START THE SPELLING CHECK LOOP ********************
 
   Do While myDoc.SpellingErrors.Count >= 1
   'Check to make sure there is at least one spelling error.
 
      Set SpellSuggs = GetSpellingSuggestions(myDoc.SpellingErrors(1).Text)
      'Get the array of spelling suggestions that Word is offering
      'for the first error in the document.
 
      If SpellSuggs.Count >= 1 Then
            'If there are any suggestions, then accept the first suggestion.
            myDoc.SpellingErrors(1).Text = SpellSuggs(1)
      Else
            'If there are NO suggestions, then IGNORE the misspelled word.
            'Note: without this step, we will be stuck in an endless loop
            'that will constantly attempt to get suggestions for this word.
            myDoc.SpellingErrors(1).NoProofing = True
      End If
 
   Loop
 
'********* END THE SPELLING CHECK LOOP **********************
 
End Sub

@wo9f · 15.10.2017, 15:14

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

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .

@writerb 0 / 0 / 0 Регистрация: 17.02.2010 Сообщений: 4

	Макрос исправления правописания во всем документе 17.02.2010, 21:51. Показов 6386. Ответов 7 Метки нет (Все метки) Собственно нужен макрос, который бы прошел по всему тексту и исправил бы орфографию (там где это возможно)... Не у кого нет имеется такой? Или хотяб подскажите как реализовать? Заранее спасибо 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	17.02.2010, 21:56
	writerb, думаю, что это невозможно - т.к. при возникновении ошибки предлагается выбор. Как макрос определит, что ему выбрать из списка? 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	17.02.2010, 22:03
	writerb, не вижу смысла в этом. Если там будет другое окончание. 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	17.02.2010, 22:11
	writerb, пока никаких идей нет, запиши макрос с помощью макрорекордера и поищи в справке и в интернете связанное с этим. Сервис - Макрос - Начать запись - окей - Сервис - Правописание - Заменить. 0

@wo9f 0 / 0 / 0 Регистрация: 15.10.2017 Сообщений: 14
	15.10.2017, 15:14
	Привет. А можно как-то найти макрос, который выделит ячейки с орфографическими ошибками с установленным языком? Мой вопрос тут Поиск немецких символов в тексте Но может и здесь я найду ответ? 0