Member 14393657 Ответов: 2

MS word - поиск ключевых слов и удаление предложения

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

Вопрос 1. Выберите лучшее описание "X"
a. [описание 1]
b. [описание 2]
c. [описание 3]
d. [описание 4]

Ответ с

Вопрос 2. Выбирать...........

Ответ d


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

Что я уже пробовал:

Set myRange = ActiveDocument.Range(Start:=0, End:=Selection.End) 
For Each aWord In myRange.Words 
 If aWord.Text = "Answer " Then aWord.Delete 
Next aWord

2 Ответов

Рейтинг:
2

Gerry Schmitz

"Ответ" состоит из двух "слов".

Когда текст = "ответ", удалите текущее слово и "следующее" слово.

Затем переходите к следующему вопросу.

Member 14393657

Привет, Джерри, спасибо тебе за твое решение. Как я могу удалить следующее слово, за которым следует "ответ"? Я не могу повернуть голову, чтобы сделать это, потому что следующее слово зависит от каждого вопроса. Большое спасибо за вашу помощь.

Рейтинг:
1

RickZeeland

Что-то вроде этого:

Sub DeleteAnswers()
	Dim oRng As Word.Range
	Set oRng = ActiveDocument.Range
	With oRng.Find
		.Text = "Answer"
		While .Execute
			With oRng.Paragraphs(1).Range
			If .Characters(1) = "Answer" Then .Delete
			End With
		Wend
	End With
End Sub