Prikazi cijelu temu 07.10.2014 13:26
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Kod za korekciju teksta
Evo ti kod.
Postaviti vjerujem da znas.
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
  6. Dim Str As String
  7. Dim Reper As Boolean
  8.  
  9.  
  10. Reper = False
  11. Set Dok = ActiveDocument
  12. Temp = Dok.ActiveWindow.Selection
  13. ArRijeci = Split(Temp, vbCr)
  14. For I = LBound(ArRijeci) To UBound(ArRijeci) - 1
  15.     If Reper = True Then
  16.     Str = Str & ArRijeci(I) & " "
  17.     Reper = False
  18.     End If
  19.     If InStr(1, ArRijeci(I), "-->") > 0 Then
  20.     Reper = True
  21.     End If
  22. Next I
  23. Selection.TypeText (Str)
  24. End Sub
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.