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

Предоплата всего

Подписываем
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Неформатований текст
ТЕКСТ ДЛЯ ОБРОБКИ
Макроси. Запис, виконання та правка
Автоматизація виконання задач за допомогою макросів
Макрос це серія команд, що згруповані разом для спрощення повсякденної
роботи. Макроси часто використовуються для таких цілей:
Для прискорення часто виконуємих операцій редагування або
форматування;
Для об(єднання складних команд;
Для спрощення доступу до параметрів у вікнах діалогу;
Для автоматизації обробки складних послідовних дій в задачах.
Насправді макрос записується у вигляді серії інструкцій на мові
WordBasic. Для зміни інструкцій можна відкрити макрос у вікні
редагування макросів. На мові WordBasic можна також написати дуже
потужні та складні макроси (в тому числі і так звані макро-віруси), які
не можуть бути записані звичайним способом. Для одержання додаткових
відомостей виберіть команду «Вызов справки» у меню «Справка», а потім
тему «WordBasic Reference».
Ви можете не знати вказаної мови, але то не біда. Все рівно
використовувати макроси дуже просто, легко та вигідно! Для утворення
макроса достатньо включити його запис та записати послідовність ваших
дій. Після цього макрос можна виконувати кожний раз, коли треба
проробити той самий набір дій знову. Наприклад, якщо часто виникає
необхідність відобразити на екрані якомога більшу частину документа, то
можна записати макрос, який максимізує вікно документа та вилучає з
екрана горизонтальну лінійку, панель інструментів та полоси прокрутки.
При запису макроса можна тимчасово призупинити запис та продовжити його
пізніше з того місця, де він був призупинений. Наприклад, може
знадобитися призупинити запис для підготовки до наступної дії.
Щоб виконати макрос, виберіть команду «Макрос...» у меню «Сервис», а
потім будь-який макрос, в тому числі вбудований. Якщо якийсь макрос
використовується часто, зручно назначити йому кнопку на панелі
інструментів, команду меню або сполучення клавіш (гарячі клавіші). Тоді
макрос можна буде виконувати без вибору команди «Макрос...» та відкриття
вікна діалогу.
Запис макроса
Встановіть покажчик на надпис «ЗАП» у рядку стану та двічі натисніть
кнопку миші. На екрані з(явиться вікно діалогу «Запись макроса». Інший
спосіб відкриття цього вікна діалогу: виберіть команду «Макрос...» у
меню «Сервис», а потім натисніть кнопку «Записать».
В полі «Имя макроса» введіть ім(я нового макроса. Воно повинно
починатися з літери та містити тільки літери та цифри. Якщо вас
влаштовує ім(я макроса, що пропонується за умовчанням, пропустіть цей
крок.
При бажанні введіть короткий опис макроса в полі «Описание». При
присвоєнні макросу пункту меню або кнопки на панелі інструментів цей
опис виводиться в рядку стану при вказуванні на відповідний пункт меню
або кнопку на панелі інструментів. Опис може містити до 255 символів,
але буде з(являтися не більше ніж 100 символів.
Для присвоєння макросу кнопки на панелі інструментів, пункту меню або
сполучення клавіш натисніть відповідну кнопку. Після закінчення
присвоєння натисніть кнопку «Закрыть» у вікні діалогу «Настройка» для
Проробіть дії, які належить включити у макрос. Дії, які пророблені за
допомогою миші, не записуються! Для запису дій (наприклад, виділення
тексту або переміщення курсору) використовуйте клавіатуру! Миша може
бути використана для вибору потрібних команд та параметрів.
«Остановить запись».
Зупинка та продовження запису макроса
.
Виконання макроса
Виберіть команду «Макрос...» у меню «Сервис». Зі списку «Макросы из:»
виберіть елемент, який повинен з(явитись в полі «Имя». Можна вивести на
екран список всіх макросів, доступних у всіх активних шаблонах, або
список макросів, доступних у визначеному шаблоні. Потім виділіть ім(я
потрібного макроса у списку та натисніть кнопку «Выполнить».
Якщо ви присвоїли макросу кнопку на панелі інструментів або пункт меню
або сполучення клавіш, натисніть відповідну кнопку або виконайте
відповідну команду або натисніть відповідні клавіші.
Текст після обробки
ТЕКСТ ДЛЯ ОБРОБКИ
Макроси. Запис, виконання та правка
Автоматизація виконання задач за допомогою макросів
Макрос — це серія команд, що згруповані разом для спрощення повсякденної
роботи. Макроси часто використовуються для таких цілей:
Для прискорення часто виконуємих операцій редагування або
форматування;
Для об(єднання складних команд;
Для спрощення доступу до параметрів у вікнах діалогу;
Для автоматизації обробки складних послідовних дій в задачах.
Насправді макрос записується у вигляді серії інструкцій на мові
WordBasic. Для зміни інструкцій можна відкрити макрос у вікні
редагування макросів. На мові WordBasic можна також написати дуже
потужні та складні макроси (в тому числі і так звані макро-віруси), які
не можуть бути записані звичайним способом. Для одержання додаткових
відомостей виберіть команду «Вызов справки» у меню «Справка», а потім —
тему «WordBasic Reference».
Ви можете не знати вказаної мови, але то — не біда. Все рівно
використовувати макроси дуже просто, легко та вигідно! Для утворення
макроса достатньо включити його запис та записати послідовність ваших
дій. Після цього макрос можна виконувати кожний раз, коли треба
проробити той самий набір дій знову. Наприклад, якщо часто виникає
необхідність відобразити на екрані якомога більшу частину документа, то
можна записати макрос, який максимізує вікно документа та вилучає з
екрана горизонтальну лінійку, панель інструментів та полоси прокрутки.
При запису макроса можна тимчасово призупинити запис та продовжити його
пізніше з того місця, де він був призупинений. Наприклад, може
знадобитися призупинити запис для підготовки до наступної дії.
Щоб виконати макрос, виберіть команду «Макрос...» у меню «Сервис», а
потім — будь-який макрос, в тому числі вбудований. Якщо якийсь макрос
використовується часто, зручно назначити йому кнопку на панелі
інструментів, команду меню або сполучення клавіш (гарячі клавіші). Тоді
макрос можна буде виконувати без вибору команди «Макрос...» та відкриття
вікна діалогу.
Запис макроса
Встановіть покажчик на надпис «ЗАП» у рядку стану та двічі натисніть
кнопку миші. На екрані з(явиться вікно діалогу «Запись макроса». Інший
спосіб відкриття цього вікна діалогу: виберіть команду «Макрос...» у
меню «Сервис», а потім натисніть кнопку «Записать».
В полі «Имя макроса» введіть ім(я нового макроса. Воно повинно
починатися з літери та містити тільки літери та цифри. Якщо вас
влаштовує ім(я макроса, що пропонується за умовчанням, пропустіть цей
крок.
При бажанні введіть короткий опис макроса в полі «Описание». При
присвоєнні макросу пункту меню або кнопки на панелі інструментів цей
опис виводиться в рядку стану при вказуванні на відповідний пункт меню
або кнопку на панелі інструментів. Опис може містити до 255 символів,
але буде з(являтися не більше ніж 100 символів.
Для присвоєння макросу кнопки на панелі інструментів, пункту меню або
сполучення клавіш натисніть відповідну кнопку. Після закінчення
присвоєння натисніть кнопку «Закрыть» у вікні діалогу «Настройка» для
Проробіть дії, які належить включити у макрос. Дії, які пророблені за
допомогою миші, не записуються! Для запису дій (наприклад, виділення
тексту або переміщення курсору) використовуйте клавіатуру! Миша може
бути використана для вибору потрібних команд та параметрів.
— «Остановить запись».
Зупинка та продовження запису макроса
.
Виконання макроса
Виберіть команду «Макрос...» у меню «Сервис». Зі списку «Макросы из:»
виберіть елемент, який повинен з(явитись в полі «Имя». Можна вивести на
екран список всіх макросів, доступних у всіх активних шаблонах, або
список макросів, доступних у визначеному шаблоні. Потім виділіть ім(я
потрібного макроса у списку та натисніть кнопку «Выполнить».
Якщо ви присвоїли макросу кнопку на панелі інструментів або пункт меню
або сполучення клавіш, натисніть відповідну кнопку або виконайте
відповідну команду або натисніть відповідні клавіші.
Sub Ìàêðîñ1()
'
' Ìàêðîñ1 Ìàêðîñ
' Ìàêðîñ çàïèñàí 05.02.2013 student
'
ActiveWindow.ActivePane.View.ShowAll = Not ActiveWindow.ActivePane.View. _
ShowAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Windows("Äîêóìåíò Microsoft Word").Activate
ActiveWindow.Panes(1).Activate
Windows("lab2 F41 Krasnolutska").Activate
ActiveWindow.Panes(1).Activate
Windows("Äîêóìåíò Microsoft Word").Activate
ActiveWindow.Panes(1).Activate
Windows("lab2 F41 Krasnolutska").Activate
ActiveWindow.Panes(1).Activate
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^n"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Windows("Äîêóìåíò Microsoft Word").Activate
ActiveWindow.Panes(1).Activate
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^n^l"
.Replacement.Text = "^p^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
With Selection.Find
.Text = "^l"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^b"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^-"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^+"
.Replacement.Text = "^~"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^~"
.Replacement.Text = "^~"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With
ActiveWindow.ActivePane.View.ShowAll = Not ActiveWindow.ActivePane.View. _
ShowAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = " "
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With
Selection.Find.ClearFormatting
With Selection.Find
.Text = " "
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
With ActiveDocument.Styles(wdStyleNormal).Font
If .NameFarEast = .NameAscii Then
.NameAscii = ""
End If
.NameFarEast = ""
End With
With ActiveDocument.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = CentimetersToPoints(1)
.BottomMargin = CentimetersToPoints(1)
.LeftMargin = CentimetersToPoints(1)
.RightMargin = CentimetersToPoints(1)
.Gutter = CentimetersToPoints(1)
.HeaderDistance = CentimetersToPoints(1.25)
.FooterDistance = CentimetersToPoints(1.25)
.PageWidth = CentimetersToPoints(14.8)
.PageHeight = CentimetersToPoints(21)
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
.TwoPagesOnOne = False
.BookFoldPrinting = False
.BookFoldRevPrinting = False
.BookFoldPrintingSheets = 1
.GutterPos = wdGutterPosLeft
End With
Selection.WholeStory
Selection.LanguageID = wdUkrainian
Selection.NoProofing = False
Application.CheckLanguage = True
With Selection.Font
.Name = "Times New Roman"
.Size = 10
.Spacing = 0
.Scaling = 100
.Position = 0
End With
ActiveWindow.ActivePane.VerticalPercentScrolled = 11
With Selection.ParagraphFormat
.LeftIndent = CentimetersToPoints(0)
.RightIndent = CentimetersToPoints(0)
.SpaceBefore = 0
.SpaceBeforeAuto = False
.SpaceAfter = 0
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceSingle
.Alignment = wdAlignParagraphJustify
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
.LineUnitBefore = 0
.LineUnitAfter = 0
End With
With Selection.ParagraphFormat
.LeftIndent = CentimetersToPoints(0)
.RightIndent = CentimetersToPoints(0)
.SpaceBefore = 0
.SpaceBeforeAuto = False
.SpaceAfter = 0
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceSingle
.Alignment = wdAlignParagraphJustify
.FirstLineIndent = CentimetersToPoints(0.5)
.OutlineLevel = wdOutlineLevel1
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 0
.LineUnitBefore = 0
.LineUnitAfter = 0
End With
Windows("lab2 F41 Krasnolutska").Activate
ActiveWindow.Panes(1).Activate
Windows("Äîêóìåíò Microsoft Word").Activate
ActiveWindow.Panes(1).Activate
Windows("lab2 F41 Krasnolutska").Activate
ActiveWindow.Panes(1).Activate
End Sub