https://pastein.ru/t/3iS
Загрузка данных
Sub FillAnswersInPresentation()
Dim pptPres As Presentation
Dim sld As Slide
If Presentations.Count = 0 Then
MsgBox "Откройте созданную презентацию!", vbExclamation
Exit Sub
End If
Set pptPres = ActivePresentation
If pptPres.Slides.Count < 10 Then
MsgBox "В презентации должно быть минимум 10 слайдов!", vbExclamation
Exit Sub
End If
' --- СЛАЙД 6: Задание 1.1 (Определения) ---
Set sld = pptPres.Slides(6)
sld.Shapes(2).TextFrame.TextRange.Text = _
"• " & 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) & "." & 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(1086) & ChrW(1090) & ChrW(1082) & ChrW(1088) & ChrW(1099) & ChrW(1090) & ChrW(1086) & ChrW(1075) & ChrW(1086) & " " & ChrW(1090) & ChrW(1077) & ChrW(1082) & ChrW(1089) & ChrW(1090) & ChrW(1072) & " " & ChrW(1074) & " " & ChrW(1096) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1090) & ChrW(1077) & ChrW(1082) & ChrW(1089) & ChrW(1090) & "." & 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(1099) & ChrW(1081) & " " & ChrW(1087) & ChrW(1088) & ChrW(1086) & ChrW(1094) & ChrW(1077) & ChrW(1089) & ChrW(1089) & "." & vbCrLf & _
"• " & ChrW(1050) & ChrW(1083) & ChrW(1102) & ChrW(1095) & " — " & ChrW(1089) & ChrW(1077) & ChrW(1082) & ChrW(1088) & ChrW(1077) & ChrW(1090) & ChrW(1085) & ChrW(1099) & ChrW(1081) & " " & ChrW(1087) & ChrW(1072) & ChrW(1088) & ChrW(1072) & ChrW(1084) & ChrW(1077) & ChrW(1090) & ChrW(1088) & " " & ChrW(1072) & ChrW(1083) & ChrW(1075) & ChrW(1086) & ChrW(1088) & ChrW(1080) & ChrW(1090) & ChrW(1084) & ChrW(1072) & "." & 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) & "." & 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(1080) & ChrW(1089) & ChrW(1093) & ChrW(1086) & ChrW(1076) & ChrW(1085) & ChrW(1086) & ChrW(1077) & " " & ChrW(1089) & ChrW(1086) & ChrW(1086) & ChrW(1073) & ChrW(1097) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1077) & "." & 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(1086) & ChrW(1077) & " " & ChrW(1089) & ChrW(1086) & ChrW(1086) & ChrW(1073) & ChrW(1097) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1077) & "." & 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(1087) & ChrW(1086) & ChrW(1089) & ChrW(1086) & ChrW(1073) & ChrW(1085) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1100) & " " & ChrW(1087) & ChrW(1088) & ChrW(1086) & ChrW(1090) & ChrW(1080) & ChrW(1074) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1086) & ChrW(1103) & ChrW(1090) & ChrW(1100) & " " & ChrW(1074) & ChrW(1079) & ChrW(1083) & ChrW(1086) & ChrW(1084) & ChrW(1091) & "." & vbCrLf & _
"• " & ChrW(1061) & ChrW(1077) & ChrW(1096) & "-" & 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(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(1089) & ChrW(1090) & ChrW(1088) & ChrW(1086) & ChrW(1082) & ChrW(1091) & " " & ChrW(1092) & ChrW(1080) & ChrW(1082) & ChrW(1089) & ChrW(1080) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1085) & ChrW(1086) & ChrW(1081) & " " & ChrW(1076) & ChrW(1083) & ChrW(1080) & ChrW(1085) & ChrW(1099) & "." & 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(1088) & ChrW(1077) & ChrW(1082) & ChrW(1074) & ChrW(1080) & ChrW(1079) & ChrW(1080) & ChrW(1090) & ", " & ChrW(1087) & ChrW(1086) & ChrW(1076) & ChrW(1090) & ChrW(1074) & ChrW(1077) & ChrW(1088) & ChrW(1078) & ChrW(1076) & ChrW(1072) & ChrW(1102) & ChrW(1097) & ChrW(1080) & ChrW(1081) & " " & ChrW(1072) & ChrW(1074) & ChrW(1090) & ChrW(1086) & ChrW(1088) & ChrW(1089) & ChrW(1090) & ChrW(1074) & ChrW(1086) & " " & ChrW(1080) & " " & ChrW(1094) & ChrW(1077) & ChrW(1083) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1085) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1100) & "."
' --- СЛАЙД 7: Задание 1.2 (Таблица) ---
Set sld = pptPres.Slides(7)
sld.Shapes(2).TextFrame.TextRange.Text = _
ChrW(1047) & ChrW(1072) & ChrW(1087) & ChrW(1086) & ChrW(1083) & ChrW(1085) & ChrW(1077) & ChrW(1085) & ChrW(1085) & ChrW(1072) & ChrW(1103) & " " & _
ChrW(1090) & ChrW(1072) & ChrW(1073) & ChrW(1083) & ChrW(1080) & ChrW(1094) & ChrW(1072) & ":" & vbCrLf & vbCrLf & _
ChrW(1042) & ChrW(1080) & ChrW(1076) & " | " & ChrW(1050) & ChrW(1083) & ChrW(1102) & ChrW(1095) & ChrW(1080) & " | " & ChrW(1057) & ChrW(1082) & ChrW(1086) & ChrW(1088) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1100) & " | " & ChrW(1041) & ChrW(1077) & ChrW(1079) & ChrW(1086) & ChrW(1087) & ChrW(1072) & ChrW(1089) & ChrW(1085) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1100) & vbCrLf & _
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) & " | " & ChrW(1042) & ChrW(1099) & ChrW(1089) & ChrW(1086) & ChrW(1082) & ChrW(1072) & ChrW(1103) & " | " & ChrW(1047) & ChrW(1072) & ChrW(1074) & ChrW(1080) & ChrW(1089) & ChrW(1080) & ChrW(1090) & " " & ChrW(1086) & ChrW(1090) & " " & ChrW(1082) & ChrW(1083) & ChrW(1102) & ChrW(1095) & ChrW(1072) & 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(1053) & ChrW(1080) & ChrW(1079) & ChrW(1082) & ChrW(1072) & ChrW(1103) & " | " & ChrW(1042) & ChrW(1099) & ChrW(1089) & ChrW(1086) & ChrW(1082) & ChrW(1072) & ChrW(1103) & " (" & ChrW(1084) & ChrW(1072) & ChrW(1090) & ". " & ChrW(1089) & ChrW(1083) & ChrW(1086) & ChrW(1078) & ChrW(1085) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1100) & ")" & 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) & " | " & ChrW(1042) & ChrW(1099) & ChrW(1089) & ChrW(1086) & ChrW(1082) & ChrW(1072) & ChrW(1103) & " | " & ChrW(1054) & ChrW(1073) & ChrW(1077) & ChrW(1089) & ChrW(1087) & ChrW(1077) & ChrW(1095) & ChrW(1080) & ChrW(1074) & ChrW(1072) & ChrW(1077) & ChrW(1090) & " " & ChrW(1094) & ChrW(1077) & ChrW(1083) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1085) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1100)
' --- СЛАЙД 8: Задание 1.3 (Таблица) ---
Set sld = pptPres.Slides(8)
sld.Shapes(2).TextFrame.TextRange.Text = _
ChrW(1047) & ChrW(1072) & ChrW(1087) & ChrW(1086) & ChrW(1083) & ChrW(1085) & ChrW(1077) & ChrW(1085) & ChrW(1085) & ChrW(1072) & ChrW(1103) & " " & ChrW(1090) & ChrW(1072) & ChrW(1073) & ChrW(1083) & ChrW(1080) & ChrW(1094) & ChrW(1072) & ":" & vbCrLf & vbCrLf & _
ChrW(1064) & ChrW(1080) & ChrW(1092) & ChrW(1088) & " | " & ChrW(1055) & ChrW(1088) & ChrW(1080) & ChrW(1085) & ChrW(1094) & ChrW(1080) & ChrW(1087) & " | " & ChrW(1050) & ChrW(1083) & ChrW(1102) & ChrW(1095) & " | " & ChrW(1057) & ChrW(1090) & ChrW(1086) & ChrW(1081) & ChrW(1082) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1100) & " | " & ChrW(1055) & ChrW(1088) & ChrW(1080) & ChrW(1084) & ChrW(1077) & ChrW(1088) & ChrW(1099) & vbCrLf & _
ChrW(1062) & ChrW(1077) & ChrW(1079) & ChrW(1072) & ChrW(1088) & ChrW(1103) & " | " & ChrW(1057) & ChrW(1076) & ChrW(1074) & ChrW(1080) & ChrW(1075) & " " & ChrW(1073) & ChrW(1091) & ChrW(1082) & ChrW(1074) & " | " & ChrW(1063) & ChrW(1080) & ChrW(1089) & ChrW(1083) & ChrW(1086) & " " & ChrW(1089) & ChrW(1076) & ChrW(1074) & ChrW(1080) & ChrW(1075) & ChrW(1072) & " | " & ChrW(1053) & ChrW(1080) & ChrW(1079) & ChrW(1082) & ChrW(1072) & ChrW(1103) & " | ABC->DEF" & vbCrLf & _
ChrW(1042) & ChrW(1080) & ChrW(1078) & ChrW(1077) & ChrW(1085) & ChrW(1077) & ChrW(1088) & ChrW(1072) & " | " & ChrW(1057) & ChrW(1076) & ChrW(1074) & ChrW(1080) & ChrW(1075) & " " & ChrW(1087) & ChrW(1086) & " " & ChrW(1089) & ChrW(1083) & ChrW(1086) & ChrW(1074) & ChrW(1091) & " | " & ChrW(1050) & ChrW(1083) & ChrW(1102) & ChrW(1095) & ". " & ChrW(1089) & ChrW(1083) & ChrW(1086) & ChrW(1074) & ChrW(1086) & " | " & ChrW(1057) & ChrW(1088) & ChrW(1077) & ChrW(1076) & ChrW(1085) & ChrW(1103) & ChrW(1103) & " | ATTACK+LEMON" & vbCrLf & _
ChrW(1040) & ChrW(1090) & ChrW(1073) & ChrW(1072) & ChrW(1096) & " | " & 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) & " | " & ChrW(1054) & ChrW(1090) & ChrW(1089) & ChrW(1091) & ChrW(1090) & ChrW(1089) & ChrW(1090) & ChrW(1074) & ChrW(1091) & ChrW(1077) & ChrW(1090) & " | " & ChrW(1053) & ChrW(1080) & ChrW(1079) & ChrW(1082) & ChrW(1072) & ChrW(1103) & " | " & ChrW(1040) & ChrW(1041) & ChrW(1042) & "->" & ChrW(1071) & ChrW(1070) & ChrW(1069) & 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(1055) & ChrW(1077) & ChrW(1088) & ChrW(1077) & ChrW(1089) & ChrW(1090) & ChrW(1072) & ChrW(1085) & ChrW(1086) & ChrW(1074) & ChrW(1082) & ChrW(1072) & " | " & ChrW(1058) & ChrW(1088) & ChrW(1072) & ChrW(1092) & ChrW(1072) & ChrW(1088) & ChrW(1077) & ChrW(1090) & " | " & ChrW(1053) & ChrW(1080) & ChrW(1079) & ChrW(1082) & ChrW(1072) & ChrW(1103) & " | " & ChrW(1058) & ChrW(1077) & ChrW(1082) & ChrW(1089) & ChrW(1090) & " " & ChrW(1074) & " " & ChrW(1090) & ChrW(1088) & ChrW(1072) & ChrW(1092) & ChrW(1072) & ChrW(1088) & ChrW(1077) & ChrW(1090) & ChrW(1077)
' --- СЛАЙД 9: Задание 1.4 (Ответы на вопросы) ---
Set sld = pptPres.Slides(9)
sld.Shapes(2).TextFrame.TextRange.Text = _
"• " & ChrW(1054) & ChrW(1090) & ChrW(1083) & ChrW(1080) & ChrW(1095) & ChrW(1080) & ChrW(1077) & " " & ChrW(1096) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & 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) & ": " & ChrW(1050) & ChrW(1086) & ChrW(1076) & ChrW(1080) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & " " & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1103) & ChrW(1077) & ChrW(1090) & " " & ChrW(1092) & ChrW(1086) & ChrW(1088) & ChrW(1084) & ChrW(1091) & ", " & ChrW(1072) & " " & ChrW(1096) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & " " & 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(1089) & " " & ChrW(1082) & ChrW(1083) & ChrW(1102) & ChrW(1095) & ChrW(1086) & ChrW(1084) & "." & vbCrLf & _
"• " & 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(1040) & ChrW(1083) & ChrW(1075) & ChrW(1086) & ChrW(1088) & ChrW(1080) & ChrW(1090) & ChrW(1084) & " " & ChrW(1086) & ChrW(1090) & ChrW(1082) & ChrW(1088) & ChrW(1099) & ChrW(1090) & ", " & ChrW(1089) & ChrW(1090) & ChrW(1086) & ChrW(1081) & ChrW(1082) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1100) & " " & 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) & ". " & ChrW(1055) & ChrW(1086) & ChrW(1079) & ChrW(1074) & ChrW(1086) & ChrW(1083) & ChrW(1103) & ChrW(1077) & ChrW(1090) & " " & ChrW(1072) & ChrW(1091) & ChrW(1076) & ChrW(1080) & ChrW(1090) & "." & 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(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(1089) & ChrW(1080) & ChrW(1083) & ChrW(1100) & ChrW(1085) & 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) & "." & vbCrLf & _
"• " & ChrW(1069) & ChrW(1062) & ChrW(1055) & ": " & ChrW(1055) & 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(1094) & ChrW(1077) & ChrW(1083) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1085) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1080) & " " & ChrW(1080) & " " & ChrW(1085) & ChrW(1077) & ChrW(1086) & ChrW(1090) & ChrW(1082) & ChrW(1072) & ChrW(1079) & ChrW(1091) & ChrW(1077) & ChrW(1084) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1080) & "."
' --- СЛАЙД 10: Задание 1.5 (Таблица) ---
Set sld = pptPres.Slides(10)
sld.Shapes(2).TextFrame.TextRange.Text = _
ChrW(1047) & ChrW(1072) & ChrW(1087) & ChrW(1086) & ChrW(1083) & ChrW(1085) & ChrW(1077) & ChrW(1085) & ChrW(1085) & ChrW(1072) & ChrW(1103) & " " & ChrW(1090) & ChrW(1072) & ChrW(1073) & ChrW(1083) & ChrW(1080) & ChrW(1094) & ChrW(1072) & ":" & vbCrLf & vbCrLf & _
ChrW(1040) & ChrW(1083) & ChrW(1075) & ChrW(1086) & ChrW(1088) & ChrW(1080) & ChrW(1090) & ChrW(1084) & " | " & ChrW(1058) & ChrW(1080) & ChrW(1087) & " | " & ChrW(1044) & ChrW(1083) & ChrW(1080) & ChrW(1085) & ChrW(1072) & " " & ChrW(1082) & ChrW(1083) & ChrW(1102) & ChrW(1095) & ChrW(1072) & " | " & ChrW(1055) & ChrW(1088) & ChrW(1080) & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1077) & vbCrLf & _
"AES | " & ChrW(1057) & ChrW(1080) & ChrW(1084) & ChrW(1084) & ChrW(1077) & ChrW(1090) & ChrW(1088) & ChrW(1080) & ChrW(1095) & ChrW(1085) & ChrW(1099) & ChrW(1081) & " | 128/256 " & ChrW(1073) & ChrW(1080) & ChrW(1090) & " | " & ChrW(1064) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & vbCrLf & _
"RSA | " & 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) & " | 2048+ " & ChrW(1073) & ChrW(1080) & ChrW(1090) & " | " & ChrW(1064) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & ", " & ChrW(1069) & ChrW(1062) & ChrW(1055) & vbCrLf & _
"SHA-256 | " & ChrW(1061) & ChrW(1077) & ChrW(1096) & ChrW(1080) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & " | 256 " & ChrW(1073) & ChrW(1080) & ChrW(1090) & " | " & ChrW(1062) & ChrW(1077) & ChrW(1083) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1085) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1100) & vbCrLf & _
ChrW(1043) & ChrW(1054) & ChrW(1057) & ChrW(1058) & " 28147-89 | " & ChrW(1057) & ChrW(1080) & ChrW(1084) & ChrW(1084) & ChrW(1077) & ChrW(1090) & ChrW(1088) & ChrW(1080) & ChrW(1095) & ChrW(1085) & ChrW(1099) & ChrW(1081) & " | 256 " & ChrW(1073) & ChrW(1080) & ChrW(1090) & " | " & ChrW(1064) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & vbCrLf & _
ChrW(1043) & ChrW(1054) & ChrW(1057) & ChrW(1058) & " " & ChrW(1056) & " 34.10 | " & 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) & " | 256/512 " & ChrW(1073) & ChrW(1080) & ChrW(1090) & " | " & ChrW(1069) & ChrW(1062) & ChrW(1055)
MsgBox "Презентация обновлена!", vbInformation
End Sub