МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РФ
Федеральное государственное бюджетное учреждение высшего профессионального образования
«Юго-Западный государственный университет»
Кафедра ПО и ВТ
Лабораторная работа №4
по дисциплине «Офисные технологии»
на тему
«Обработка строковых выражений в текстовом редакторе Word»
Вариант 1
ВЫПОЛНИЛ:
студент группы ПО-82
Валеев Е.Э.
ПРОВЕРИЛ:
доц. Малышев А.В.
Курск 2012
Цель работы
Изучить встроенные функции VBA для обработки строковых выражений, научиться составлять программы с проверкой многих условий.
Убрать все лишние пробелы между словами (оставить только по одному пробелу).
Программный код
Sub Макрос1()
Selection.WholeStory
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "[ ^s]{2;}"
.Replacement.Text = " "
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
.Text = ""
.Replacement.Text = ""
.MatchWildcards = False
End With
Application.Browser.Target = wdBrowsePage
End Sub