Реферат Теоретичні та практичні основи роботи з комп'ютером

LineStyle = xlNone.Borders (xlDiagonalUp). LineStyle = xlNoneSelection. Borders (xlEdgeLeft)

. LineStyle = xlContinuous

. ColorIndex = 0

. TintAndShade = 0

. Weight = xlThinWithSelection.Borders (xlEdgeTop)

. LineStyle = xlContinuous

. ColorIndex = 0

. TintAndShade = 0

. Weight = xlThinWithSelection.Borders (xlEdgeBottom)

. LineStyle = xlContinuous

. ColorIndex = 0

. TintAndShade = 0

. Weight = xlThinWithSelection.Borders (xlEdgeRight)

. LineStyle = xlContinuous

. ColorIndex = 0

. TintAndShade = 0

. Weight = xlThinWithSelection.Borders (xlInsideVertical)

. LineStyle = xlContinuous

. ColorIndex = 0

. TintAndShade = 0

. Weight = xlThinWithSelection.Borders (xlInsideHorizontal)

. LineStyle = xlContinuous

. ColorIndex = 0

. TintAndShade = 0

. Weight = xlThinWith ("D13"). Select "C: Users dns Documents 4 блок". SaveAs Filename: = "C: Users dns Documents Книга1 . xlsm ", _: = xlOpenXMLWorkbookMacroEnabled, CreateBackup: = False Sub

.2.3 Переходи сторінок. Перехід на наступну сторінку

Sub Переход_страніц ()

Переход_страніц Макрос

Макрос записаний 21.06.2012 Антон

Selection.GoTo What: = wdGoToPage, Which: = wdGoToNext, Count: = 1, Name: = "". Find.ClearFormattingSelection.Find

. Text = ""

. Replacement.Text = ""

. Forward = True

. Wrap = wdFindContinue

. Format = False

. MatchCase = False

. MatchWholeWord = False

. MatchWildcards = False

. MatchSoundsLike = False

. MatchAllWordForms = FalseWith.GoTo What: = wdGoToPage, Which: = wdGoToNext, Count: = 1, Name: = "". GoTo What: = wdGoToPage, Which: = wdGoToNext, Count: = 1, Name: = "". GoTo What: = wdGoToPage, Which: = wdGoToNext, Count: = 1, Name: = "". Find.ClearFormatting.Find.Replacement.ClearFormattingSelection.Find

. Text = ""

. Replacement.Text = ""

. Forward = True

. Wrap = wdFindContinue

. Format = False

. MatchCase = False

. MatchWholeWord = False

. M...