Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
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) & "