С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/10: Рейтинг темы: голосов - 10, средняя оценка - 4.50
writerb
0 / 0 / 0
Регистрация: 17.02.2010
Сообщений: 4
1

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

17.02.2010, 21:51. Просмотров 1917. Ответов 7
Метки нет (Все метки)

Собственно нужен макрос, который бы прошел по всему тексту и исправил бы орфографию (там где это возможно)...
Не у кого нет имеется такой?
Или хотяб подскажите как реализовать?
Заранее спасибо
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.02.2010, 21:51
Ответы с готовыми решениями:

Макрос по замене текста во всем документе Word
На просторах интернета нашел вот такой макрос Sub FindInStories() Dim...

Макрос для пересчета числовых даных в базе, после исправления ошибки
Доброй ночи уважаемые господа Что то меня никто не замечает? Может быть нужна...

Приложение позволяющее производить поиск во всем документе, включая колонтитулы
Парни помогите пожалуйста В среде VBA разработать приложение позволяющее...

Макрос по замене слов в документе
Добрый день! Подскажите как можно ускорить роботу макроса который каждое слово...

[? not for lame] Обновление стиля отображения внедренных объектов equation.3 во всем документе
Всем известно, что если сабжевые формулы набирались на одном компе, с одними...

7
Busine2009
Заблокирован
17.02.2010, 21:56 2
writerb,
думаю, что это невозможно - т.к. при возникновении ошибки предлагается выбор.
Как макрос определит, что ему выбрать из списка?
0
writerb
0 / 0 / 0
Регистрация: 17.02.2010
Сообщений: 4
17.02.2010, 22:00  [ТС] 3
Цитата Сообщение от Busine2009 Посмотреть сообщение
writerb,
думаю, что это невозможно - т.к. при возникновении ошибки предлагается выбор.
Как макрос определит, что ему выбрать из списка?
первый из списка чтоб брал)
0
Busine2009
Заблокирован
17.02.2010, 22:03 4
writerb,
не вижу смысла в этом. Если там будет другое окончание.
0
writerb
0 / 0 / 0
Регистрация: 17.02.2010
Сообщений: 4
17.02.2010, 22:04  [ТС] 5
Цитата Сообщение от Busine2009 Посмотреть сообщение
writerb,
не вижу смысла в этом. Если там будет другое окончание.
ОРФО вроде нормальные окнчания делает...
0
Busine2009
Заблокирован
17.02.2010, 22:11 6
writerb,
пока никаких идей нет, запиши макрос с помощью макрорекордера и поищи в справке и в интернете связанное с этим.
Сервис - Макрос - Начать запись - окей - Сервис - Правописание - Заменить.
0
writerb
0 / 0 / 0
Регистрация: 17.02.2010
Сообщений: 4
17.02.2010, 22:21  [ТС] 7
Кажется нашел
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
0
wo9f
0 / 0 / 0
Регистрация: 15.10.2017
Сообщений: 5
15.10.2017, 15:14 8
Привет.
А можно как-то найти макрос, который выделит ячейки с орфографическими ошибками с установленным языком?
Мой вопрос тут Поиск немецких символов в тексте
Но может и здесь я найду ответ?
0
15.10.2017, 15:14
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.10.2017, 15:14

Поиск во всем документе Word, включая колонтитулы, надписи, примечания и сноски
Задание: Разработать приложение позволяющее производить поиск во всем...

Подправить макрос обработки параграфов в документе (MS Word)
Добрый вечер. Данный макрос должен обрабатывать выделенные параграфы в...

Word: макрос, подсчитывающий количество слов в документе
Помогите создать макрос, посчитывающий количество слов в документе!


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru