У вас вопросы?
У нас ответы:) SamZan.net

Запис виконання та правка Автоматизація виконання задач за допомогою макросів Макрос це серія ком

Работа добавлена на сайт samzan.net: 2016-03-30

Поможем написать учебную работу

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

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

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 1.3.2025

Неформатований текст

ТЕКСТ ДЛЯ ОБРОБКИ

Макроси. Запис, виконання та правка

Автоматизація виконання задач за допомогою макросів

Макрос  це серія команд, що згруповані разом для спрощення повсякденної

роботи. Макроси часто використовуються для таких цілей:

 Для прискорення часто виконуємих операцій редагування або

форматування;

 Для об(єднання складних команд;

 Для спрощення доступу до параметрів у вікнах діалогу;

 Для автоматизації обробки складних послідовних дій в задачах.

Насправді макрос записується у вигляді серії інструкцій на мові

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




1.  Определение предмет цель и задачи военной гигиены её место в медицине
2. Правовой статус и режим Арктики
3. Укрупненное проектирование производственной структуры механического цеха и организация производственного процесса сборки изделия
4. ТЕМА СОЦИАЛЬНАЯ ЗАЩИТА БЕЗРАБОТНЫХ 1
5. Аналіз та компонування інформації для проекту
6. Художественная культура Древней Руси
7. Принципы запрета в квантовой механике Соотношение неопределенностей утверждает что невозможно точно
8. альджама~а и запрещают выходить из него Всевышний Аллах сказал- Люди были единой общиной но впали в раз
9. 265 11 статей закрепляющих ответственность как за экологические преступления общего характера ст
10. Разделение лесного фонда на группы по их народнохозяйственному значению