Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Удаление лишних пробелов Word, vba 
:(
    Опции темы
Ganoci
Дата 13.8.2012, 16:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 78
Регистрация: 8.2.2008

Репутация: нет
Всего: нет



Ребят помогите проблему решить.
В общем создаю код который бы форматировал документ (документ всегда стандартный, т.к. выгружается из определенной ИС и там куча ляпов которые нужно редактировать).

Одним из фрагментов редактирования является удаление лишних пробелов (2 и более).
Долго заморачиваться не стал и записал макрос:

Код
' DeleteSpace Макрос
' Удаление лишних пробелов
'
    Selection.WholeStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = " {2;}"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll


Другого способа я не знаю.
По результатам выполнения этого кода цель достигается, только всегда выскакивает такое сообщение:
user posted image
Это конечно не смертельно, но хотелось бы его убрать что ли. Что бы оно либо не появлялось вообще, либо автоматически кнопка "нет" нажималась.

Можно ли решить эту проблему? Помогите пожалуйста.
PM MAIL   Вверх
dorogoyIV
Дата 14.8.2012, 11:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1503
Регистрация: 26.3.2007

Репутация: 4
Всего: 46



Код

Sub MyMacro()
    With ActiveDocument.Content.Find
        While .Execute
            .Execute FindText:="  ", ReplaceWith:=" ", Replace:=wdReplaceAll
        Wend
    End With
End Sub

PM MAIL   Вверх
dorogoyIV
Дата 25.8.2012, 14:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1503
Регистрация: 26.3.2007

Репутация: 4
Всего: 46



блин, зря писал  smile 

Ganoci после 13,08,2012 так и не появлялся на форуме smile  (хотя возможно анонимно...)
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами



  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела


Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »


 




[ Время генерации скрипта: 0.0602 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.