Замена фразы, соответствующей шаблону, в Word

@MrGaribaldi · Регистрация: 25.06.2017

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

Word файл содержит текст с разными шрифтами, а так же таблицы/картинки. Требуется в нём найти текст соответствующий одному из 4 шаблонов и удалить. Текст может быть и в ячейках таблиц где разное форматирование.
1. Есть ли способ, как стандартный вордовский по замене, не обращая внимания на формат соседних элементов и искомого?
2. Возможна ли запись в ячейку таблицы word-документа текста, имеющего различный формат, например:
Жирный:
остальной текст.

FlasherX · 01.05.2018, 12:22

1. Смотря что называть форматом и элеменами.
2. Да.

@MrGaribaldi · 02.05.2018, 07:51 **[ТС]**

1. Текст в ячейках таблиц жирный и обычный, нужно удалить часть нежирного текста. Взяв текст из ячейки удалив лишнее не удаётся записать обратно сохранив исходные шрифты: Cell.Range.Font.Bold устанавливает жирность для всей ячейки, а Cell.Range.Text заменяет данные целиком, отсюда и возникает второй вопрос. Но конечно хочется использовать более простой способ по замене, тем более что в ворде это давно есть.
2. В поиске нашёл возможность сделать с помощью Characters, но у меня не получилось применить этот метод к ячейке таблицы с помощью vbs.

FlasherX · 08.05.2018, 16:34

MrGaribaldi, у меня сейчас накладки с Офисом. Пока не могу детально помочь.
Вы после записи макроса из vba-отладчика код тянуть не пробовали?

@MrGaribaldi · 11.05.2018, 07:50 **[ТС]**

FlasherX, Использую vbs, пишу в notepad++, отладчика стороннего нет.

FlasherX · 11.05.2018, 08:35

MrGaribaldi, т. е. "стороннего"? Вы вообще с макросами дело имели? В параметрах установки Office по умолчанию включаются Общие средства Office с компонентом Visual Basic для приложений. На современных версиях на вкладке Вид есть кнопка Макрос. Там запись и просмотр с переходом к редактированию.

@MrGaribaldi · 19.05.2018, 10:52 **[ТС]**

FlasherX, Когда-то очень давно имел, сейчас для меня это дремучий лес. Поэтому и создаю сценарии, которые должны работать для сотен файлов и для этого начал изучать vbs. Но проблема со скудными материалами для изучения вскрытия и работы с вордом, отсюда и вопросы...

FlasherX · 19.05.2018, 14:27

MrGaribaldi, VBA имеет тот же синтаксис, только свои объекты подключаются иначе, а константы именные. Записывайте макрос со всеми требуемыми манипуляциями, потом тащите код из встроенного отладчика. Подстроить его под vbs не так сложно, даже без изучения vba. Но вообще книг по VBA море.

@MrGaribaldi · 21.05.2018, 19:12 **[ТС]**

Есть ли возможность с помощью Replace удалить пустые абзацы(банальные лишние Enter) в Word?
Пробовал Replace(mas, vbCr & Chr(7), "") или как советовали в интернете Chr(10) или подобное, но от него толку нет.
Сделал с помощью регулярных выражений:

Visual Basic

Set objRegEx = CreateObject("VBScript.RegExp")
objRegEx.Pattern = "(?:(^)[\n\r]+|(\r?\n)[\n\r]*)"
objRegEx.IgnoreCase = True
objRegEx.Global = True

objRegEx.Replace(Cell.Range.Text, "$1$2")

Но компьютер довольно долго выполняет теперь скрипт.

FlasherX · 21.05.2018, 21:06

Да, это будет небыстро. А если в цикле по разным кускам документа, то тем более.
(^) - не понял смысла. IgnoreCase тут не нужен. Пример без Word'a:

Visual Basic

Text = "(" & String(4, vbLf) & "строка1" & String(3, vbCrLf) & "строка2" & vbLf & "строка3" & String(2, vbCrLf) & "строка4" & String(2, vbCr) & ")"
With New RegExp
  .Global = True : .Pattern = "[\r\n]+(?=\r|\n)"
  MsgBox "До:" & vbCr & Text
  MsgBox "После:" & vbCr & .Replace(Text, "")
End With

@MrGaribaldi 0 / 0 / 0 Регистрация: 25.06.2017 Сообщений: 30
		1
	VBS Замена фразы, соответствующей шаблону, в Word 28.04.2018, 14:56. Показов 2197. Ответов 9 Метки нет (Все метки) Word файл содержит текст с разными шрифтами, а так же таблицы/картинки. Требуется в нём найти текст соответствующий одному из 4 шаблонов и удалить. Текст может быть и в ячейках таблиц где разное форматирование. 1. Есть ли способ, как стандартный вордовский по замене, не обращая внимания на формат соседних элементов и искомого? 2. Возможна ли запись в ячейку таблицы word-документа текста, имеющего различный формат, например: Жирный: остальной текст. 0

FlasherX 6228 / 2670 / 1051 Регистрация: 06.06.2017 Сообщений: 9,128
	01.05.2018, 12:22	2
	1. Смотря что называть форматом и элеменами. 2. Да. 0

@MrGaribaldi 0 / 0 / 0 Регистрация: 25.06.2017 Сообщений: 30
	02.05.2018, 07:51 [ТС]	3
	1. Текст в ячейках таблиц жирный и обычный, нужно удалить часть нежирного текста. Взяв текст из ячейки удалив лишнее не удаётся записать обратно сохранив исходные шрифты: Cell.Range.Font.Bold устанавливает жирность для всей ячейки, а Cell.Range.Text заменяет данные целиком, отсюда и возникает второй вопрос. Но конечно хочется использовать более простой способ по замене, тем более что в ворде это давно есть. 2. В поиске нашёл возможность сделать с помощью Characters, но у меня не получилось применить этот метод к ячейке таблицы с помощью vbs. 0

FlasherX 6228 / 2670 / 1051 Регистрация: 06.06.2017 Сообщений: 9,128
	08.05.2018, 16:34	4
	MrGaribaldi, у меня сейчас накладки с Офисом. Пока не могу детально помочь. Вы после записи макроса из vba-отладчика код тянуть не пробовали? 0

@MrGaribaldi 0 / 0 / 0 Регистрация: 25.06.2017 Сообщений: 30
	11.05.2018, 07:50 [ТС]	5
	FlasherX, Использую vbs, пишу в notepad++, отладчика стороннего нет. 0

FlasherX 6228 / 2670 / 1051 Регистрация: 06.06.2017 Сообщений: 9,128
	11.05.2018, 08:35	6
	MrGaribaldi, т. е. "стороннего"? Вы вообще с макросами дело имели? В параметрах установки Office по умолчанию включаются Общие средства Office с компонентом Visual Basic для приложений. На современных версиях на вкладке Вид есть кнопка Макрос. Там запись и просмотр с переходом к редактированию. 0

@MrGaribaldi 0 / 0 / 0 Регистрация: 25.06.2017 Сообщений: 30
	19.05.2018, 10:52 [ТС]	7
	FlasherX, Когда-то очень давно имел, сейчас для меня это дремучий лес. Поэтому и создаю сценарии, которые должны работать для сотен файлов и для этого начал изучать vbs. Но проблема со скудными материалами для изучения вскрытия и работы с вордом, отсюда и вопросы... 0

FlasherX 6228 / 2670 / 1051 Регистрация: 06.06.2017 Сообщений: 9,128
	19.05.2018, 14:27	8
	MrGaribaldi, VBA имеет тот же синтаксис, только свои объекты подключаются иначе, а константы именные. Записывайте макрос со всеми требуемыми манипуляциями, потом тащите код из встроенного отладчика. Подстроить его под vbs не так сложно, даже без изучения vba. Но вообще книг по VBA море. 0

	21.05.2018, 21:06

Замена фразы, соответствующей шаблону, в Word

Решение