Prikazi cijelu temu 08.10.2014 19:47
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Kod za korekciju teksta
Evo novi kod.
PreuzmiIzvorni kôd (Visual Basic):
  1. Sub SamoTekst()
  2. '
  3. Dim Dok As Document
  4. Dim Temp As String, ArRijeci() As String
  5. Dim I As Integer, N As Integer
  6. Dim Str As String
  7. Dim Reper As Boolean, Poz As Integer
  8.  
  9. Reper = False
  10. Set Dok = ActiveDocument
  11. Temp = Dok.ActiveWindow.Selection
  12. ArRijeci = Split(Temp, vbCr)
  13. For I = LBound(ArRijeci) To UBound(ArRijeci) - 1
  14.     If Reper = True Then
  15.     Poz = InStr(1, ArRijeci(I), ">")
  16.         If Poz > 0 Then
  17.         ArRijeci(I) = Mid(ArRijeci(I), Poz + 1)
  18.         Poz = InStr(1, ArRijeci(I), "<")
  19.             If Poz > 0 Then
  20.             ArRijeci(I) = Left(ArRijeci(I), Poz - 1)
  21.             End If
  22.         End If
  23.     Str = Str & ArRijeci(I) & " "
  24.     Reper = False
  25.     End If
  26.     If InStr(1, ArRijeci(I), "-->") > 0 Then
  27.     Reper = True
  28.     End If
  29. Next I
  30. Selection.TypeText (Str)
  31. End Sub

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.