https://pastein.ru/t/_iS
Загрузка данных
Sub CreateCryptoPresentation()
Dim pptApp As Object
Dim pptPres As Object
Dim pptSlide As Object
Dim slideIndex As Integer
' Создаем приложение PowerPoint
Set pptApp = CreateObject("PowerPoint.Application")
pptApp.Visible = True
Set pptPres = pptApp.Presentations.Add
' --- СЛАЙД 1: Титульный ---
slideIndex = 1
Set pptSlide = pptPres.Slides.Add(slideIndex, 12) ' 12 = пустой макет
AddTextBox pptSlide, ChrW(1050) & ChrW(1088) & ChrW(1080) & ChrW(1087) & ChrW(1090) & ChrW(1086) & ChrW(1075) & ChrW(1088) & ChrW(1072) & ChrW(1092) & ChrW(1080) & ChrW(1103), 50, 100, 600, 50, 36, True
AddTextBox pptSlide, ChrW(1053) & ChrW(1072) & ChrW(1091) & ChrW(1082) & ChrW(1072) & " " & ChrW(1086) & " " & ChrW(1084) & ChrW(1077) & ChrW(1090) & ChrW(1086) & ChrW(1076) & ChrW(1072) & ChrW(1093) & " " & ChrW(1079) & ChrW(1072) & ChrW(1097) & ChrW(1080) & ChrW(1090) & ChrW(1099) & " " & ChrW(1080) & ChrW(1085) & ChrW(1092) & ChrW(1086) & ChrW(1088) & ChrW(1084) & ChrW(1072) & ChrW(1094) & ChrW(1080) & ChrW(1080), 50, 160, 600, 40, 18, False
' --- СЛАЙД 2: Основные понятия (Часть 1) ---
slideIndex = slideIndex + 1
Set pptSlide = pptPres.Slides.Add(slideIndex, 12)
AddTextBox pptSlide, ChrW(1054) & ChrW(1089) & ChrW(1085) & ChrW(1086) & ChrW(1074) & ChrW(1085) & ChrW(1099) & ChrW(1077) & " " & ChrW(1087) & ChrW(1086) & ChrW(1085) & ChrW(1103) & ChrW(1090) & ChrW(1080) & ChrW(1103), 50, 50, 600, 40, 24, True
Dim bodyText2 As String
bodyText2 = ChrW(1064) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & " - " & ChrW(1055) & ChrW(1088) & ChrW(1077) & ChrW(1086) & ChrW(1073) & ChrW(1088) & ChrW(1072) & ChrW(1079) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & " " & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1085) & ChrW(1099) & ChrW(1093) & " " & ChrW(1074) & " " & ChrW(1085) & ChrW(1077) & ChrW(1095) & ChrW(1080) & ChrW(1090) & ChrW(1072) & ChrW(1077) & ChrW(1084) & ChrW(1099) & ChrW(1081) & " " & ChrW(1074) & ChrW(1080) & ChrW(1076) & "."
bodyText2 = bodyText2 & vbCrLf & ChrW(1044) & ChrW(1077) & ChrW(1096) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & " - " & ChrW(1054) & ChrW(1073) & ChrW(1088) & ChrW(1072) & ChrW(1090) & ChrW(1085) & ChrW(1086) & ChrW(1077) & " " & ChrW(1087) & ChrW(1088) & ChrW(1077) & ChrW(1086) & ChrW(1073) & ChrW(1088) & ChrW(1072) & ChrW(1079) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & "."
bodyText2 = bodyText2 & vbCrLf & ChrW(1050) & ChrW(1083) & ChrW(1102) & ChrW(1095) & " - " & ChrW(1055) & ChrW(1072) & ChrW(1088) & ChrW(1072) & ChrW(1084) & ChrW(1077) & ChrW(1090) & ChrW(1088) & ", " & ChrW(1091) & ChrW(1087) & ChrW(1088) & ChrW(1072) & ChrW(1074) & ChrW(1083) & ChrW(1103) & ChrW(1102) & ChrW(1097) & ChrW(1080) & ChrW(1081) & " " & ChrW(1096) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & ChrW(1084) & "."
AddTextBox pptSlide, bodyText2, 50, 120, 600, 250, 18, False
' --- СЛАЙД 3: Основные понятия (Часть 2) ---
slideIndex = slideIndex + 1
Set pptSlide = pptPres.Slides.Add(slideIndex, 12)
AddTextBox pptSlide, ChrW(1054) & ChrW(1089) & ChrW(1085) & ChrW(1086) & ChrW(1074) & ChrW(1085) & ChrW(1099) & ChrW(1077) & " " & ChrW(1087) & ChrW(1086) & ChrW(1085) & ChrW(1103) & ChrW(1090) & ChrW(1080) & ChrW(1103) & " (" & ChrW(1087) & ChrW(1088) & ChrW(1086) & ChrW(1076) & ChrW(1086) & ChrW(1083) & ChrW(1078) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1077) & ")", 50, 50, 600, 40, 24, True
Dim bodyText3 As String
bodyText3 = ChrW(1064) & ChrW(1080) & ChrW(1092) & ChrW(1088) & " - " & ChrW(1040) & ChrW(1083) & ChrW(1075) & ChrW(1086) & ChrW(1088) & ChrW(1080) & ChrW(1090) & ChrW(1084) & " " & ChrW(1096) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1103) & "."
bodyText3 = bodyText3 & vbCrLf & ChrW(1054) & ChrW(1090) & ChrW(1082) & ChrW(1088) & ChrW(1099) & ChrW(1090) & ChrW(1099) & ChrW(1081) & " " & ChrW(1090) & ChrW(1077) & ChrW(1082) & ChrW(1089) & ChrW(1090) & " - " & ChrW(1048) & ChrW(1089) & ChrW(1093) & ChrW(1086) & ChrW(1076) & ChrW(1085) & ChrW(1099) & ChrW(1077) & " " & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1085) & ChrW(1099) & ChrW(1077) & "."
bodyText3 = bodyText3 & vbCrLf & ChrW(1064) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1090) & ChrW(1077) & ChrW(1082) & ChrW(1089) & ChrW(1090) & " - " & ChrW(1047) & ChrW(1072) & ChrW(1096) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1085) & ChrW(1099) & ChrW(1077) & " " & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1085) & ChrW(1099) & ChrW(1077) & "."
AddTextBox pptSlide, bodyText3, 50, 120, 600, 250, 18, False
' --- СЛАЙД 4: Виды шифрования ---
slideIndex = slideIndex + 1
Set pptSlide = pptPres.Slides.Add(slideIndex, 12)
AddTextBox pptSlide, ChrW(1042) & ChrW(1080) & ChrW(1076) & ChrW(1099) & " " & ChrW(1096) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1103), 50, 50, 600, 40, 24, True
Dim bodyText4 As String
bodyText4 = ChrW(1057) & ChrW(1080) & ChrW(1084) & ChrW(1084) & ChrW(1077) & ChrW(1090) & ChrW(1088) & ChrW(1080) & ChrW(1095) & ChrW(1085) & ChrW(1086) & ChrW(1077) & " (" & ChrW(1054) & ChrW(1076) & ChrW(1080) & ChrW(1085) & " " & ChrW(1082) & ChrW(1083) & ChrW(1102) & ChrW(1095) & ")"
bodyText4 = bodyText4 & vbCrLf & ChrW(1040) & ChrW(1089) & ChrW(1080) & ChrW(1084) & ChrW(1084) & ChrW(1077) & ChrW(1090) & ChrW(1088) & ChrW(1080) & ChrW(1095) & ChrW(1085) & ChrW(1086) & ChrW(1077) & " (" & ChrW(1055) & ChrW(1072) & ChrW(1088) & ChrW(1072) & " " & ChrW(1082) & ChrW(1083) & ChrW(1102) & ChrW(1095) & ChrW(1077) & ChrW(1081) & ": " & ChrW(1086) & ChrW(1090) & ChrW(1082) & ChrW(1088) & ChrW(1099) & ChrW(1090) & ChrW(1099) & ChrW(1081) & " + " & ChrW(1079) & ChrW(1072) & ChrW(1082) & ChrW(1088) & ChrW(1099) & ChrW(1090) & ChrW(1099) & ChrW(1081) & ")"
bodyText4 = bodyText4 & vbCrLf & ChrW(1061) & ChrW(1077) & ChrW(1096) & ChrW(1080) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & " (" & ChrW(1041) & ChrW(1077) & ChrW(1079) & " " & ChrW(1082) & ChrW(1083) & ChrW(1102) & ChrW(1095) & ChrW(1072) & ")"
AddTextBox pptSlide, bodyText4, 50, 120, 600, 250, 18, False
' --- СЛАЙД 5: Исторические шифры (Часть 1) ---
slideIndex = slideIndex + 1
Set pptSlide = pptPres.Slides.Add(slideIndex, 12)
AddTextBox pptSlide, ChrW(1048) & ChrW(1089) & ChrW(1090) & ChrW(1086) & ChrW(1088) & ChrW(1080) & ChrW(1095) & ChrW(1077) & ChrW(1089) & ChrW(1082) & ChrW(1080) & ChrW(1077) & " " & ChrW(1096) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1099) & " (" & ChrW(1063) & ChrW(1072) & ChrW(1089) & ChrW(1090) & ChrW(1100) & " 1)", 50, 50, 600, 40, 24, True
Dim bodyText5 As String
bodyText5 = ChrW(1064) & ChrW(1080) & ChrW(1092) & ChrW(1088) & " " & ChrW(1062) & ChrW(1077) & ChrW(1079) & ChrW(1072) & ChrW(1088) & ChrW(1103) & " - " & ChrW(1089) & ChrW(1076) & ChrW(1074) & ChrW(1080) & ChrW(1075) & " " & ChrW(1073) & ChrW(1091) & ChrW(1082) & ChrW(1074) & "."
bodyText5 = bodyText5 & vbCrLf & ChrW(1064) & ChrW(1080) & ChrW(1092) & ChrW(1088) & " " & ChrW(1042) & ChrW(1080) & ChrW(1078) & ChrW(1077) & ChrW(1085) & ChrW(1077) & ChrW(1088) & ChrW(1072) & " - " & ChrW(1089) & ChrW(1076) & ChrW(1074) & ChrW(1080) & ChrW(1075) & " " & ChrW(1087) & ChrW(1086) & " " & ChrW(1082) & ChrW(1083) & ChrW(1102) & ChrW(1095) & ChrW(1077) & ChrW(1074) & ChrW(1086) & ChrW(1084) & ChrW(1091) & " " & ChrW(1089) & ChrW(1083) & ChrW(1086) & ChrW(1074) & ChrW(1091) & "."
AddTextBox pptSlide, bodyText5, 50, 120, 600, 250, 18, False
' --- СЛАЙД 6: Исторические шифры (Часть 2) ---
slideIndex = slideIndex + 1
Set pptSlide = pptPres.Slides.Add(slideIndex, 12)
AddTextBox pptSlide, ChrW(1048) & ChrW(1089) & ChrW(1090) & ChrW(1086) & ChrW(1088) & ChrW(1080) & ChrW(1095) & ChrW(1077) & ChrW(1089) & ChrW(1082) & ChrW(1080) & ChrW(1077) & " " & ChrW(1096) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1099) & " (" & ChrW(1063) & ChrW(1072) & ChrW(1089) & ChrW(1090) & ChrW(1100) & " 2)", 50, 50, 600, 40, 24, True
Dim bodyText6 As String
bodyText6 = ChrW(1064) & ChrW(1080) & ChrW(1092) & ChrW(1088) & " " & ChrW(1040) & ChrW(1090) & ChrW(1073) & ChrW(1072) & ChrW(1096) & " - " & ChrW(1079) & ChrW(1077) & ChrW(1088) & ChrW(1082) & ChrW(1072) & ChrW(1083) & ChrW(1100) & ChrW(1085) & ChrW(1072) & ChrW(1103) & " " & ChrW(1079) & ChrW(1072) & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1072) & " " & ChrW(1072) & ChrW(1083) & ChrW(1092) & ChrW(1072) & ChrW(1074) & ChrW(1080) & ChrW(1090) & ChrW(1072) & "."
bodyText6 = bodyText6 & vbCrLf & ChrW(1056) & ChrW(1077) & ChrW(1096) & ChrW(1105) & ChrW(1090) & ChrW(1082) & ChrW(1072) & " " & ChrW(1050) & ChrW(1072) & ChrW(1088) & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1086) & " - " & ChrW(1087) & ChrW(1077) & ChrW(1088) & ChrW(1077) & ChrW(1089) & ChrW(1090) & ChrW(1072) & ChrW(1085) & ChrW(1086) & ChrW(1074) & ChrW(1082) & ChrW(1072) & "."
AddTextBox pptSlide, bodyText6, 50, 120, 600, 250, 18, False
' --- СЛАЙД 7: Современные принципы ---
slideIndex = slideIndex + 1
Set pptSlide = pptPres.Slides.Add(slideIndex, 12)
AddTextBox pptSlide, ChrW(1057) & ChrW(1086) & ChrW(1074) & ChrW(1088) & ChrW(1077) & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1085) & ChrW(1099) & ChrW(1077) & " " & ChrW(1087) & ChrW(1088) & ChrW(1080) & ChrW(1085) & ChrW(1094) & ChrW(1080) & ChrW(1087) & ChrW(1099), 50, 50, 600, 40, 24, True
Dim bodyText7 As String
bodyText7 = ChrW(1055) & ChrW(1088) & ChrW(1080) & ChrW(1085) & ChrW(1094) & ChrW(1080) & ChrW(1087) & " " & ChrW(1050) & ChrW(1077) & ChrW(1088) & ChrW(1082) & ChrW(1075) & ChrW(1086) & ChrW(1092) & ChrW(1092) & ChrW(1089) & ChrW(1072) & " - " & ChrW(1089) & ChrW(1090) & ChrW(1086) & ChrW(1081) & ChrW(1082) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1100) & " " & ChrW(1096) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1072) & " " & ChrW(1079) & ChrW(1072) & ChrW(1074) & ChrW(1080) & ChrW(1089) & ChrW(1080) & ChrW(1090) & " " & ChrW(1090) & ChrW(1086) & ChrW(1083) & ChrW(1100) & ChrW(1082) & ChrW(1086) & " " & ChrW(1086) & ChrW(1090) & " " & ChrW(1082) & ChrW(1083) & ChrW(1102) & ChrW(1095) & ChrW(1072) & "."
bodyText7 = bodyText7 & vbCrLf & ChrW(1051) & ChrW(1072) & ChrW(1074) & ChrW(1080) & ChrW(1085) & ChrW(1085) & ChrW(1099) & ChrW(1081) & " " & ChrW(1101) & ChrW(1092) & ChrW(1092) & ChrW(1077) & ChrW(1082) & ChrW(1090) & " - " & ChrW(1084) & ChrW(1072) & ChrW(1083) & ChrW(1086) & ChrW(1077) & " " & ChrW(1080) & ChrW(1079) & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1077) & " " & ChrW(1074) & ChrW(1093) & ChrW(1086) & ChrW(1076) & ChrW(1072) & " -> " & ChrW(1073) & ChrW(1086) & ChrW(1083) & ChrW(1100) & ChrW(1096) & ChrW(1086) & ChrW(1077) & " " & ChrW(1080) & ChrW(1079) & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1077) & " " & ChrW(1074) & ChrW(1099) & ChrW(1093) & ChrW(1086) & ChrW(1076) & ChrW(1072) & "."
bodyText7 = bodyText7 & vbCrLf & ChrW(1050) & ChrW(1088) & ChrW(1080) & ChrW(1087) & ChrW(1090) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1086) & ChrW(1081) & ChrW(1082) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1100) & " - " & ChrW(1089) & ChrW(1083) & ChrW(1086) & ChrW(1078) & ChrW(1085) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1100) & " " & ChrW(1074) & ChrW(1079) & ChrW(1083) & ChrW(1086) & ChrW(1084) & ChrW(1072) & "."
AddTextBox pptSlide, bodyText7, 50, 120, 600, 250, 18, False
' --- СЛАЙД 8: Задание 1.1 (Часть 1) ---
slideIndex = slideIndex + 1
Set pptSlide = pptPres.Slides.Add(slideIndex, 12)
AddTextBox pptSlide, ChrW(1047) & ChrW(1072) & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & " 1.1. " & ChrW(1054) & ChrW(1087) & ChrW(1088) & ChrW(1077) & ChrW(1076) & ChrW(1077) & ChrW(1083) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1103) & " (" & ChrW(1063) & ChrW(1072) & ChrW(1089) & ChrW(1090) & ChrW(1100) & " 1)", 50, 50, 600, 40, 24, True
Dim bodyText8 As String
bodyText8 = ChrW(1050) & ChrW(1088) & ChrW(1080) & ChrW(1087) & ChrW(1090) & ChrW(1086) & ChrW(1075) & ChrW(1088) & ChrW(1072) & ChrW(1092) & ChrW(1080) & ChrW(1103) & " - " & ChrW(1085) & ChrW(1072) & ChrW(1091) & ChrW(1082) & ChrW(1072) & " " & ChrW(1086) & " " & ChrW(1084) & ChrW(1077) & ChrW(1090) & ChrW(1086) & ChrW(1076) & ChrW(1072) & ChrW(1093) & " " & ChrW(1079) & ChrW(1072) & ChrW(1097) & ChrW(1080) & ChrW(1090) & ChrW(1099) & " " & ChrW(1080) & ChrW(1085) & ChrW(1092) & ChrW(1086) & ChrW(1088) & ChrW(1084) & ChrW(1072) & ChrW(1094) & ChrW(1080) & ChrW(1080) & "."
bodyText8 = bodyText8 & vbCrLf & ChrW(1064) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & " - " & ChrW(1087) & ChrW(1088) & ChrW(1077) & ChrW(1086) & ChrW(1073) & ChrW(1088) & ChrW(1072) & ChrW(1079) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & " " & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1085) & ChrW(1099) & ChrW(1093) & " " & ChrW(1074) & " " & ChrW(1085) & ChrW(1077) & ChrW(1095) & ChrW(1080) & ChrW(1090) & ChrW(1072) & ChrW(1077) & ChrW(1084) & ChrW(1099) & ChrW(1081) & " " & ChrW(1074) & ChrW(1080) & ChrW(1076) & "."
bodyText8 = bodyText8 & vbCrLf & ChrW(1044) & ChrW(1077) & ChrW(1096) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & " - " & ChrW(1086) & ChrW(1073) & ChrW(1088) & ChrW(1072) & ChrW(1090) & ChrW(1085) & ChrW(1086) & ChrW(1077) & " " & ChrW(1087) & ChrW(1088) & ChrW(1077) & ChrW(1086) & ChrW(1073) & ChrW(1088) & ChrW(1072) & ChrW(1079) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & "."
bodyText8 = bodyText8 & vbCrLf & ChrW(1050) & ChrW(1083) & ChrW(1102) & ChrW(1095) & " - " & ChrW(1087) & ChrW(1072) & ChrW(1088) & ChrW(1072) & ChrW(1084) & ChrW(1077) & ChrW(1090) & ChrW(1088) & ", " & ChrW(1091) & ChrW(1087) & ChrW(1088) & ChrW(1072) & ChrW(1074) & ChrW(1083) & ChrW(1103) & ChrW(1102) & ChrW(1097) & ChrW(1080) & ChrW(1081) & " " & ChrW(1096) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & ChrW(1084) & "."
bodyText8 = bodyText8 & vbCrLf & ChrW(1064) & ChrW(1080) & ChrW(1092) & ChrW(1088) & " - " & ChrW(1072) & ChrW(1083) & ChrW(1075) & ChrW(1086) & ChrW(1088) & ChrW(1080) & ChrW(1090) & ChrW(1084) & " " & ChrW(1096) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1103) & "."
AddTextBox pptSlide, bodyText8, 50, 120, 600, 300, 18, False
' --- СЛАЙД 9: Задание 1.1 (Часть 2) ---
slideIndex = slideIndex + 1
Set pptSlide = pptPres.Slides.Add(slideIndex, 12)
AddTextBox pptSlide, ChrW(1047) & ChrW(1072) & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & " 1.1. " & ChrW(1054) & ChrW(1087) & ChrW(1088) & ChrW(1077) & ChrW(1076) & ChrW(1077) & ChrW(1083) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1103) & " (" & ChrW(1063) & ChrW(1072) & ChrW(1089) & ChrW(1090) & ChrW(1100) & " 2)", 50, 50, 600, 40, 24, True
Dim bodyText9 As String
bodyText9 = ChrW(1054) & ChrW(1090) & ChrW(1082) & ChrW(1088) & ChrW(1099) & ChrW(1090) & ChrW(1099) & ChrW(1081) & " " & ChrW(1090) & ChrW(1077) & ChrW(1082) & ChrW(1089) & ChrW(1090) & " - " & ChrW(1080) & ChrW(1089) & ChrW(1093) & ChrW(1086) & ChrW(1076) & ChrW(1085) & ChrW(1099) & ChrW(1077) & " " & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1085) & ChrW(1099) & ChrW(1077) & "."
bodyText9 = bodyText9 & vbCrLf & ChrW(1064) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1090) & ChrW(1077) & ChrW(1082) & ChrW(1089) & ChrW(1090) & " - " & ChrW(1079) & ChrW(1072) & ChrW(1096) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1085) & ChrW(1099) & ChrW(1077) & " " & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1085) & ChrW(1099) & ChrW(1077) & "."
bodyText9 = bodyText9 & vbCrLf & ChrW(1050) & ChrW(1088) & ChrW(1080) & ChrW(1087) & ChrW(1090) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1086) & ChrW(1081) & ChrW(1082) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1100) & " - " & ChrW(1089) & ChrW(1083) & ChrW(1086) & ChrW(1078) & ChrW(1085) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1100) & " " & ChrW(1074) & ChrW(1079) & ChrW(1083) & ChrW(1086) & ChrW(1084) & ChrW(1072) & "."
bodyText9 = bodyText9 & vbCrLf & ChrW(1061) & ChrW(1077) & ChrW(1096) & "-" & ChrW(1092) & ChrW(1091) & ChrW(1085) & ChrW(1082) & ChrW(1094) & ChrW(1080) & ChrW(1103) & " - " & ChrW(1092) & ChrW(1091) & ChrW(1085) & ChrW(1082) & ChrW(1094) & ChrW(1080) & ChrW(1103) & ", " & ChrW(1087) & ChrW(1088) & ChrW(1077) & ChrW(1086) & ChrW(1073) & ChrW(1088) & ChrW(1072) & ChrW(1079) & ChrW(1091) & ChrW(1102) & ChrW(1097) & ChrW(1072) & ChrW(1103) & " " & ChrW(1074) & ChrW(1093) & ChrW(1086) & ChrW(1076) & ChrW(1085) & ChrW(1099) & ChrW(1077) & " " & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1085) & ChrW(1099) & ChrW(1077) & " " & ChrW(1074) & " " & ChrW(1092) & ChrW(1080) & ChrW(1082) & ChrW(1089) & ChrW(1080) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1085) & ChrW(1091) & ChrW(1102) & " " & ChrW(1089) & ChrW(1090) & ChrW(1088) & ChrW(1086) & ChrW(1082) & ChrW(1091) & "."
bodyText9 = bodyText9 & vbCrLf & ChrW(1069) & ChrW(1083) & ChrW(1077) & ChrW(1082) & ChrW(1090) & ChrW(1088) & ChrW(1086) & ChrW(1085) & ChrW(1085) & ChrW(1072) & ChrW(1103) & " " & ChrW(1087) & ChrW(1086) & ChrW(1076) & ChrW(1087) & ChrW(1080) & ChrW(1089) & ChrW(1100) & " - " & ChrW(1087) & ChrW(1086) & ChrW(1076) & ChrW(1090) & ChrW(1074) & ChrW(1077) & ChrW(1088) & ChrW(1078) & ChrW(1076) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1077) & " " & ChrW(1072) & ChrW(1074) & ChrW(1090) & ChrW(1086) & ChrW(1088) & ChrW(1089) & ChrW(1090) & ChrW(1074) & ChrW(1072) & " " & ChrW(1080) & " " & ChrW(1094) & ChrW(1077) & ChrW(1083) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1085) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1080) & "."
AddTextBox pptSlide, bodyText9, 50, 120, 600, 300, 18, False
' --- СЛАЙД 10: Таблица 1.2 ---
slideIndex = slideIndex + 1
Set pptSlide = pptPres.Slides.Add(slideIndex, 12)
AddTextBox pptSlide, ChrW(1047) & ChrW(1072) & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & " 1.2. " & ChrW(1042) & ChrW(1080) & ChrW(1076) & ChrW(1099) & " " & ChrW(1096) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1103), 50, 50, 600, 40, 24, True
Dim tbl1 As Object
Set tbl1 = pptSlide.Shapes.AddTable(4, 4, 50, 120, 600, 200).Table
tbl1.Cell(1, 1).Shape.TextFrame.TextRange.Text = ChrW(1042) & ChrW(1080) & ChrW(1076)
tbl1.Cell(1, 2).Shape.TextFrame.TextRange.Text = ChrW(1050) & ChrW(1083) & ChrW(1102) & ChrW(1095) & ChrW(1080)
tbl1.Cell(1, 3).Shape.TextFrame.TextRange.Text = ChrW(1057) & ChrW(1082) & ChrW(1086) & ChrW(1088) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1100)
tbl1.Cell(1, 4).Shape.TextFrame.TextRange.Text = ChrW(1041) & ChrW(1077) & ChrW(1079) & ChrW(1086) & ChrW(1087) & ChrW(1072) & ChrW(1089) & ChrW(1085) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1100)
tbl1.Cell(2, 1).Shape.TextFrame.TextRange.Text = ChrW(1057) & ChrW(1080) & ChrW(1084) & ChrW(1084) & ChrW(1077) & ChrW(1090) & ChrW(1088) & ChrW(1080) & ChrW(1095) & ChrW(1085) & ChrW(1086) & ChrW(1077)
tbl1.Cell(2, 2).Shape.TextFrame.TextRange.Text = ChrW(1054) & ChrW(1076) & ChrW(1080) & ChrW(1085) & " " & ChrW(1082) & ChrW(1083) & ChrW(1102) & ChrW(1095)
tbl1.Cell(2, 3).Shape.TextFrame.TextRange.Text = ChrW(1042) & ChrW(1099) & ChrW(1089) & ChrW(1086) & ChrW(1082) & ChrW(1072) & ChrW(1103)
tbl1.Cell(2, 4).Shape.TextFrame.TextRange.Text = ChrW(1042) & ChrW(1099) & ChrW(1089) & ChrW(1086) & ChrW(1082) & ChrW(1072) & ChrW(1103) & " (" & ChrW(1087) & ChrW(1088) & ChrW(1080) & " " & ChrW(1076) & ChrW(1083) & ChrW(1080) & ChrW(1085) & ChrW(1085) & ChrW(1086) & ChrW(1084) & " " & ChrW(1082) & ChrW(1083) & ChrW(1102) & ChrW(1095) & ChrW(1077) & ")"
tbl1.Cell(3, 1).Shape.TextFrame.TextRange.Text = ChrW(1040) & ChrW(1089) & ChrW(1080) & ChrW(1084) & ChrW(1084) & ChrW(1077) & ChrW(1090) & ChrW(1088) & ChrW(1080) & ChrW(1095) & ChrW(1085) & ChrW(1086) & ChrW(1077)
tbl1.Cell(3, 2).Shape.TextFrame.TextRange.Text = ChrW(1055) & ChrW(1072) & ChrW(1088) & ChrW(1072) & " " & ChrW(1082) & ChrW(1083) & ChrW(1102) & ChrW(1095) & ChrW(1077) & ChrW(1081) & " (" & ChrW(1086) & ChrW(1090) & ChrW(1082) & ChrW(1088) & "." & " + " & ChrW(1079) & ChrW(1072) & ChrW(1082) & ChrW(1088) & "." & ")"
tbl1.Cell(3, 3).Shape.TextFrame.TextRange.Text = ChrW(1053) & ChrW(1080) & ChrW(1079) & ChrW(1082) & ChrW(1072) & ChrW(1103)
tbl1.Cell(3, 4).Shape.TextFrame.TextRange.Text = ChrW(1054) & ChrW(1095) & ChrW(1077) & ChrW(1085) & ChrW(1100) & " " & ChrW(1074) & ChrW(1099) & ChrW(1089) & ChrW(1086) & ChrW(1082) & ChrW(1072) & ChrW(1103)
tbl1.Cell(4, 1).Shape.TextFrame.TextRange.Text = ChrW(1061) & ChrW(1077) & ChrW(1096) & ChrW(1080) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077)
tbl1.Cell(4, 2).Shape.TextFrame.TextRange.Text = ChrW(1041) & ChrW(1077) & ChrW(1079) & " " & ChrW(1082) & ChrW(1083) & ChrW(1102) & ChrW(1095) & ChrW(1072)
tbl1.Cell(4, 3).Shape.TextFrame.TextRange.Text = ChrW(1042) & ChrW(1099) & ChrW(1089) & ChrW(1086) & ChrW(1082) & ChrW(1072) & ChrW(1103)
tbl1.Cell(4, 4).Shape.TextFrame.TextRange.Text = ChrW(1042) & ChrW(1099) & ChrW(1089) & ChrW(1086) & ChrW(1082) & ChrW(1072) & ChrW(1103) & " (" & ChrW(1085) & ChrW(1077) & ChrW(1086) & ChrW(1073) & ChrW(1088) & ChrW(1072) & ChrW(1090) & ChrW(1080) & ChrW(1084) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1100) & ")"
' --- СЛАЙД 11: Таблица 1.3 (Часть 1) ---
slideIndex = slideIndex + 1
Set pptSlide = pptPres.Slides.Add(slideIndex, 12)
AddTextBox pptSlide, ChrW(1047) & ChrW(1072) & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & " 1.3. " & ChrW(1048) & ChrW(1089) & ChrW(1090) & ChrW(1086) & ChrW(1088) & ChrW(1080) & ChrW(1095) & ChrW(1077) & ChrW(1089) & ChrW(1082) & ChrW(1080) & ChrW(1077) & " " & ChrW(1096) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1099) & " (" & ChrW(1063) & ChrW(1072) & ChrW(1089) & ChrW(1090) & ChrW(1100) & " 1)", 50, 50, 600, 40, 24, True
Dim tbl2 As Object
Set tbl2 = pptSlide.Shapes.AddTable(3, 4, 50, 120, 600, 150).Table
tbl2.Cell(1, 1).Shape.TextFrame.TextRange.Text = ChrW(1064) & ChrW(1080) & ChrW(1092) & ChrW(1088)
tbl2.Cell(1, 2).Shape.TextFrame.TextRange.Text = ChrW(1055) & ChrW(1088) & ChrW(1080) & ChrW(1085) & ChrW(1094) & ChrW(1080) & ChrW(1087)
tbl2.Cell(1, 3).Shape.TextFrame.TextRange.Text = ChrW(1050) & ChrW(1083) & ChrW(1102) & ChrW(1095)
tbl2.Cell(1, 4).Shape.TextFrame.TextRange.Text = ChrW(1057) & ChrW(1090) & ChrW(1086) & ChrW(1081) & ChrW(1082) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1100)
tbl2.Cell(2, 1).Shape.TextFrame.TextRange.Text = ChrW(1062) & ChrW(1077) & ChrW(1079) & ChrW(1072) & ChrW(1088) & ChrW(1103)
tbl2.Cell(2, 2).Shape.TextFrame.TextRange.Text = ChrW(1057) & ChrW(1076) & ChrW(1074) & ChrW(1080) & ChrW(1075) & " " & ChrW(1073) & ChrW(1091) & ChrW(1082) & ChrW(1074)
tbl2.Cell(2, 3).Shape.TextFrame.TextRange.Text = ChrW(1063) & ChrW(1080) & ChrW(1089) & ChrW(1083) & ChrW(1086) & " (" & ChrW(1089) & ChrW(1076) & ChrW(1074) & ChrW(1080) & ChrW(1075) & ")"
tbl2.Cell(2, 4).Shape.TextFrame.TextRange.Text = ChrW(1053) & ChrW(1080) & ChrW(1079) & ChrW(1082) & ChrW(1072) & ChrW(1103) & " (" & ChrW(1087) & ChrW(1077) & ChrW(1088) & ChrW(1077) & ChrW(1073) & ChrW(1086) & ChrW(1088) & ")"
tbl2.Cell(3, 1).Shape.TextFrame.TextRange.Text = ChrW(1042) & ChrW(1080) & ChrW(1078) & ChrW(1077) & ChrW(1085) & ChrW(1077) & ChrW(1088) & ChrW(1072)
tbl2.Cell(3, 2).Shape.TextFrame.TextRange.Text = ChrW(1057) & ChrW(1076) & ChrW(1074) & ChrW(1080) & ChrW(1075) & " " & ChrW(1087) & ChrW(1086) & " " & ChrW(1082) & ChrW(1083) & ChrW(1102) & ChrW(1095) & ChrW(1077) & ChrW(1074) & ChrW(1086) & ChrW(1084) & ChrW(1091) & " " & ChrW(1089) & ChrW(1083) & ChrW(1086) & ChrW(1074) & ChrW(1091)
tbl2.Cell(3, 3).Shape.TextFrame.TextRange.Text = ChrW(1057) & ChrW(1083) & ChrW(1086) & ChrW(1074) & ChrW(1086)
tbl2.Cell(3, 4).Shape.TextFrame.TextRange.Text = ChrW(1057) & ChrW(1088) & ChrW(1077) & ChrW(1076) & ChrW(1085) & ChrW(1103) & ChrW(1103) & " (" & ChrW(1079) & ChrW(1072) & ChrW(1074) & ChrW(1080) & ChrW(1089) & ChrW(1080) & ChrW(1090) & " " & ChrW(1086) & ChrW(1090) & " " & ChrW(1076) & ChrW(1083) & ChrW(1080) & ChrW(1085) & ChrW(1099) & ")"
' --- СЛАЙД 12: Таблица 1.3 (Часть 2) ---
slideIndex = slideIndex + 1
Set pptSlide = pptPres.Slides.Add(slideIndex, 12)
AddTextBox pptSlide, ChrW(1047) & ChrW(1072) & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & " 1.3. " & ChrW(1048) & ChrW(1089) & ChrW(1090) & ChrW(1086) & ChrW(1088) & ChrW(1080) & ChrW(1095) & ChrW(1077) & ChrW(1089) & ChrW(1082) & ChrW(1080) & ChrW(1077) & " " & ChrW(1096) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1099) & " (" & ChrW(1063) & ChrW(1072) & ChrW(1089) & ChrW(1090) & ChrW(1100) & " 2)", 50, 50, 600, 40, 24, True
Dim tbl3 As Object
Set tbl3 = pptSlide.Shapes.AddTable(3, 4, 50, 120, 600, 150).Table
tbl3.Cell(1, 1).Shape.TextFrame.TextRange.Text = ChrW(1064) & ChrW(1080) & ChrW(1092) & ChrW(1088)
tbl3.Cell(1, 2).Shape.TextFrame.TextRange.Text = ChrW(1055) & ChrW(1088) & ChrW(1080) & ChrW(1085) & ChrW(1094) & ChrW(1080) & ChrW(1087)
tbl3.Cell(1, 3).Shape.TextFrame.TextRange.Text = ChrW(1050) & ChrW(1083) & ChrW(1102) & ChrW(1095)
tbl3.Cell(1, 4).Shape.TextFrame.TextRange.Text = ChrW(1057) & ChrW(1090) & ChrW(1086) & ChrW(1081) & ChrW(1082) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1100)
tbl3.Cell(2, 1).Shape.TextFrame.TextRange.Text = ChrW(1040) & ChrW(1090) & ChrW(1073) & ChrW(1072) & ChrW(1096)
tbl3.Cell(2, 2).Shape.TextFrame.TextRange.Text = ChrW(1047) & ChrW(1077) & ChrW(1088) & ChrW(1082) & ChrW(1072) & ChrW(1083) & ChrW(1100) & ChrW(1085) & ChrW(1072) & ChrW(1103) & " " & ChrW(1079) & ChrW(1072) & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1072)
tbl3.Cell(2, 3).Shape.TextFrame.TextRange.Text = ChrW(1053) & ChrW(1077) & ChrW(1090)
tbl3.Cell(2, 4).Shape.TextFrame.TextRange.Text = ChrW(1054) & ChrW(1095) & ChrW(1077) & ChrW(1085) & ChrW(1100) & " " & ChrW(1085) & ChrW(1080) & ChrW(1079) & ChrW(1082) & ChrW(1072) & ChrW(1103)
tbl3.Cell(3, 1).Shape.TextFrame.TextRange.Text = ChrW(1056) & ChrW(1077) & ChrW(1096) & ChrW(1105) & ChrW(1090) & ChrW(1082) & ChrW(1072) & " " & ChrW(1050) & ChrW(1072) & ChrW(1088) & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1086)
tbl3.Cell(3, 2).Shape.TextFrame.TextRange.Text = ChrW(1055) & ChrW(1077) & ChrW(1088) & ChrW(1077) & ChrW(1089) & ChrW(1090) & ChrW(1072) & ChrW(1085) & ChrW(1086) & ChrW(1074) & ChrW(1082) & ChrW(1072)
tbl3.Cell(3, 3).Shape.TextFrame.TextRange.Text = ChrW(1056) & ChrW(1077) & ChrW(1096) & ChrW(1077) & ChrW(1090) & ChrW(1082) & ChrW(1072)
tbl3.Cell(3, 4).Shape.TextFrame.TextRange.Text = ChrW(1047) & ChrW(1072) & ChrW(1074) & ChrW(1080) & ChrW(1089) & ChrW(1080) & ChrW(1090) & " " & ChrW(1086) & ChrW(1090) & " " & ChrW(1088) & ChrW(1072) & ChrW(1079) & ChrW(1084) & ChrW(1077) & ChrW(1088) & ChrW(1072)
' --- СЛАЙД 13: Задание 1.4 (Ответы на вопросы) ---
slideIndex = slideIndex + 1
Set pptSlide = pptPres.Slides.Add(slideIndex, 12)
AddTextBox pptSlide, ChrW(1047) & ChrW(1072) & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & " 1.4. " & ChrW(1054) & ChrW(1090) & ChrW(1074) & ChrW(1077) & ChrW(1090) & ChrW(1100) & " " & ChrW(1085) & ChrW(1072) & " " & ChrW(1074) & ChrW(1086) & ChrW(1087) & ChrW(1088) & ChrW(1086) & ChrW(1089) & ChrW(1099), 50, 50, 600, 40, 24, True
Dim bodyText13 As String
bodyText13 = ChrW(1063) & ChrW(1077) & ChrW(1084) & " " & ChrW(1096) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & " " & ChrW(1086) & ChrW(1090) & ChrW(1083) & ChrW(1080) & ChrW(1095) & ChrW(1072) & ChrW(1077) & ChrW(1090) & ChrW(1089) & ChrW(1103) & " " & ChrW(1086) & ChrW(1090) & " " & ChrW(1082) & ChrW(1086) & ChrW(1076) & ChrW(1080) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1103) & "?"
bodyText13 = bodyText13 & vbCrLf & ChrW(1064) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & " " & ChrW(1080) & ChrW(1089) & ChrW(1087) & ChrW(1086) & ChrW(1083) & ChrW(1100) & ChrW(1079) & ChrW(1091) & ChrW(1077) & ChrW(1090) & " " & ChrW(1082) & ChrW(1083) & ChrW(1102) & ChrW(1095) & " " & ChrW(1080) & " " & ChrW(1089) & ChrW(1082) & ChrW(1088) & ChrW(1099) & ChrW(1074) & ChrW(1072) & ChrW(1077) & ChrW(1090) & " " & ChrW(1089) & ChrW(1084) & ChrW(1099) & ChrW(1089) & ChrW(1083) & ", " & ChrW(1082) & ChrW(1086) & ChrW(1076) & ChrW(1080) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & " " & ChrW(1083) & ChrW(1080) & ChrW(1096) & ChrW(1100) & " " & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1103) & ChrW(1077) & ChrW(1090) & " " & ChrW(1092) & ChrW(1086) & ChrW(1088) & ChrW(1084) & ChrW(1091) & "."
bodyText13 = bodyText13 & vbCrLf & ChrW(1055) & ChrW(1086) & ChrW(1095) & ChrW(1077) & ChrW(1084) & ChrW(1091) & " " & ChrW(1087) & ChrW(1088) & ChrW(1080) & ChrW(1085) & ChrW(1094) & ChrW(1080) & ChrW(1087) & " " & ChrW(1050) & ChrW(1077) & ChrW(1088) & ChrW(1082) & ChrW(1075) & ChrW(1086) & ChrW(1092) & ChrW(1092) & ChrW(1089) & ChrW(1072) & " " & ChrW(1074) & ChrW(1072) & ChrW(1078) & ChrW(1077) & ChrW(1085) & "?"
bodyText13 = bodyText13 & vbCrLf & ChrW(1054) & ChrW(1085) & " " & ChrW(1075) & ChrW(1072) & ChrW(1088) & ChrW(1072) & ChrW(1085) & ChrW(1090) & ChrW(1080) & ChrW(1088) & ChrW(1091) & ChrW(1077) & ChrW(1090) & ", " & ChrW(1095) & ChrW(1090) & ChrW(1086) & " " & ChrW(1073) & ChrW(1077) & ChrW(1079) & ChrW(1086) & ChrW(1087) & ChrW(1072) & ChrW(1089) & ChrW(1085) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1100) & " " & ChrW(1085) & ChrW(1077) & " " & ChrW(1076) & ChrW(1086) & ChrW(1083) & ChrW(1078) & ChrW(1085) & ChrW(1072) & " " & ChrW(1079) & ChrW(1072) & ChrW(1074) & ChrW(1080) & ChrW(1089) & ChrW(1077) & ChrW(1090) & ChrW(1100) & " " & ChrW(1086) & ChrW(1090) & " " & ChrW(1089) & ChrW(1077) & ChrW(1082) & ChrW(1088) & ChrW(1077) & ChrW(1090) & ChrW(1085) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1080) & " " & ChrW(1072) & ChrW(1083) & ChrW(1075) & ChrW(1086) & ChrW(1088) & ChrW(1080) & ChrW(1090) & ChrW(1084) & ChrW(1072) & "."
bodyText13 = bodyText13 & vbCrLf & ChrW(1063) & ChrW(1090) & ChrW(1086) & " " & ChrW(1090) & ChrW(1072) & ChrW(1082) & ChrW(1086) & ChrW(1077) & " " & ChrW(1083) & ChrW(1072) & ChrW(1074) & ChrW(1080) & ChrW(1085) & ChrW(1085) & ChrW(1099) & ChrW(1081) & " " & ChrW(1101) & ChrW(1092) & ChrW(1092) & ChrW(1077) & ChrW(1082) & ChrW(1090) & "?"
bodyText13 = bodyText13 & vbCrLf & ChrW(1052) & ChrW(1072) & ChrW(1083) & ChrW(1086) & ChrW(1077) & " " & ChrW(1080) & ChrW(1079) & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1077) & " " & ChrW(1074) & ChrW(1093) & ChrW(1086) & ChrW(1076) & ChrW(1072) & " " & ChrW(1074) & ChrW(1077) & ChrW(1076) & ChrW(1077) & ChrW(1090) & " " & ChrW(1082) & " " & ChrW(1073) & ChrW(1086) & ChrW(1083) & ChrW(1100) & ChrW(1096) & ChrW(1086) & ChrW(1084) & ChrW(1091) & " " & ChrW(1080) & ChrW(1079) & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1102) & " " & ChrW(1074) & ChrW(1099) & ChrW(1093) & ChrW(1086) & ChrW(1076) & ChrW(1072) & "."
bodyText13 = bodyText13 & vbCrLf & ChrW(1047) & ChrW(1072) & ChrW(1095) & ChrW(1077) & ChrW(1084) & " " & ChrW(1085) & ChrW(1091) & ChrW(1078) & ChrW(1085) & ChrW(1072) & " " & ChrW(1101) & ChrW(1083) & ChrW(1077) & ChrW(1082) & ChrW(1090) & ChrW(1088) & ChrW(1086) & ChrW(1085) & ChrW(1085) & ChrW(1072) & ChrW(1103) & " " & ChrW(1087) & ChrW(1086) & ChrW(1076) & ChrW(1087) & ChrW(1080) & ChrW(1089) & ChrW(1100) & "?"
bodyText13 = bodyText13 & vbCrLf & ChrW(1044) & ChrW(1083) & ChrW(1103) & " " & ChrW(1087) & ChrW(1086) & ChrW(1076) & ChrW(1090) & ChrW(1074) & ChrW(1077) & ChrW(1088) & ChrW(1078) & ChrW(1076) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1103) & " " & ChrW(1072) & ChrW(1074) & ChrW(1090) & ChrW(1086) & ChrW(1088) & ChrW(1089) & ChrW(1090) & ChrW(1074) & ChrW(1072) & " " & ChrW(1080) & " " & ChrW(1094) & ChrW(1077) & ChrW(1083) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1085) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1080) & " " & ChrW(1076) & ChrW(1086) & ChrW(1082) & ChrW(1091) & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1090) & ChrW(1072) & "."
AddTextBox pptSlide, bodyText13, 50, 120, 600, 350, 16, False
' --- СЛАЙД 14: Таблица 1.5 (Часть 1) ---
slideIndex = slideIndex + 1
Set pptSlide = pptPres.Slides.Add(slideIndex, 12)
AddTextBox pptSlide, ChrW(1047) & ChrW(1072) & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & " 1.5. " & ChrW(1057) & ChrW(1086) & ChrW(1074) & ChrW(1088) & ChrW(1077) & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1085) & ChrW(1099) & ChrW(1077) & " " & ChrW(1072) & ChrW(1083) & ChrW(1075) & ChrW(1086) & ChrW(1088) & ChrW(1080) & ChrW(1090) & ChrW(1084) & ChrW(1099) & " (" & ChrW(1063) & ChrW(1072) & ChrW(1089) & ChrW(1090) & ChrW(1100) & " 1)", 50, 50, 600, 40, 24, True
Dim tbl4 As Object
Set tbl4 = pptSlide.Shapes.AddTable(4, 4, 50, 120, 600, 200).Table
tbl4.Cell(1, 1).Shape.TextFrame.TextRange.Text = ChrW(1040) & ChrW(1083) & ChrW(1075) & ChrW(1086) & ChrW(1088) & ChrW(1080) & ChrW(1090) & ChrW(1084)
tbl4.Cell(1, 2).Shape.TextFrame.TextRange.Text = ChrW(1058) & ChrW(1080) & ChrW(1087)
tbl4.Cell(1, 3).Shape.TextFrame.TextRange.Text = ChrW(1044) & ChrW(1083) & ChrW(1080) & ChrW(1085) & ChrW(1072) & " " & ChrW(1082) & ChrW(1083) & ChrW(1102) & ChrW(1095) & ChrW(1072)
tbl4.Cell(1, 4).Shape.TextFrame.TextRange.Text = ChrW(1055) & ChrW(1088) & ChrW(1080) & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1077)
tbl4.Cell(2, 1).Shape.TextFrame.TextRange.Text = "AES"
tbl4.Cell(2, 2).Shape.TextFrame.TextRange.Text = ChrW(1057) & ChrW(1080) & ChrW(1084) & ChrW(1084) & ChrW(1077) & ChrW(1090) & ChrW(1088) & ChrW(1080) & ChrW(1095) & ChrW(1085) & ChrW(1099) & ChrW(1081)
tbl4.Cell(2, 3).Shape.TextFrame.TextRange.Text = "128/192/256 " & ChrW(1073) & ChrW(1080) & ChrW(1090)
tbl4.Cell(2, 4).Shape.TextFrame.TextRange.Text = ChrW(1064) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & " " & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1085) & ChrW(1099) & ChrW(1093)
tbl4.Cell(3, 1).Shape.TextFrame.TextRange.Text = "RSA"
tbl4.Cell(3, 2).Shape.TextFrame.TextRange.Text = ChrW(1040) & ChrW(1089) & ChrW(1080) & ChrW(1084) & ChrW(1084) & ChrW(1077) & ChrW(1090) & ChrW(1088) & ChrW(1080) & ChrW(1095) & ChrW(1085) & ChrW(1099) & ChrW(1081)
tbl4.Cell(3, 3).Shape.TextFrame.TextRange.Text = "1024-4096 " & ChrW(1073) & ChrW(1080) & ChrW(1090)
tbl4.Cell(3, 4).Shape.TextFrame.TextRange.Text = ChrW(1054) & ChrW(1073) & ChrW(1084) & ChrW(1077) & ChrW(1085) & " " & ChrW(1082) & ChrW(1083) & ChrW(1102) & ChrW(1095) & ChrW(1072) & ChrW(1084) & ChrW(1080) & ", " & ChrW(1069) & ChrW(1062) & ChrW(1055)
tbl4.Cell(4, 1).Shape.TextFrame.TextRange.Text = "SHA-256"
tbl4.Cell(4, 2).Shape.TextFrame.TextRange.Text = ChrW(1061) & ChrW(1077) & ChrW(1096) & ChrW(1080) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077)
tbl4.Cell(4, 3).Shape.TextFrame.TextRange.Text = "-"
tbl4.Cell(4, 4).Shape.TextFrame.TextRange.Text = ChrW(1062) & ChrW(1077) & ChrW(1083) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1085) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1100) & " " & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1085) & ChrW(1099) & ChrW(1093)
' --- СЛАЙД 15: Таблица 1.5 (Часть 2) ---
slideIndex = slideIndex + 1
Set pptSlide = pptPres.Slides.Add(slideIndex, 12)
AddTextBox pptSlide, ChrW(1047) & ChrW(1072) & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & " 1.5. " & ChrW(1057) & ChrW(1086) & ChrW(1074) & ChrW(1088) & ChrW(1077) & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1085) & ChrW(1099) & ChrW(1077) & " " & ChrW(1072) & ChrW(1083) & ChrW(1075) & ChrW(1086) & ChrW(1088) & ChrW(1080) & ChrW(1090) & ChrW(1084) & ChrW(1099) & " (" & ChrW(1063) & ChrW(1072) & ChrW(1089) & ChrW(1090) & ChrW(1100) & " 2)", 50, 50, 600, 40, 24, True
Dim tbl5 As Object
Set tbl5 = pptSlide.Shapes.AddTable(3, 4, 50, 120, 600, 150).Table
tbl5.Cell(1, 1).Shape.TextFrame.TextRange.Text = ChrW(1040) & ChrW(1083) & ChrW(1075) & ChrW(1086) & ChrW(1088) & ChrW(1080) & ChrW(1090) & ChrW(1084)
tbl5.Cell(1, 2).Shape.TextFrame.TextRange.Text = ChrW(1058) & ChrW(1080) & ChrW(1087)
tbl5.Cell(1, 3).Shape.TextFrame.TextRange.Text = ChrW(1044) & ChrW(1083) & ChrW(1080) & ChrW(1085) & ChrW(1072) & " " & ChrW(1082) & ChrW(1083) & ChrW(1102) & ChrW(1095) & ChrW(1072)
tbl5.Cell(1, 4).Shape.TextFrame.TextRange.Text = ChrW(1055) & ChrW(1088) & ChrW(1080) & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1077)
tbl5.Cell(2, 1).Shape.TextFrame.TextRange.Text = ChrW(1043) & ChrW(1054) & ChrW(1057) & ChrW(1058) & " 28147-89"
tbl5.Cell(2, 2).Shape.TextFrame.TextRange.Text = ChrW(1057) & ChrW(1080) & ChrW(1084) & ChrW(1084) & ChrW(1077) & ChrW(1090) & ChrW(1088) & ChrW(1080) & ChrW(1095) & ChrW(1085) & ChrW(1099) & ChrW(1081)
tbl5.Cell(2, 3).Shape.TextFrame.TextRange.Text = "256 " & ChrW(1073) & ChrW(1080) & ChrW(1090)
tbl5.Cell(2, 4).Shape.TextFrame.TextRange.Text = ChrW(1064) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & " (" & ChrW(1056) & ChrW(1060) & ")"
tbl5.Cell(3, 1).Shape.TextFrame.TextRange.Text = ChrW(1043) & ChrW(1054) & ChrW(1057) & ChrW(1058) & " " & ChrW(1056) & " 34.10"
tbl5.Cell(3, 2).Shape.TextFrame.TextRange.Text = ChrW(1040) & ChrW(1089) & ChrW(1080) & ChrW(1084) & ChrW(1084) & ChrW(1077) & ChrW(1090) & ChrW(1088) & ChrW(1080) & ChrW(1095) & ChrW(1085) & ChrW(1099) & ChrW(1081)
tbl5.Cell(3, 3).Shape.TextFrame.TextRange.Text = "256/512 " & ChrW(1073) & ChrW(1080) & ChrW(1090)
tbl5.Cell(3, 4).Shape.TextFrame.TextRange.Text = ChrW(1069) & ChrW(1062) & ChrW(1055) & " (" & ChrW(1056) & ChrW(1060) & ")"
' --- СЛАЙД 16: Заключение ---
slideIndex = slideIndex + 1
Set pptSlide = pptPres.Slides.Add(slideIndex, 12)
AddTextBox pptSlide, ChrW(1047) & ChrW(1072) & ChrW(1082) & ChrW(1083) & ChrW(1102) & ChrW(1095) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1077), 50, 50, 600, 40, 24, True
AddTextBox pptSlide, ChrW(1050) & ChrW(1088) & ChrW(1080) & ChrW(1087) & ChrW(1090) & ChrW(1086) & ChrW(1075) & ChrW(1088) & ChrW(1072) & ChrW(1092) & ChrW(1080) & ChrW(1103) & " - " & ChrW(1101) & ChrW(1090) & ChrW(1086) & " " & ChrW(1074) & ChrW(1072) & ChrW(1078) & ChrW(1085) & ChrW(1077) & ChrW(1081) & ChrW(1096) & ChrW(1080) & ChrW(1081) & " " & ChrW(1080) & ChrW(1085) & ChrW(1089) & ChrW(1090) & ChrW(1088) & ChrW(1091) & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1090) & " " & ChrW(1079) & ChrW(1072) & ChrW(1097) & ChrW(1080) & ChrW(1090) & ChrW(1099) & " " & ChrW(1080) & ChrW(1085) & ChrW(1092) & ChrW(1086) & ChrW(1088) & ChrW(1084) & ChrW(1072) & ChrW(1094) & ChrW(1080) & ChrW(1080) & ".", 50, 120, 600, 100, 18, False
MsgBox ChrW(1055) & ChrW(1088) & ChrW(1077) & ChrW(1079) & ChrW(1077) & ChrW(1085) & ChrW(1090) & ChrW(1072) & ChrW(1094) & ChrW(1080) & ChrW(1103) & " " & ChrW(1091) & ChrW(1089) & ChrW(1087) & ChrW(1077) & ChrW(1096) & ChrW(1085) & ChrW(1086) & " " & ChrW(1089) & ChrW(1086) & ChrW(1079) & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1072) & "!", vbInformation
End Sub
' Вспомогательная функция для добавления текстового поля
Sub AddTextBox(sld As Object, txt As String, left As Single, top As Single, width As Single, height As Single, fontSize As Integer, isBold As Boolean)
Dim tb As Object
Set tb = sld.Shapes.AddTextbox(1, left, top, width, height)
tb.TextFrame.TextRange.Text = txt
tb.TextFrame.TextRange.Font.Size = fontSize
tb.TextFrame.TextRange.Font.Bold = isBold
End Sub