Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.04.2020, 16:12   #1
pacha.i
Пользователь
 
Регистрация: 06.10.2017
Сообщений: 32
По умолчанию Пустая строка после пробела

Здравствуйте. Документ word состоит из множества страниц, каждая из которых есть столбец слов (словарь). Возле каждого слова присутствуют разные поясняющие символы (напр "имя" или "глагол"). Возможно ли их (символы) как то убрать? Напр. убрать все до конца строки начиная с первого пробела. Все нужные слова выделены жирным шрифтом, а ненужные нет. Спасибо.
pacha.i вне форума Ответить с цитированием
Старый 17.04.2020, 15:31   #2
Fck_This
Пользователь
 
Регистрация: 10.11.2016
Сообщений: 11
По умолчанию

Можно
Код:
Sub DeleteNotBold()
Dim oDoc As Document
Set oDoc = ActiveDocument
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.HomeKey Unit:=wdStory
With Selection.Find
    .Wrap = wdFindContinue
    .Forward = True
    .Font.Bold = 0
    .Text = "[!^0013]"
    .Replacement.Text = ""
    .MatchWildcards = True
    .Execute Replace:=wdReplaceAll
End With
End Sub
Fck_This вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проверить, что строка не пустая - как быстрее xexxex Общие вопросы Delphi 11 23.10.2014 19:33
Пустая строка си Praud Помощь студентам 3 21.12.2013 18:08
Пустая строка в Си приправыч Помощь студентам 1 08.12.2012 15:13
Пустая строка при считывании из БД Sam Gold C/C++ Базы данных 3 27.09.2011 10:30
Пустая строка ForzaJuve Общие вопросы C/C++ 3 13.10.2010 15:41