Predmet:Re: Kod za korekciju teksta
Evo ti kod.
Postaviti vjerujem da znas.
PreuzmiIzvorni kôd (Visual Basic):Sub SamoTekst()
'
Dim Dok As Document
Dim Temp As String, ArRijeci() As String
Dim I As Integer
Dim Str As String
Dim Reper As Boolean
Reper = False
Set Dok = ActiveDocument
Temp = Dok.ActiveWindow.Selection
ArRijeci = Split(Temp, vbCr)
For I = LBound(ArRijeci) To UBound(ArRijeci) - 1
If Reper = True Then
Str = Str & ArRijeci(I) & " "
Reper = False
End If
If InStr(1, ArRijeci(I), "-->") > 0 Then
Reper = True
End If
Next I
Selection.TypeText (Str)
End Sub
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.