presentation

1.

Option Explicit Sub CreateConflictologyPresentation〇Dim pptPres As Presentation Dim oSlide As Slide Dim slideIndex As Integer Set pptPres =
ActivePresentation slideIndex = 1 ' Dj0»0°010, 1 Set oSlide = pptPres.Slides.Add(slideIndex, ppLayoutTitle) oSlide.Shapes.Title.TextFrame.TextRange.Text =
_ ”DDQD3/4D1/2D3/4D1/4〇j本Dp卩0°〇4〇卜0203/4〇101/2卩< D2 XXI D2DpDQDp:
卩D乙0卜卩卞〇,从,〇,〇Q〇° 〇'〇,〇1/2D°D1/4D,D°D° D, D1/4〇y卩,0%0'&< &€D°D■卩€DyAADpD1/2〇,卩" oSlide.Shapes(2).TextFrame.TextRange.Text = _
”D?A€DpD-DpD1/2卩,D°卩tDj D乙D3/ D’DjAtDp^DnDjD/Dp A«D§D3/D1/2卩„D»D,DQA,D3/4D»D3/4D3DjA»” slideIndex = slideIndex + 1 ' DjD»D°DiD' 2 Set
oSlide = pptPres.Slides.Add(slidelndex ppLayoutText) oSlide.Shapes.Title.TextFrame.TextRange.Text = _ ”D§A,D3/4 卩,D°DQD3/Dp ADQD3/D1/2D3/4D1/4Dj
本DpADQD。卩D2D3/4D1D1/2D°?” oSlide.Shapes(2).TextFrame.TextRange.Text = _ "含€〇DD°D3/D1/2D3/4D1/4Dj本Dp卩D°D°卩D2D3/D1D1/2D° a€”
卩 ,D3/A€D1/4D° D1/4DpDflD3D3/4卩卩/D'D°A€卩卩,D2DpD1/2D1/2D3/4D3D3/4 D°D3/D1/2卩 ,D»D D叫,D° D^A€D, D°D/卩,D3/A€D3/4Di DjD^D3/D»卩汪
D-^fAZ卩 卩卩AD^D/D/D/D/Dj本DpAD°D,Dp D,D/卩卩 卩€A/D1/4DpD1/2卩外D'D°D2D»DpD1/2Dj.- & vbCrLf & _ ”a€〇DZAD1/2D3/D2D1/2仏Dp D/D土卩
SDpD啪办 A€^D1/2D°D, A€Dp卩卩/卩€卩卩< 卩,Dp卩■■■D1/2D3/4D»D3/4D3D,D, 卩 ,D,D1/2D°D1/2卩仏.” & vbCrLf & _ ”a€〇DjA/D土卩SDpD°A 卩
<:D3D/卩卩/D'D°A€卩卩,D2D° D/DpDflD'卩/D1/2D°A€D3/4D'D1/2A<Dp D3/4A€D3D°D1/2D,D-D° 卩tD,D,
D,卩 卩€D°D/卩D/D°卩tD,D3/D1/2D°D»卩汪D/^Dp D°D3/4A€D^D3/4A€D。卩tD,Dv” slideIndex = slideIndex + 1」DjDnDopiD' 3 Set oSlide
=pptPres.Slides.Add(slideIndex ppLayoutText) oSlide.Shapes.Title.TextFrame.TextRange.Text = _ MDYN€D,N^D,D/N< D2D3/DD1/2D,DQD1/2D3/4D2DpD1/2D,A” oSlide.Shapes(2).TextFrame.TextRange.Text = _ ”a€〇DlD3/A€A江D±D° D-D° D/D3N€D°D/D,N^DpD/D/N<Dp
N€DpNN/N€NN<.M & vbCrLf & _ Ma€〇DsD/D/DQA/N€DpD/NtD,N D^D° D/D,N€D/D2D/Dp DnDjD'DpAfA&DZD3/.” & vbCrLf & _ ”a€〇D—D°N%〇D,N,D°
D1/2D°AtD,D3/4D1/2D°D»A汪D1/2N<N... D^N€D3/4D,D-D2D3/4D D,N,DpD»DpDi.M & vbCrLf & _ Ma€〇OjN,N€DpD/D»DpD/D,Dp D°
N,DpN^D/D%D»D%D3D,N^DpNDQD%D/N/ NN/D2DpN€DpD1/2D,N,DpN,N7.- & vbCrLf &_ ”a€〇D“DpD3/4D^D3/4D»D,N,D,N本DpND°D,Dp
D^N€D3/4N,D,D2D3/4N€DpN本D,N." slideIndex =slideIndex + 1 ' DjD»D°DiD' 4 Set oSlide = pptPres.Slides.Add(slideIndex ppLayoutText)
oSlide.Shapes.Title.TextFrame.TextRange.Text = _ MD~D/NN,N€N/D/DpD/N,N< NDQD%D/D%D/D,N^DpNDQD%Di D2D/DiD/N<M
oSlide.Shapes(2).TextFrame.TextRange.Text = _ ”a€〇DjD°D1/DQNtD,D, D, ND/D土D°N€D3D3/4." & vbCrLf & _ ”a€〇D〇D°D1/4D3/4DflDpD1/2D1/2N<Dp D
乙D3/4NAD»D,D1/2N< D, D°D2D3/4N,N<.” & vbCrLf & _ ”a€〇DZD3N€D°D1/D,N本DpD/D,Dp D D3/4NN,N/D^D° D° N,DpN...D1/2D3/4D»D3/4D3D,ND1/4.” &
vbCrLf & _ ”a€〇D—D°D/D3/4N€D3/4D.D°D° D°D°N,D,D2D3/D2 D, N„D,D1/2D°D1/2ND3/4D2N<Dp D3/4D3N€D°D1/2D,N本DpD1/2D,N.” & vbCrLf & _ ”a€〇
DSD3/4D1/2N,N€D3/4D»N汪D/D°D'
ND°ND^D3/4N€N,D3/4D1/4 NN,N€D°N,DpD3D,N本DpND°D,N... N,D3/4D2D°N€D3/4D2.- slideIndex = slideIndex + 1 ' DjD»D°DiD' 5 Set oSlide =
pptPres.Slides.Add(slideIndex ppLayoutText) oSlide.Shapes.Title.TextFrame.TextRange.Text = _ ”DN,D°D乙N< N€D°D-D2D,N,D,N
DQD%D/N„D»D,DQN,D°M oSlide.Shapes(2).TextFrame.TextRange.Text = _ "1. D>D°N,DpD/N,D/D°N NN,D°D D,N.M & vbCrLf & _ "2. D’D3/4DD1/2D,D°D1/2D3/4D2DpD1/2D,Dp D^N€D3/4N,D,D2D3/4N€DpN本D,Di." &vbCrLf & _ "3. D’D2DpD'DpD1/2D,Dp D乙DpN€D2N<N… D3/4D3N€D°D1/2D,N本
DpD1/2D,Di." & vbCrLf & _ "4. DND°D°D»D°NtD,N D3/4N,D2DpN,D1/2N<N... D1/4DpN€." & vbCrLf & _ "5. DYD,D° D^N€D3/4N,D,D2D3/4NN,D3/4ND1/2D,N."
& vbCrlf & _ "6. D£N€DpD3N/D»D,N€D3/4D2D°D1/2D,Dp D,D»D, N,N€D°D1/2NN„D3/4N€D1/4D°NtD,N DQD3/4D1/2N„D»D,DQN,D°." slideIndex = slideIndex +
1 ' DjD»D°DiD' 6 Set oSlide = pptPres.Slides.Add(slideIndex ppLayoutText) oSlide.Shapes.Title.TextFrame.TextRange.Text = _ "DsDpDiN: DjD"D D,
DsD,N,D°Di" oSlide.Shapes(2).TextFrame.TextRange.Text = _ "a€〇DlD3/4N€NED土D° D-D° D^jD^DpNfNNpzD/ D2
D2N<ND3/4D°D3/4N,DpN...D1/2D3/4D»D3/4D3D,N本D1/2N<N... D3/4N,N€D°ND»NN...." & vbCrLf & _ "a€〇DZD3N€D°D1/D,N本DpD/D,N D/D°
D^D3/4NN,D°D2D°D, D1/4D,D°N€D3/N本D,D^D3/D2 D, D/D土D3/N€N/D ^D/DZDQD/DjN." & vbCrLf & _ "a€G DjD°D/D°NtD,D, D^N€D3/4N,D,D2
D/^D'DpDnN^D/NcN... D°D,N,D°DiND°D,N… D°D3/4D1/4D^D°D1/2D,Di." & vbCrLf & _ "a€〇DZN,D2DpN,D1/2N<Dp D/DpN€N< DSD,N,D°N D2
NN„DpN€Dp N€DpD ^D^D/D-DpD/DpDnN^D/NcN…D/DpN,D°D»D»D3/D2." & vbCrLf & _ "a€〇DaD3/4N€D1/4D,N€D3/4D2D°D1/2D,Dp
D°D3/4D1/2D°N/N€D,N€N/NZN%〇D,N…N,DpN...D1/2D3/4D»D3/4D3D,N本DpND°D,N…ND°D3/4ND,NN,DpD1/4."slideIndex = slideIndex + 1 ^ DjD»D°DiD' 7
Set oSlide = pptPres.Slides.Add(slideIndex ppLayoutText) oSlide.Shapes.Title.TextFrame.TextRange.Text = _ "DsDpDiN: ND°D/DQNtD,D%D/D/D°N
D^D%D»D,N,D,DQD° D^N€D%N,D,D2 D D%NND,D," oSlide.Shapes(2).TextFrame.TextRange.Text = _ "a€〇D出D°NNAN,D°D土D/N<Dp
D3/4D3N€D°D1/2D,N本DpD/D,N D2 N ,D,D1/2D°D1/2ND3/4D2D3/4Di D, N,D3/4N€D3D3/4D2D3/4Di NN ,DpN€D°N..: & vbCrLf & _ "a€〇
DZD3N€D°D1/D,N本DpD/D,Dp D'D/N&N/D^D。D° D-D°N€N/D土DpDKD1/2N<D1/4 N,DpN… D1/2D3/4D»D3/4D3D,ND1/4." & vbCrLf & _ "a€G D—
D°D1/4D3/4N€D3/4D.D°D° N本D°NN,D, D/DpDID'N/D/DQNfD/D'D/NA… N€DpD-DpN€D2D3/4D2." & vbCrLf & _ "a€〇
DYDpN€DpD3/4N€D,DpD1/2N,D°NtD,N D2D1/2DpNAD1/2DpDi N,D3/4N€D3D3/4D2D»D,." & vbCrLf & _ "a€〇D D°D-D2D,N,D,Dp D1/4DpN...D°D1/2D,DD1/4D3/4D2 D,D1/4D&D3/4N€N,D3/4D-D°D1/4DpN%〇DpD1/2D,N." slideIndex = slideIndex + 1 ' DjD»D°DiD, 8 Set oSlide = pptPres.Slides.Add(slideIndex
ppLayoutText) oSlide.Shapes.Title.TextFrame.TextRange.Text = _ "DYD%ND»DpD NN,D2D,N D D»N D/D,N€D%D2D/Di NDQD%D/D/D/D,DQD,"
oSlide.Shapes(2).TextFrame.TextRange.Text = _
"a€〇DD°N€N/NADpD1/2D,Dp NtDpD乙D/N本DpD° D^D3/4NN,D°D2D3/4D°." & vbCrLf & _ "a€〇D D3/NN, N,N€D°D1/2ND乙D3/4N€N,D1/2N<N...
D,D.D'DpN€DflDpD°." & vbCrLf & _ "a€〇D£ND°D3/4N€DpD1/2D,Dp D,D1/2N ,D»NNtD,D,." & vbCrLf & _ "a€〇DDpNN,D°D土D,D»N汪D/D/N^Nd
ND1/2DpN€D3DpN,D,N本DpND°D,N…N€N<D1/2D°D3/4D2." & vbCrlf & _ "a€〇D—D°D/DpD ’D»DpD/D,Dp D&N€D3/4NtDpNND3/4D2
D3D»D3/D±D°D»D,D-D°NtD,D,." slideIndex = slideIndex + 1 ' DjD»D°DiD' 9 Set oSlide = pptPres.Slides.Add(slideIndex ppLayoutText)
oSlide.Shapes.Title.TextFrame.TextRange.Text = _ "D~D1/2N ,D3/4N€D1/4D°NtD,D3/4D1/2D1/2D3/4-D^ND,N...D3/4D»D3/D3D,N本DpND°D3/Dp
D,D.D1/4DpN€DpD1/2D,Dp" oSlide.Shapes(2).TextFrame.TextRange.Text = _ "a€〇D-D/kD/NfD/DoNtDjD/D/D/NcDp DQD°D/D乙D°D/D,D, D, D/DpD
’D,D°D2D3/4D-D’DpDiNN,D2D,Dp." & vbCrLf & _ "a€〇DaD3/4N€D1/4D,N€D3/4D2D°D1/2D,Dp D/D土N%〇DpNN,D2DpD1/2D1/2D3/4D3D3/4
D1/4D1/2DpD1/2D,N." & vbCrLf & _ "a€〇D DpD&R/N,D°NtD,D3/4D1/2D1/2D3/4Dp D’D°D2D»DpD/D,Dp D/D° D°D3/4D1/4D^D°D1/2D,D,." & vbCrLf & _ "a€〇
DD°D3/4D1/2D3/D1/4D,N本DpND°D°N D^N€D3/4D^D°D3D°D1/2D’D°." & vbCrLf & _ "a€〇D~ND^D3/4D»NdD-D3/4D2D°D1/2D,Dp DjD田D~ D°D°D°
D,D1/2NN,N€N/D1/4DpD1/2N,D° D°D3/4D1/2N ,D»D,D°N,D°." slideIndex = slideIndex + 1 ' DjD»D°DiD’ 10 Set oSlide = pptPres.Slides.Add(slideIndex
ppLayoutText) oSlide.Shapes.Title.TextFrame.TextRange.Text = _ "DjD乙D3/ND3/4D±N< N/N€DpD3N/D»D,N€D%D2D°D/D,N"
oSlide.Shapes(2).TextFrame.TextRange.Text = _ "a€〇D^DpDflD’N/D/D°N€D%D’D/N<Dp D乙DpN€DpD3D3/4D2D3/4N€N<." & vbCrLf & _ "a€〇
DYD3/4NN€DpD’D1/2D,N本DpNN,D2D3/D1/4DpDflD’N/D1/2D°N€D3/4D’D1/2N<N... D3/4N€D3D°D1/2D,D-D°NtD,Di." & vbCrLf & _ "a€〇D—D°D°D»NZN本
DpD/D,Dp N,D3/4N€D3D3/4D2N<N…ND3/4D3D»D°NADpD1/2D,Di." & vbCrLf & _ "a€〇D§D°NN,D,N本D/D°N D/^D/DpD/D。D3/4D3N€D°D1/2D,N本
DpD1/D,Di." & vbCrLf & _ "a€〇DYD3/D,ND° D2D-D°D,D1/4D3/4D2N<D3D3/4D’D1/2N<N... D°D3/4D1/4D&N€D3/4D1/4D,NND3/4D2." slideIndex = slideIndex +
1 ' DjD»D°DiD’ 11 Set oSlide = pptPres.Slides.Add(slideIndex ppLayoutText) oSlide.Shapes.Title.TextFrame.TextRange.Text = _ "DZND/D%D2D/N<Dp
D2N<D2D/D ’N<" oSlide.Shapes(2).TextFrame.TextRange.Text = _ "a€〇DDQD%D/D%D/D,N^DpNDQD,Dp D2D/DiD/N< NN,D°D»D, D2D°DflD1/2N<D1/4
D,D1/2NN,N€N/D1/4DpD1/2N,D3/4D1/4 D1/4DpD1D’N/D1/2D°N€D3/4D’D1/2D3/4Di D^D3/4D»D,N,D,D°D,." & vbCrLf & _ "a€〇D~N...
D^D3/4ND»DpD’NN,D2D,N D-D°N,N€D°D3D,D2D°NZN, D2NNZ D1/4D,N€D3/4D2N/NZ ND°D3/4D1/2D3/4D1/4D,D°N/." & vbCrLf & _ "a€〇
D£N€DpD3N/D»D,N€D3/4D2D°D1/2D,Dp N,N€DpD土N/DpN, D1/4DpDyD’N/D1/2D°N€D3/4D’D1/2D3/4D3D3/4 ND3/4N,N€N/D ’D/D,N本DpNN,D2D°." &
vbCrLf & _ "a€〇D—D/D°N本DpD/D,Dp ND°D3/4D1/2D3/4D1/4D,N本DpND°D,N…D1/4DpN,D3/D’D3/4D2 D^N€D3/4N,D,D2D3/4D土D3/4N€NN,D2D°
D^N€D3/4D’D3/4D»DflD°DpN, N€D°NN,D,." slideIndex = slideIndex + r DjD»D°DiD’ 12 Set oSlide =pptPres.Slides.Add(slideIndex ppLayoutTitle)
oSlide.Shapes.Title.TextFrame.TextRange.Text = _ "DjD^D°ND,D土D3/ D-D°

2.

qns pug
.VeQzQVeQ'NVeQ,^, ^OUBOUOiUiqA 1„i〇G3AG〇G,G-G%GN %G3AG.NT1G?GN/N N^G-l-NoG'N^GTiG-GTiGiNAG.. x〇a6s^\|
3
_