отчет по лаб.раб.5колесникова

Лабораторная работа №5. Создание макросов с помощью макрорекодера в приложениях MS Word и MS Excel

Исходный текст.

История развития средств инструментального счета позволяет лучше понять действие современных вычислительных машин. Как говорил Лейбниц: «Кто хочет ограничиться настоящим без знания прошлого, тот никогда не поймет настоящего.» Поэтому изучение истории развития ВТ является важной составной частью информатики.

Люди с древних времен использовали для счета различные приспособления. Первым таким «приспособлением» были собственные пальцы. Полное описание пальцевого счета составил в средневековой Европе ирландский монах Беда Достопочтенный (7 век н.э.). Различные приемы пальцевого счета использовались до 18 века.

В качестве средств инструментального счета использовались веревки с узелками.

Наиболее широкое распространение в древности получил абак, сведения о котором известны с V в до н.э. Числа в нем представлялись камешками, раскладываемые по столбцам. В древнем Риме камешки обозначались словом Calculus, отсюда произошли слова, обозначающие счет (английское calculate – считать).

Счеты, широко использовавшиеся на Руси, по принципу действия похожи на абак.

Необходимость использования различных устройств для счета объяснялись тем, что письменный счет был затруднен. Во-первых, это было связанно со сложной системой записи чисел, во-вторых, писать умели немногие, в-третьих, средства для записи (пергамент) были очень дороги. С распространением арабских цифр и изобретением бумаги (12-13 век) стал широко развиваться письменный счет, и абак стал не нужен.

Задача 1.

История развития средств инструментального счета позволяет лучше понять действие современных вычислительных машин. Как говорил Лейбниц: «Кто хочет ограничиться настоящим без знания прошлого, тот никогда не поймет настоящего.» Поэтому изучение истории развития ВТ является важной составной частью информатики.

Sub Задание1()

‘ Задание1 Макрос

Selection.MoveUp Unit:=wdParagraph, Count:=1, Extend:=wdExtend

With Selection.ParagraphFormat

.LeftIndent = CentimetersToPoints(1.75)

.RightIndent = CentimetersToPoints(3)

.SpaceBefore = 7

.SpaceBeforeAuto = False

.SpaceAfter = 8

.SpaceAfterAuto = False

.LineSpacingRule = wdLineSpaceMultiple

.LineSpacing = LinesToPoints(1.5)

.Alignment = wdAlignParagraphLeft

.WidowControl = True

.KeepWithNext = False

.KeepTogether = False

.PageBreakBefore = False

.NoLineNumber = False

.Hyphenation = True

.FirstLineIndent = CentimetersToPoints(0)

.OutlineLevel = wdOutlineLevelBodyText

.CharacterUnitLeftIndent = 0

.CharacterUnitRightIndent = 0

.CharacterUnitFirstLineIndent = 0

.LineUnitBefore = 0

.LineUnitAfter = 0

.MirrorIndents = False

.TextboxTightWrap = wdTightNone

MsgBox «Задание выполнено коректно«

End With

End Sub

Задание2.

История развития средств инструментального счета позволяет лучше понять действие современных вычислительных машин. Как говорил Лейбниц: «Кто хочет ограничиться настоящим без знания прошлого, тот никогда не поймет настоящего.» Поэтому изучение истории развития ВТ является важной составной частью информатики.

Sub Задание2()

‘ Задание2 Макрос

Selection.MoveUp Unit:=wdParagraph, Count:=1, Extend:=wdExtend

With Selection.Font

.Name = «Bookman Old Style»

.Size = 15

.Bold = False

.Italic = False

.Underline = wdUnderlineNone

.UnderlineColor = wdColorAutomatic

.StrikeThrough = False

.DoubleStrikeThrough = False

.Outline = False

.Emboss = False

.Shadow = False

.Hidden = False

.SmallCaps = False

.AllCaps = False

.Color = -687816705

.Engrave = False

.Superscript = False

.Subscript = False

.Spacing = 0

.Scaling = 100

.Position = 0

.Kerning = 0

.Animation = wdAnimationNone

MsgBox «Задание выполнено коректно«

End With





End Sub

Задание3.

агитации или иначе начальным звеном этой цепи является родной «комп». Вот на нем-то и выполняется верстка и макетирование будущего печатного творения. Под версткой понимается процесс придания набранному тексту «человеческого» вида: выравнивание, определение отступов, начертания межстрочных интервалов, «красных» строк, размеров и гарнитуры шрифта и так далее. Короче говоря, текст должен выглядеть четко и красиво, легко читаться. Прочие элементы оформления (иллюстрации, эмблемы, линии и прочее) готовятся отдельно от текста, и процесс оформления издания в законченную форму как раз и зовется макетированием. Обычно в крупных редакциях ответственный за выход номера набрасывает на бумаге примерный макет издания с указаниями для макетчиков, которые затем готовят компьютерный макет. Наборщики набирают текст, художники-оформители занимаются иллюстрациями, ну а если вы хотите организовать самиздат на дому, то придется быть и тем, и другим, и третьим.

Так. Допустим есть у нас друг, который иногда пишет небольшие рассказики, и решил он книжку издать, тиражом 50-100 экземпляров. И решили мы этому другу помочь, потому как есть у нас дома компьютер и времени немного свободного, к тому же друг ящик пива за это пообещал. Ну, размножить можно и на ксероксе. Дешево и сердито. Но пока от нас требуется сверстанный на компьютере макет. Ведь его потом можно и на бумагу вывести (для размножения), а можно даже на специальной пленке напечатать и в типографию занести.

Сверстать значит надо, то бишь оформить все это красивенько. А до этого текст нужно набрать. Берем у друга рукопись и — вперед. Стоп, а как набирать? В каком редакторе? Чтобы решить, как и где набирать текст, нужно определиться, где это все потом верстаться будет, чтобы потом не было проблем с импортом набранного текста. Большинство программ, предназначенных для верстки, хорошо «понимают» обычные текстовые файлы, но ведь и в них можно понапихать «табуляций», лишних пробелов и «переносов», так что потом при верстке черти-что получится. Короче говоря, надо знать, как «отнесется» к набранному вами тексту программа верстки. Какую же из них выбрать? Основная масса этих продуктов работает под Windows, перечислять и сравнивать их друг с дружкой нет смысла, поэтому перейдем сразу к наглядной Так

Sub Задание3()

‘ Задание3 Макрос

Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.HomeKey Unit:=wdStory

Selection.PasteAndFormat (wdPasteDefault)

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.EndKey Unit:=wdStory

Selection.PasteAndFormat (wdPasteDefault)

MsgBox «Задание выполнено коректно«

End Sub

Задание4.

. развития средств инструментального счета позволяет лучше понять действие современных вычислительных машин. Как говорил Лейбниц: «Кто хочет ограничиться настоящим без знания прошлого, тот никогда не поймет настоящего.» Поэтому изучение истории развития ВТ является важной составной частью информатики.

Люди с древних времен использовали для счета различные приспособления. Первым таким «приспособлением» были собственные пальцы. Полное описание пальцевого счета составил в средневековой Европе ирландский монах Беда Достопочтенный (7 век н.э.). Различные приемы пальцевого счета использовались до 18 века.

В качестве средств инструментального счета использовались веревки с узелками.

Наиболее широкое распространение в древности получил абак, сведения о котором известны с V в до н.э. Числа в нем представлялись камешками, раскладываемые по столбцам. В древнем Риме камешки обозначались словом Calculus, отсюда произошли слова, обозначающие счет (английское calculate – считать).

Счеты, широко использовавшиеся на Руси, по принципу действия похожи на абак.

Необходимость использования различных устройств для счета объяснялись тем, что письменный счет был затруднен. Во-первых, это было связанно со сложной системой записи чисел, во-вторых, писать умели немногие, в-третьих, средства для записи (пергамент) были очень дороги. С распространением арабских цифр и изобретением бумаги (12-13 век) стал широко развиваться письменный счет, и абак стал не нуже История

Sub Задача4()

‘ Задача4 Макрос

Selection.MoveUp Unit:=wdParagraph, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.HomeKey Unit:=wdStory

Selection.PasteAndFormat (wdPasteDefault)

Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.EndKey Unit:=wdStory

Selection.PasteAndFormat (wdPasteDefault)

MsgBox «задание выполнено коректно«

End Sub