Запись макроса

1. Выполните команду Сервис / Макросы / Начать запись.

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

3. В раскрывающемся списке Макрос доступен для следует выбрать файл или шаблон, в который будет сохранен макрос. Если макрос предполагается использовать неоднократно в различных документах, то нужно выбрать параметр Всех документов (Normal.dotm).

4. В поле Описание по умолчанию указывается автор создаваемого макроса и дата создания.

При желании можно изменить эту информацию и/или ввести другие описательные сведения о создаваемом макросе, которые могут помочь пользователям в выборе решения по поводу применения этого макроса.

5. После установки всех параметров создаваемого макроса в окне Запись макроса нажмите кнопку ОК.

6. Перед запуском записи макроса для удобства последующего использования можно создать кнопку панели инструментов (кнопка Панели) или назначить сочетание клавиш клавиатуры, которым будет запускаться макрос (кнопка Клавиши). После создания кнопки или назначения сочетания клавиш (Alt+F11) запись начинается автоматически.

Введите следующий текст макроса:

 

Sub Преобразование()

'

' Преобразование Макрос

' Макрос записан [Дата] Macros1

' Преобразование web-страниц

'

a:

On Error GoTo b

Selection.HomeKey Unit: =wdStory

Selection.GoTo What: =wdGoToTable, Which: =wdGoToNext, Count: =1, Name: =" "

Selection.Rows.ConvertToText Separator: =wdSeparateByParagraphs, _

NestedTables: =True

GoTo a

b:

Selection.HomeKey Unit: =wdStory

With Selection.Find

.Text = " ^g"

.Replacement.Text = " "

End With

Selection.Find.Execute Replace: =wdReplaceAll

With Selection.Find

.Text = " ^l"

.Replacement.Text = " ^p"

End With

Selection.Find.Execute Replace: =wdReplaceAll

With Selection.Find

.Text = " ^p^p"

.Replacement.Text = " ^p"

End With

Selection.Find.Execute Replace: =wdReplaceAll

With Selection.Find

.Text = " ^s"

.Replacement.Text = " "

End With

Selection.Find.Execute Replace: =wdReplaceAll

With Selection.Find

.Text = " "

.Replacement.Text = " "

End With

Selection.Find.Execute Replace: =wdReplaceAll

Оформление

ActiveDocument.Background.Fill.Visible = msoFalse

If ActiveWindow.View.SplitSpecial = wdPaneNone Then

ActiveWindow.ActivePane.View.Type = wdPrintView

Else

ActiveWindow.View.Type = wdPrintView

End If

ActiveDocument.SaveAs FileFormat: =wdFormatDocument

End Sub

Sub Оформление()

'

' Оформление Макрос

' Макрос записан [Дата] Macros1

'

Selection.WholeStory

Selection.Font.Name = " Arial"

Selection.Font.Size = 11

Selection.Font.Color = wdColorAutomatic

With Selection.ParagraphFormat

.LeftIndent = CentimetersToPoints(0)

.RightIndent = CentimetersToPoints(0)

.SpaceBefore = 0

.SpaceAfter = 0

.LineSpacingRule = wdLineSpaceSingle

.FirstLineIndent = CentimetersToPoints(1.25)

End With

Selection.HomeKey Unit: =wdStory

End Sub

Нажмите клавиши Alt + F11.