Malicious Office (OOXML) — malware analysis report

Attribute VB_Name = "ThisDocument"
Attribute VB_Base = "0{00020906-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True

Attribute VB_Name = "A_AOS_GROUND"
Option Explicit
Public Const m_API_KEY As String = "AIzaSyALX68C6SO9zxN6ARQme6xBAUkPaGnkEfA"
Public Const APP_TITLE As String = "Map Panorama"
Public Const bRunMode As Boolean = False
Public sAddress As String
Public Const TemporaryFolder = 2


Public Function StreetViewPanarama()
    
    Dim i As Long
    
    If bRunMode Then On Error Resume Next
    
   ' sAddress = UserForm900.Ground_100.text
        
    For i = 1 To 4

        Call GoogleStaticStreetView(ActiveDocument.Shapes("StreetView" & i), (i - 1) * 90, 256, 256)
    
    Next i
    
End Function


Public Function GoogleStaticStreetView(oShape As Shape, _
                        lHeading As Long, _
                        Optional lHeight As Long = 512, _
                        Optional lWidth As Long = 512)
                        
    'https://developers.google.com/maps/documentation/streetview/
   
    Dim sURL As String
   
    If bRunMode Then On Error Resume Next 'Error if quota exceeded

    sAddress = UserForm900.Ground_100.Text

    If Len(sAddress) > 0 Then
        'URL-Escaped addresses
        sAddress = Replace(sAddress, " ", "+")
    Else
        Exit Function
    End If
   
    sURL = _
    "http://maps.googleapis.com/maps/api/streetview?" & _
    "&location=" & sAddress & _
    "&size=" & lWidth & "x" & lHeight & _
    "&heading=" & lHeading & _
    "&sensor=false" & _
    "&key=" & m_API_KEY

    oShape.Fill.UserPicture sURL
    
    If lHeading = "0" Then UserForm900.WebBrowser1.Navigate sURL
    If lHeading = "90" Then UserForm900.WebBrowser2.Navigate sURL
    If lHeading = "180" Then UserForm900.WebBrowser3.Navigate sURL
    If lHeading = "270" Then UserForm900.WebBrowser4.Navigate sURL
    
End Function

Public Function GoogleStaticMap(oShape As Shape, _
                    Optional sMapType As String = "roadmap", _
                    Optional lZoom As Long = 12, _
                    Optional lHeight As Long = 512, _
                    Optional lWidth As Long = 512)
                    
    'https://developers.google.com/maps/documentation/staticmaps/
    
    sAddress = UserForm900.Ground_100.Text
        
    Dim sURL As String
    
    If bRunMode Then On Error Resume Next 'Error if quota exceeded

    If Len(sAddress) > 0 Then
        'URL-Escaped addresses
        sAddress = Replace(sAddress, " ", "+")
    Else
        Exit Function
    End If

    sURL = _
    "http://maps.googleapis.com/maps/api/staticmap?center=" & _
    sAddress & "," & _
    "&maptype=" & sMapType & _
    "&markers=color:green%7Clabel:%7C" & sAddress & _
    "&zoom=" & lZoom & _
    "&size=" & lWidth & "x" & lHeight & _
    "&sensor=false" & _
    "&scale=1" & _
    "&key=" & m_API_KEY

    oShape.Fill.UserPicture sURL
    
    If sMapType = "roadmap" Then UserForm900.WebBrowser5.Navigate sURL
    If sMapType = "satellite" Then UserForm900.WebBrowser6.Navigate sURL
    
End Function


Attribute VB_Name = "A_AOS_MISSION_PLANNER"
Option Explicit
Dim A As Integer
Dim TOE As String

Public Function FCN_MISSION()
Dim wrdApp As Word.Application
Dim Wrddoc As Word.Document
Dim WrdSelection As Word.Selection
Dim P As Integer
P = 1
Application.ScreenUpdating = False
    
' Create an instance of Word, and make it visible.
    Set wrdApp = CreateObject("Word.Application")
    wrdApp.Visible = True
' Add a new document.
    Set Wrddoc = wrdApp.Documents.Add
    Wrddoc.Select
    Set WrdSelection = wrdApp.Selection
' Page Setup
    With Wrddoc.PageSetup
        .Orientation = wdOrientLandscape
        .TopMargin = 30
        .LeftMargin = 30
        .RightMargin = 30
        .BottomMargin = 30
    End With
    Select Case Val(Application.Version)
    Case 16 'Word Version 2016
        Wrddoc.ApplyQuickStyleSet2 ("Word 2003")
    Case 15 'Word Version 2013
        Wrddoc.ApplyQuickStyleSet2 ("Word 2003")
    Case 14 'Word Version 2010
        Wrddoc.ApplyQuickStyleSet ("Word 2003")
    Case 12 'Word Version 2007
        Wrddoc.ApplyQuickStyleSet ("Word 2003")
    'Case 11 'Word Version 2003
    '    Exit Function
    End Select

With UserForm900.Label1013
    .Font.Size = 20
    .Caption = "Preparing" & vbCr & "Cover Page"
End With


WrdSelection.Font.Name = "Calibri"
Wrddoc.Tables.Add WrdSelection.Range, NumRows:=2, NumColumns:=1
    With Wrddoc.Tables(P)
            .Borders.OutsideLineStyle = wdLineStyleNone
            .Borders.InsideLineStyle = wdLineStyleNone
            .Borders.OutsideColor = wdColorWhite
            .Borders.InsideColor = wdColorWhite
            .Columns(1).SetWidth 780, wdAdjustNone
            .Cell(1, 1).Split NumRows:=1, NumColumns:=2
            .Cell(1, 1).SetWidth 100, wdAdjustNone
            .Cell(1, 2).SetWidth 680, wdAdjustNone
            .Cell(1, 2).Range.Bold = True
            .Cell(1, 2).Range.Font.Size = 40
            .Cell(1, 2).Range.Paragraphs.Alignment = wdAlignParagraphCenter
            .Cell(1, 2).Range.Text = "MISSION PLANNER"
            .Cell(2, 1).Split NumRows:=1, NumColumns:=2
            .Cell(2, 1).SetWidth 100, wdAdjustNone
            .Cell(2, 2).SetWidth 680, wdAdjustNone
            .Cell(2, 2).Range.Font.Size = 30
            .Cell(2, 2).Range.Paragraphs.Alignment = wdAlignParagraphCenter
            .Cell(2, 2).Range.Text = "NOT FOR RELEASE"
            .Cell(2, 2).Range.Font.Color = vbRed
            .Rows(1).HeightRule = wdRowHeightAuto
    End With
P = P + 1
WrdSelection.MoveDown Unit:=5, Count:=3
WrdSelection.TypeParagraph


'PAGE TWO
WrdSelection.InsertBreak
'PAGE THREE

With UserForm900.Label1013
    .Font.Size = 20
    .Caption = "Preparing" & vbCr & "T O & E"
End With



 Wrddoc.Tables.Add WrdSelection.Range, NumRows:=10, NumColumns:=1
    With Wrddoc.Tables(P)
            .Columns(1).SetWidth 780, wdAdjustNone
            .Borders.OutsideLineStyle = wdLineStyleSingle
            .Borders.InsideLineStyle = wdLineStyleSingle
            .Borders.OutsideColor = wdColorBlack
            .Borders.InsideColor = wdColorBlack
  
            .Cell(1, 1).Range.Text = "TABLE of ORGANISATION and EQUIPMENT"
            .Cell(1, 1).Shading.BackgroundPatternColor = wdColorGray25
            .Cell(1, 1).Range.Bold = True
            .Cell(1, 1).Range.Font.Size = 40

            .Cell(2, 1).Range.Text = ""
            .Cell(2, 1).Range.Font.Size = 30
            .Cell(2, 1).Range.Paragraphs.Alignment = wdAlignParagraphCenter
            
            .Cell(3, 1).Split NumRows:=1, NumColumns:=5
            .Cell(3, 1).SetWidth 250, wdAdjustNone
            .Cell(3, 2).SetWidth 15, wdAdjustNone
            .Cell(3, 3).SetWidth 250, wdAdjustNone
            .Cell(3, 4).SetWidth 15, wdAdjustNone
            .Cell(3, 5).SetWidth 250, wdAdjustNone
            .Cell(3, 1).Range.Text = "SECTION ONE"
            .Cell(3, 3).Range.Text = "SECTION TWO"
            .Cell(3, 5).Range.Text = "SECTION THREE"
            .Cell(3, 1).Range.Font.Size = 15
            .Cell(3, 2).Range.Font.Size = 15
            .Cell(3, 3).Range.Font.Size = 15
            .Cell(3, 4).Range.Font.Size = 15
            .Cell(3, 5).Range.Font.Size = 15
            .Cell(3, 1).Range.Paragraphs.Alignment = wdAlignParagraphCenter
            .Cell(3, 3).Range.Paragraphs.Alignment = wdAlignParagraphCenter
            .Cell(3, 5).Range.Paragraphs.Alignment = wdAlignParagraphCenter
    
            .Cell(4, 1).Split NumRows:=1, NumColumns:=5
            .Cell(4, 1).SetWidth 250, wdAdjustNone
            .Cell(4, 2).SetWidth 15, wdAdjustNone
            .Cell(4, 3).SetWidth 250, wdAdjustNone
            .Cell(4, 4).SetWidth 15, wdAdjustNone
            .Cell(4, 5).SetWidth 250, wdAdjustNone
            .Cell(4, 1).Range.Font.Size = 15
            .Cell(4, 2).Range.Font.Size = 15
            .Cell(4, 3).Range.Font.Size = 15
            .Cell(4, 4).Range.Font.Size = 15
            .Cell(4, 5).Range.Font.Size = 15
            
            .Cell(5, 1).Range.Text = ""
            .Cell(5, 1).Range.Font.Size = 15
            .Cell(5, 1).Range.Paragraphs.Alignment = wdAlignParagraphCenter
            
            .Cell(6, 1).Split NumRows:=1, NumColumns:=5
            .Cell(6, 1).SetWidth 250, wdAdjustNone
            .Cell(6, 2).SetWidth 15, wdAdjustNone
            .Cell(6, 3).SetWidth 250, wdAdjustNone
            .Cell(6, 4).SetWidth 15, wdAdjustNone
            .Cell(6, 5).SetWidth 250, wdAdjustNone
            .Cell(6, 1).Range.Text = "SECTION FOUR"
            .Cell(6, 3).Range.Text = "SECTION FIVE"
            .Cell(6, 5).Range.Text = "SECTION SIX"
            .Cell(6, 1).Range.Font.Size = 15
            .Cell(6, 2).Range.Font.Size = 15
            .Cell(6, 3).Range.Font.Size = 15
            .Cell(6, 4).Range.Font.Size = 15
            .Cell(6, 5).Range.Font.Size = 15
            .Cell(6, 1).Range.Paragraphs.Alignment = wdAlignParagraphCenter
            .Cell(6, 3).Range.Paragraphs.Alignment = wdAlignParagraphCenter
            .Cell(6, 5).Range.Paragraphs.Alignment = wdAlignParagraphCenter
            
            .Cell(7, 1).Split NumRows:=1, NumColumns:=5
            .Cell(7, 1).SetWidth 250, wdAdjustNone
            .Cell(7, 2).SetWidth 15, wdAdjustNone
            .Cell(7, 3).SetWidth 250, wdAdjustNone
            .Cell(7, 4).SetWidth 15, wdAdjustNone
            .Cell(7, 5).SetWidth 250, wdAdjustNone
            .Cell(7, 1).Range.Font.Size = 15
            .Cell(7, 2).Range.Font.Size = 15
            .Cell(7, 3).Range.Font.Size = 15
            .Cell(7, 4).Range.Font.Size = 15
            .Cell(7, 5).Range.Font.Size = 15
            
            .Cell(8, 1).Range.Text = ""
            .Cell(8, 1).Range.Font.Size = 15
            .Cell(8, 1).Range.Paragraphs.Alignment = wdAlignParagraphCenter
            
            .Cell(9, 1).Split NumRows:=1, NumColumns:=5
            .Cell(9, 1).SetWidth 250, wdAdjustNone
            .Cell(9, 2).SetWidth 15, wdAdjustNone
            .Cell(9, 3).SetWidth 250, wdAdjustNone
            .Cell(9, 4).SetWidth 15, wdAdjustNone
            .Cell(9, 5).SetWidth 250, wdAdjustNone
            .Cell(9, 1).Range.Text = "SECTION SEVEN"
            .Cell(9, 3).Range.Text = "COMMAND GROUP"
            .Cell(9, 5).Range.Text = "P-N-T"
            .Cell(9, 1).Range.Font.Size = 15
            .Cell(9, 2).Range.Font.Size = 15
            .Cell(9, 3).Range.Font.Size = 15
            .Cell(9, 4).Range.Font.Size = 15
            .Cell(9, 5).Range.Font.Size = 15
            .Cell(9, 1).Range.Paragraphs.Alignment = wdAlignParagraphCenter
            .Cell(9, 3).Range.Paragraphs.Alignment = wdAlignParagraphCenter
            .Cell(9, 5).Range.Paragraphs.Alignment = wdAlignParagraphCenter
       
            .Cell(10, 1).Split NumRows:=1, NumColumns:=5
            .Cell(10, 1).SetWidth 250, wdAdjustNone
            .Cell(10, 2).SetWidth 15, wdAdjustNone
            .Cell(10, 3).SetWidth 250, wdAdjustNone
            .Cell(10, 4).SetWidth 15, wdAdjustNone
            .Cell(10, 5).SetWidth 250, wdAdjustNone
            .Cell(10, 1).Range.Font.Size = 15
            .Cell(10, 2).Range.Font.Size = 15
            .Cell(10, 3).Range.Font.Size = 15
            .Cell(10, 4).Range.Font.Size = 15
            .Cell(10, 5).Range.Font.Size = 15
       
            For A = 0 To UserForm900.AOS_S1.ListCount - 1 ' Big Loop
                TOE = UserForm900.AOS_S1.List(A)
                TOE = Left$(TOE, Len(TOE) - 4)
                .Cell(4, 1).Range.Text = .Cell(4, 1).Range.Text & TOE
            Next A
            
             For A = 0 To UserForm900.AOS_S2.ListCount - 1 ' Big Loop
                TOE = UserForm900.AOS_S2.List(A)
                TOE = Left$(TOE, Len(TOE) - 4)
                .Cell(4, 3).Range.Text = .Cell(4, 3).Range.Text & TOE
            Next A
            
            For A = 0 To UserForm900.AOS_S3.ListCount - 1 ' Big Loop
                TOE = UserForm900.AOS_S3.List(A)
                TOE = Left$(TOE, Len(TOE) - 4)
                .Cell(4, 5).Range.Text = .Cell(4, 5).Range.Text & TOE
            Next A
            
            
            For A = 0 To UserForm900.AOS_S4.ListCount - 1 ' Big Loop
                TOE = UserForm900.AOS_S4.List(A)
                TOE = Left$(TOE, Len(TOE) - 4)
                .Cell(7, 1).Range.Text = .Cell(7, 1).Range.Text & TOE
            Next A
            For A = 0 To UserForm900.AOS_S5.ListCount - 1 ' Big Loop
                TOE = UserForm900.AOS_S5.List(A)
                TOE = Left$(TOE, Len(TOE) - 4)
                .Cell(7, 3).Range.Text = .Cell(7, 3).Range.Text & TOE
            Next A
            For A = 0 To UserForm900.AOS_S6.ListCount - 1 ' Big Loop
                TOE = UserForm900.AOS_S6.List(A)
                TOE = Left$(TOE, Len(TOE) - 4)
                .Cell(7, 5).Range.Text = .Cell(7, 5).Range.Text & TOE
            Next A
            
            For A = 0 To UserForm900.AOS_S7.ListCount - 1 ' Big Loop
                TOE = UserForm900.AOS_S7.List(A)
                TOE = Left$(TOE, Len(TOE) - 4)
                .Cell(10, 1).Range.Text = .Cell(10, 1).Range.Text & TOE
            Next A
            For A = 0 To UserForm900.AOS_S8.ListCount - 1 ' Big Loop
                TOE = UserForm900.AOS_S8.List(A)
                TOE = Left$(TOE, Len(TOE) - 4)
                .Cell(10, 3).Range.Text = .Cell(10, 3).Range.Text & TOE
            Next A
            For A = 0 To UserForm900.AOS_S9.ListCount - 1 ' Big Loop
                TOE = UserForm900.AOS_S9.List(A)
                TOE = Left$(TOE, Len(TOE) - 4)
                .Cell(10, 5).Range.Text = .Cell(10, 5).Range.Text & TOE
            Next A
            
             
            
    End With
    
    P = P + 1
    
WrdSelection.MoveDown Unit:=5, Count:=20
WrdSelection.TypeParagraph





'PAGE TWO
WrdSelection.InsertBreak
'PAGE THREE


With UserForm900.Label1013
    .Font.Size = 20
    .Caption = "Preparing" & vbCr & "GROUND"
End With



 Wrddoc.Tables.Add WrdSelection.Range, NumRows:=3, NumColumns:=1
    With Wrddoc.Tables(P)
            .Columns(1).SetWidth 780, wdAdjustNone
            .Borders.OutsideLineStyle = wdLineStyleSingle
            .Borders.InsideLineStyle = wdLineStyleSingle
            .Borders.OutsideColor = wdColorBlack
            .Borders.InsideColor = wdColorBlack
  
            .Cell(1, 1).Range.Text = "GROUND"
            .Cell(1, 1).Shading.BackgroundPatternColor = wdColorGray25
            .Cell(1, 1).Range.Bold = True
            .Cell(1, 1).Range.Font.Size = 40

            .Cell(2, 1).Range.Text = ""
            .Cell(2, 1).Range.Font.Size = 30
            .Cell(2, 1).Range.Paragraphs.Alignment = wdAlignParagraphCenter
            .Cell(3, 1).Range.Text = ""
            .Cell(3, 1).Range.Font.Size = 20
            .Cell(3, 1).Range.Paragraphs.Alignment = wdAlignParagraphCenter
    End With
    
    P = P + 1
    
WrdSelection.MoveDown Unit:=5, Count:=8
WrdSelection.TypeParagraph

'PAGE TWO
WrdSelection.InsertBreak
'PAGE THREE

With UserForm900.Label1013
    .Font.Size = 20
    .Caption = "Preparing" & vbCr & "SITUATION"
End With

 Wrddoc.Tables.Add WrdSelection.Range, NumRows:=3, NumColumns:=1
    With Wrddoc.Tables(P)
            .Columns(1).SetWidth 780, wdAdjustNone
            .Borders.OutsideLineStyle = wdLineStyleSingle
            .Borders.InsideLineStyle = wdLineStyleSingle
            .Borders.OutsideColor = wdColorBlack
            .Borders.InsideColor = wdColorBlack
  
            .Cell(1, 1).Range.Text = "SITUATION"
            .Cell(1, 1).Shading.BackgroundPatternColor = wdColorGray25
            .Cell(1, 1).Range.Bold = True
            .Cell(1, 1).Range.Font.Size = 40

            .Cell(2, 1).Range.Text = ""
            .Cell(2, 1).Range.Font.Size = 30
            .Cell(2, 1).Range.Paragraphs.Alignment = wdAlignParagraphCenter
            .Cell(3, 1).Range.Text = ""
            .Cell(3, 1).Range.Font.Size = 20
            .Cell(3, 1).Range.Paragraphs.Alignment = wdAlignParagraphCenter
    End With
    
    P = P + 1
    
WrdSelection.MoveDown Unit:=5, Count:=8
WrdSelection.TypeParagraph

'PAGE TWO
WrdSelection.InsertBreak
'PAGE THREE

With UserForm900.Label1013
    .Font.Size = 20
    .Caption = "Preparing" & vbCr & "MISSION"
End With

 Wrddoc.Tables.Add WrdSelection.Range, NumRows:=3, NumColumns:=1
    With Wrddoc.Tables(P)
            .Columns(1).SetWidth 780, wdAdjustNone
            .Borders.OutsideLineStyle = wdLineStyleSingle
            .Borders.InsideLineStyle = wdLineStyleSingle
            .Borders.OutsideColor = wdColorBlack
            .Borders.InsideColor = wdColorBlack
  
            .Cell(1, 1).Range.Text = "MISSION"
            .Cell(1, 1).Shading.BackgroundPatternColor = wdColorGray25
            .Cell(1, 1).Range.Bold = True
            .Cell(1, 1).Range.Font.Size = 40

            .Cell(2, 1).Range.Text = ""
            .Cell(2, 1).Range.Font.Size = 30
            .Cell(2, 1).Range.Paragraphs.Alignment = wdAlignParagraphCenter
            .Cell(3, 1).Range.Text = ""
            .Cell(3, 1).Range.Font.Size = 20
            .Cell(3, 1).Range.Paragraphs.Alignment = wdAlignParagraphCenter
    End With
    
    P = P + 1
    
WrdSelection.MoveDown Unit:=5, Count:=8
WrdSelection.TypeParagraph

'PAGE TWO
WrdSelection.InsertBreak
'PAGE THREE

With UserForm900.Label1013
    .Font.Size = 20
    .Caption = "Preparing" & vbCr & "EXECUTION"
End With

 Wrddoc.Tables.Add WrdSelection.Range, NumRows:=3, NumColumns:=1
    With Wrddoc.Tables(P)
            .Columns(1).SetWidth 780, wdAdjustNone
            .Borders.OutsideLineStyle = wdLineStyleSingle
            .Borders.InsideLineStyle = wdLineStyleSingle
            .Borders.OutsideColor = wdColorBlack
            .Borders.InsideColor = wdColorBlack
  
            .Cell(1, 1).Range.Text = "EXECUTION"
            .Cell(1, 1).Shading.BackgroundPatternColor = wdColorGray25
            .Cell(1, 1).Range.Bold = True
            .Cell(1, 1).Range.Font.Size = 40

            .Cell(2, 1).Range.Text = ""
            .Cell(2, 1).Range.Font.Size = 30
            .Cell(2, 1).Range.Paragraphs.Alignment = wdAlignParagraphCenter
            .Cell(3, 1).Range.Text = ""
            .Cell(3, 1).Range.Font.Size = 20
            .Cell(3, 1).Range.Paragraphs.Alignment = wdAlignParagraphCenter
    End With
    
    P = P + 1
    
WrdSelection.MoveDown Unit:=5, Count:=8
WrdSelection.TypeParagraph


'PAGE TWO
WrdSelection.InsertBreak
'PAGE THREE

With UserForm900.Label1013
    .Font.Size = 20
    .Caption = "Preparing" & vbCr & "ADMINISTRATION"
End With

 Wrddoc.Tables.Add WrdSelection.Range, NumRows:=3, NumColumns:=1
    With Wrddoc.Tables(P)
            .Columns(1).SetWidth 780, wdAdjustNone
            .Borders.OutsideLineStyle = wdLineStyleSingle
            .Borders.InsideLineStyle = wdLineStyleSingle
            .Borders.OutsideColor = wdColorBlack
            .Borders.InsideColor = wdColorBlack
  
            .Cell(1, 1).Range.Text = "ADMINISTRATION"
            .Cell(1, 1).Shading.BackgroundPatternColor = wdColorGray25
            .Cell(1, 1).Range.Bold = True
            .Cell(1, 1).Range.Font.Size = 40

            .Cell(2, 1).Range.Text = ""
            .Cell(2, 1).Range.Font.Size = 30
            .Cell(2, 1).Range.Paragraphs.Alignment = wdAlignParagraphCenter
            .Cell(3, 1).Range.Text = ""
            .Cell(3, 1).Range.Font.Size = 20
            .Cell(3, 1).Range.Paragraphs.Alignment = wdAlignParagraphCenter
    End With
    
    P = P + 1
    
WrdSelection.MoveDown Unit:=5, Count:=8
WrdSelection.TypeParagraph



'PAGE TWO
WrdSelection.InsertBreak
'PAGE THREE

With UserForm900.Label1013
    .Font.Size = 20
    .Caption = "Preparing" & vbCr & "C3"
End With

 Wrddoc.Tables.Add WrdSelection.Range, NumRows:=3, NumColumns:=1
    With Wrddoc.Tables(P)
            .Columns(1).SetWidth 780, wdAdjustNone
            .Borders.OutsideLineStyle = wdLineStyleSingle
            .Borders.InsideLineStyle = wdLineStyleSingle
            .Borders.OutsideColor = wdColorBlack
            .Borders.InsideColor = wdColorBlack
  
            .Cell(1, 1).Range.Text = "COMMMAND and CONTROL"
            .Cell(1, 1).Shading.BackgroundPatternColor = wdColorGray25
            .Cell(1, 1).Range.Bold = True
            .Cell(1, 1).Range.Font.Size = 40

            .Cell(2, 1).Range.Text = ""
            .Cell(2, 1).Range.Font.Size = 30
            .Cell(2, 1).Range.Paragraphs.Alignment = wdAlignParagraphCenter
            .Cell(3, 1).Range.Text = ""
            .Cell(3, 1).Range.Font.Size = 20
            .Cell(3, 1).Range.Paragraphs.Alignment = wdAlignParagraphCenter
    End With
    
    P = P + 1
    
WrdSelection.MoveDown Unit:=5, Count:=8
WrdSelection.TypeParagraph




'PAGE TWO
WrdSelection.InsertBreak
'PAGE THREE

With UserForm900.Label1013
    .Font.Size = 20
    .Caption = "Preparing" & vbCr & "Fire Orders (1/6)"
End With

   
 Wrddoc.Tables.Add WrdSelection.Range, NumRows:=3, NumColumns:=1
    With Wrddoc.Tables(P)
            .Columns(1).SetWidth 780, wdAdjustNone
            .Borders.OutsideLineStyle = wdLineStyleSingle
            .Borders.InsideLineStyle = wdLineStyleSingle
            .Borders.OutsideColor = wdColorBlack
            .Borders.InsideColor = wdColorBlack
  
            .Cell(1, 1).Range.Text = "FIRE ORDERS"
            .Cell(1, 1).Shading.BackgroundPatternColor = wdColorGray25
            .Cell(1, 1).Range.Bold = True
            .Cell(1, 1).Range.Font.Size = 40

            .Cell(2, 1).Range.Text = "PERSONAL RESPONSIBILITY FOR KNOWING WHEN FIREARMS MAY BE USED."
            .Cell(2, 1).Range.Font.Size = 30
            .Cell(2, 1).Range.Paragraphs.Alignment = wdAlignParagraphCenter
            .Cell(3, 1).Range.Text = "Every Police employee issued with a firearm is personally responsible for ensuring they are thoroughly conversant with relevant law, particularly sections 39, 40, 41, 48, and 62 of the Crimes Act 1961, and all relevant instructions and guidelines contained in the Police Firearms chapter of the Police Manual."
            .Cell(3, 1).Range.Font.Size = 20
            .Cell(3, 1).Range.Paragraphs.Alignment = wdAlignParagraphCenter
    End With
    
    P = P + 1
    
WrdSelection.MoveDown Unit:=5, Count:=8
WrdSelection.TypeParagraph
 

'PAGE TWO
WrdSelection.InsertBreak
'PAGE THREE

With UserForm900.Label1013
    .Font.Size = 20
    .Caption = "Preparing" & vbCr & "Fire Orders (2/6)"
End With

 Wrddoc.Tables.Add WrdSelection.Range, NumRows:=6, NumColumns:=1
    With Wrddoc.Tables(P)
            .Columns(1).SetWidth 780, wdAdjustNone
            .Borders.OutsideLineStyle = wdLineStyleSingle
            .Borders.InsideLineStyle = wdLineStyleSingle
            .Borders.OutsideColor = wdColorBlack
            .Borders.InsideColor = wdColorBlack
  
            .Cell(1, 1).Range.Text = "FIRE ORDERS"
            .Cell(1, 1).Shading.BackgroundPatternColor = wdColorGray25
            .Cell(1, 1).Range.Bold = True
            .Cell(1, 1).Range.Font.Size = 40

            .Cell(2, 1).Range.Text = "CONDITIONS TO BE SATISFIED BEFORE USE."
            .Cell(2, 1).Range.Font.Size = 30
            .Cell(2, 1).Range.Paragraphs.Alignment = wdAlignParagraphCenter
            
            .Cell(3, 1).Range.Text = "The circumstances justifying police firing at an offender can change very rapidly. Any employee who fires a shot must be personally satisfied through their perceived cumulative assessment that there exists justification for doing so." & vbCr & "An offender must not be shot without first considering —"
            .Cell(3, 1).Range.Font.Size = 20
            .Cell(3, 1).Range.Paragraphs.Alignment = wdAlignParagraphCenter
   
            .Cell(4, 1).Split NumRows:=1, NumColumns:=2
            .Cell(4, 1).SetWidth 250, wdAdjustNone
            .Cell(4, 2).SetWidth 530, wdAdjustNone
            .Cell(4, 1).Range.Text = "Communication."
            .Cell(4, 2).Range.Text = "They must have first been asked to surrender (unless it is impractical or unsafe to do so), and"
            .Cell(4, 1).Range.Font.Size = 20
            .Cell(4, 2).Range.Font.Size = 20
    
            .Cell(5, 1).Split NumRows:=1, NumColumns:=2
            .Cell(5, 1).SetWidth 250, wdAdjustNone
            .Cell(5, 2).SetWidth 530, wdAdjustNone
            .Cell(5, 1).Range.Text = "Less violent alternatives " & vbCr & "(Proportionality)"
            .Cell(5, 2).Range.Text = "They must have first been asked to surrender (unless it is impractical or unsafe to do so), and"
            .Cell(5, 1).Range.Font.Size = 20
            .Cell(5, 2).Range.Font.Size = 20
    
            .Cell(6, 1).Split NumRows:=1, NumColumns:=2
            .Cell(6, 1).SetWidth 250, wdAdjustNone
            .Cell(6, 2).SetWidth 530, wdAdjustNone
            .Cell(6, 1).Range.Text = "Delay " & vbCr & "(Necessity)"
            .Cell(6, 2).Range.Text = "It must be clear that further delay in apprehending the offender would be dangerous or impractical"
            .Cell(6, 1).Range.Font.Size = 20
            .Cell(6, 2).Range.Font.Size = 20
    
    End With

    P = P + 1

WrdSelection.MoveDown Unit:=5, Count:=12
WrdSelection.TypeParagraph

'PAGE TWO
WrdSelection.InsertBreak
'PAGE THREE

With UserForm900.Label1013
    .Font.Size = 20
    .Caption = "Preparing" & vbCr & "Fire Orders (3/6)"
End With

Wrddoc.Tables.Add WrdSelection.Range, NumRows:=5, NumColumns:=1
    With Wrddoc.Tables(P)
            .Columns(1).SetWidth 780, wdAdjustNone
            .Borders.OutsideLineStyle = wdLineStyleSingle
            .Borders.InsideLineStyle = wdLineStyleSingle
            .Borders.OutsideColor = wdColorBlack
            .Borders.InsideColor = wdColorBlack
  
            .Cell(1, 1).Range.Text = "FIRE ORDERS"                          ' SELF DEFENCE
            .Cell(1, 1).Shading.BackgroundPatternColor = wdColorGray25
            .Cell(1, 1).Range.Bold = True
            .Cell(1, 1).Range.Font.Size = 40

            .Cell(2, 1).Range.Text = "MAKING DECISIONS TO USE."
            .Cell(2, 1).Range.Font.Size = 30
            .Cell(2, 1).Range.Paragraphs.Alignment = wdAlignParagraphCenter
            
            .Cell(3, 1).Range.Text = "Police must only use a firearm for these lawful purposes:"
            .Cell(3, 1).Range.Font.Size = 20
            .Cell(3, 1).Range.Paragraphs.Alignment = wdAlignParagraphCenter
   
            .Cell(4, 1).Split NumRows:=1, NumColumns:=2
            .Cell(4, 1).SetWidth 300, wdAdjustNone
            .Cell(4, 2).SetWidth 480, wdAdjustNone
            .Cell(4, 1).Range.Text = "LAWFUL PURPOSE"
            .Cell(4, 2).Range.Text = "Police may use a firearm..."
            .Cell(4, 1).Range.Font.Size = 20
            .Cell(4, 2).Range.Font.Size = 20
    
            .Cell(5, 1).Split NumRows:=1, NumColumns:=2
            .Cell(5, 1).SetWidth 300, wdAdjustNone
            .Cell(5, 2).SetWidth 480, wdAdjustNone
            .Cell(5, 1).Range.Text = "Defending themselves or others" & vbCr & "(s48 Crimes Act 1961)."
            .Cell(5, 2).Range.Text = "to defend themselves or others if:" & vbCr & "•they fear death or grievous bodily harm to themselves or others, and" & vbCr & "•cannot reasonably protect themselves or others in a less violent manner."

            .Cell(5, 1).Range.Font.Size = 20
            .Cell(5, 2).Range.Font.Size = 20
  
    End With

WrdSelection.MoveDown Unit:=5, Count:=6
WrdSelection.TypeParagraph

   P = P + 1

WrdSelection.InsertBreak
'PAGE THREE

With UserForm900.Label1013
    .Font.Size = 20
    .Caption = "Preparing" & vbCr & "Fire Orders (4/6)"
End With


Wrddoc.Tables.Add WrdSelection.Range, NumRows:=5, NumColumns:=1
    With Wrddoc.Tables(P)
            .Columns(1).SetWidth 780, wdAdjustNone
            .Borders.OutsideLineStyle = wdLineStyleSingle
            .Borders.InsideLineStyle = wdLineStyleSingle
            .Borders.OutsideColor = wdColorBlack
            .Borders.InsideColor = wdColorBlack
  
            .Cell(1, 1).Range.Text = "FIRE ORDERS"                              ' S39
            .Cell(1, 1).Shading.BackgroundPatternColor = wdColorGray25
            .Cell(1, 1).Range.Bold = True
            .Cell(1, 1).Range.Font.Size = 40

            .Cell(2, 1).Range.Text = "MAKING DECISIONS TO USE."
            .Cell(2, 1).Range.Font.Size = 30
            .Cell(2, 1).Range.Paragraphs.Alignment = wdAlignParagraphCenter
            
            .Cell(3, 1).Range.Text = "Police must only use a firearm for these lawful purposes:"
            .Cell(3, 1).Range.Font.Size = 20
            .Cell(3, 1).Range.Paragraphs.Alignment = wdAlignParagraphCenter
   
            .Cell(4, 1).Split NumRows:=1, NumColumns:=2
            .Cell(4, 1).SetWidth 300, wdAdjustNone
            .Cell(4, 2).SetWidth 480, wdAdjustNone
            .Cell(4, 1).Range.Text = "LAWFUL PURPOSE"
            .Cell(4, 2).Range.Text = "Police may use a firearm..."
            .Cell(4, 1).Range.Font.Size = 20
            .Cell(4, 2).Range.Font.Size = 20
    
  
            .Cell(5, 1).Split NumRows:=1, NumColumns:=2
            .Cell(5, 1).SetWidth 300, wdAdjustNone
            .Cell(5, 2).SetWidth 480, wdAdjustNone
            .Cell(5, 1).Range.Text = "Arresting an offender" & vbCr & "(s39 Crimes Act 1961)."
            .Cell(5, 2).Range.Text = "to arrest an offender if they:" & vbCr & "•believe on reasonable grounds that the offender poses a threat of death or grievous bodily harm in resisting their arrest, and" & vbCr & "•the arrest cannot be reasonably effected in a less violent manner, and" & vbCr & "•the arrest cannot be delayed without danger to other people."

            .Cell(5, 1).Range.Font.Size = 20
            .Cell(5, 2).Range.Font.Size = 20
    
    End With

WrdSelection.MoveDown Unit:=5, Count:=6
WrdSelection.TypeParagraph

   P = P + 1

WrdSelection.InsertBreak
'PAGE THREE

With UserForm900.Label1013
    .Font.Size = 20
    .Caption = "Preparing" & vbCr & "Fire Orders (5/6)"
End With

Wrddoc.Tables.Add WrdSelection.Range, NumRows:=5, NumColumns:=1
    With Wrddoc.Tables(P)
            .Columns(1).SetWidth 780, wdAdjustNone
            .Borders.OutsideLineStyle = wdLineStyleSingle
            .Borders.InsideLineStyle = wdLineStyleSingle
            .Borders.OutsideColor = wdColorBlack
            .Borders.InsideColor = wdColorBlack
  
            .Cell(1, 1).Range.Text = "FIRE ORDERS"
            .Cell(1, 1).Shading.BackgroundPatternColor = wdColorGray25
            .Cell(1, 1).Range.Bold = True
            .Cell(1, 1).Range.Font.Size = 40

            .Cell(2, 1).Range.Text = "MAKING DECISIONS TO USE."
            .Cell(2, 1).Range.Font.Size = 30
            .Cell(2, 1).Range.Paragraphs.Alignment = wdAlignParagraphCenter
            
            .Cell(3, 1).Range.Text = "Police must only use a firearm for these lawful purposes:"
            .Cell(3, 1).Range.Font.Size = 20
            .Cell(3, 1).Range.Paragraphs.Alignment = wdAlignParagraphCenter
   
            .Cell(4, 1).Split NumRows:=1, NumColumns:=2
            .Cell(4, 1).SetWidth 300, wdAdjustNone
            .Cell(4, 2).SetWidth 480, wdAdjustNone
            .Cell(4, 1).Range.Text = "LAWFUL PURPOSE"
            .Cell(4, 2).Range.Text = "Police may use a firearm..."
            .Cell(4, 1).Range.Font.Size = 20
            .Cell(4, 2).Range.Font.Size = 20
    
   
            .Cell(5, 1).Split NumRows:=1, NumColumns:=2
            .Cell(5, 1).SetWidth 300, wdAdjustNone
            .Cell(5, 2).SetWidth 480, wdAdjustNone
            .Cell(5, 1).Range.Text = "Preventing escape" & vbCr & "(s40 Crimes Act 1961)."
            .Cell(5, 2).Range.Text = "to prevent an offender escaping if:" & vbCr & "•police believe on reasonable grounds that the offender poses a threat of death or grievous bodily harm to any person (whether an identifiable individual or members of the public at large), and" & vbCr & "•the offender flees to avoid arrest or escapes after arrest, and" & vbCr & "•the flight or escape cannot reasonably be prevented in a less violent manner."
            .Cell(5, 1).Range.Font.Size = 20
            .Cell(5, 2).Range.Font.Size = 20
    
    End With

WrdSelection.MoveDown Unit:=5, Count:=6
WrdSelection.TypeParagraph

   P = P + 1

WrdSelection.InsertBreak
'PAGE THREE

With UserForm900.Label1013
    .Font.Size = 20
    .Caption = "Preparing" & vbCr & "Fire Orders (6/6)"
End With

Wrddoc.Tables.Add WrdSelection.Range, NumRows:=6, NumColumns:=1
    With Wrddoc.Tables(P)
            .Columns(1).SetWidth 780, wdAdjustNone
            .Borders.OutsideLineStyle = wdLineStyleSingle
            .Borders.InsideLineStyle = wdLineStyleSingle
            .Borders.OutsideColor = wdColorBlack
            .Borders.InsideColor = wdColorBlack
  
            .Cell(1, 1).Range.Text = "FIRE ORDERS"
            .Cell(1, 1).Shading.BackgroundPatternColor = wdColorGray25
            .Cell(1, 1).Range.Bold = True
            .Cell(1, 1).Range.Font.Size = 40

            .Cell(2, 1).Range.Text = "MAKING DECISIONS TO USE."
            .Cell(2, 1).Range.Font.Size = 30
            .Cell(2, 1).Range.Paragraphs.Alignment = wdAlignParagraphCenter
            
            .Cell(3, 1).Range.Text = "Police must only use a firearm for these lawful purposes:"
            .Cell(3, 1).Range.Font.Size = 20
            .Cell(3, 1).Range.Paragraphs.Alignment = wdAlignParagraphCenter
   
            .Cell(4, 1).Split NumRows:=1, NumColumns:=2
            .Cell(4, 1).SetWidth 300, wdAdjustNone
            .Cell(4, 2).SetWidth 480, wdAdjustNone
            .Cell(4, 1).Range.Text = "LAWFUL PURPOSE"
            .Cell(4, 2).Range.Text = "Police may use a firearm..."
            .Cell(4, 1).Range.Font.Size = 20
            .Cell(4, 2).Range.Font.Size = 20
    
   
            .Cell(5, 1).Split NumRows:=1, NumColumns:=2
            .Cell(5, 1).SetWidth 300, wdAdjustNone
            .Cell(5, 2).SetWidth 480, wdAdjustNone
            .Cell(5, 1).Range.Text = "Destroying animals" & vbCr
            .Cell(5, 2).Range.Text = "To destroy animals in circumstances set out in the Animals chapter of the Police Manual."
            .Cell(5, 1).Range.Font.Size = 20
            .Cell(5, 2).Range.Font.Size = 20
    
            .Cell(6, 1).Split NumRows:=1, NumColumns:=2
            .Cell(6, 1).SetWidth 300, wdAdjustNone
            .Cell(6, 2).SetWidth 480, wdAdjustNone
            .Cell(6, 2).Range.Text = vbCr & "...END OF FIRE ORDERS..." & vbCr
            .Cell(6, 1).Range.Font.Size = 20
            .Cell(6, 2).Range.Font.Size = 30
    
    End With

WrdSelection.MoveDown Unit:=5, Count:=7
WrdSelection.TypeParagraph

   P = P + 1


































Const TemporaryFolder = 2
Dim FSO As Object
Dim strImage As String
Dim oRng As Range
    Set oRng = Wrddoc.Tables(1).Cell(1, 1).Range
    oRng.End = oRng.End - 1
    oRng.Text = ""
    Set FSO = CreateObject("scripting.filesystemobject")
    strImage = FSO.GetSpecialFolder(TemporaryFolder).Path & "\" & FSO.gettempname
    SavePicture UserForm999.LOGO_LONG.Picture, strImage
    oRng.InlineShapes.AddPicture strImage
    FSO.deletefile strImage
    Set oRng = Nothing
    Set FSO = Nothing

lbl_Exit:
    Set oRng = Nothing
    Set FSO = Nothing


With UserForm900.Label1013
    .Font.Size = 72
    .Caption = "Planning" & vbCr & "Complete"
End With



End Function




Attribute VB_Name = "A_AOS_SAVE_TOE"
Option Explicit
Const TEXT_18 = "CAPSUM.LOG"
Const TEXT_20 = "YAS.LOG"
Public Function FCN_AOS_SAVE()

On Error GoTo PROC_ERR

Application.ScreenUpdating = True
System.Cursor = wdCursorWait
    Dim FH As Integer
    Dim TB As Control
    FH = FreeFile
    Dim Folder As String
    Dim DocName As String
    Dim FilePath As String
    Dim Directory As String
    Dim Doctype As String
…