iCentar » Racunari i oprema » Softver i operativni sistemi » Ms office

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190
iCentar » Racunari i oprema » Softver i operativni sistemi » Ms office » Kod za korekciju teksta

White Man	07.10.2014 00:07
Predmet:Kod za korekciju teksta Moze li neko da mi napise kod, koji ce kad ubacim title u word, da obrise one brojeve od frejmova i ostane samo suvi tekst? Primer A je kako izgleda kad se iskopira titl, a primer B je kako bi trebalo da izgleda kada se aktivira kod. Hvala puno unapred.
Prilozi: A.doc (Velicina datoteke:22.5 KB) B.doc (Velicina datoteke:22 KB)

zxz	07.10.2014 13:26
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

zxz

07.10.2014 13:26

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

White Man	07.10.2014 21:32
Predmet:Re: Kod za korekciju teksta To je to, hvala. Samo mi recite jos, gde u kodu modu da dodam da mi izbaci neke znakove koji se pojavljuju u tekstu? Jer negde u tekstu ispred recenice stoji <i> a na kraju </i>. Pa kako i gde u kodu, dodajem ove znakove da ih izbaci? Hvala unapred.

zxz	08.10.2014 20:47
Predmet:Re: Kod za korekciju teksta Evo novi kod. PreuzmiIzvorni kôd (Visual Basic): Sub SamoTekst() ' Dim Dok As Document Dim Temp As String, ArRijeci() As String Dim I As Integer, N As Integer Dim Str As String Dim Reper As Boolean, Poz As Integer 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 Poz = InStr(1, ArRijeci(I), ">") If Poz > 0 Then ArRijeci(I) = Mid(ArRijeci(I), Poz + 1) Poz = InStr(1, ArRijeci(I), "<") If Poz > 0 Then ArRijeci(I) = Left(ArRijeci(I), Poz - 1) End If End If 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

zxz

08.10.2014 20:47

Predmet:Re: Kod za korekciju teksta

Evo novi kod.

PreuzmiIzvorni kôd (Visual Basic):

Sub SamoTekst()
'
Dim Dok As Document
Dim Temp As String, ArRijeci() As String
Dim I As Integer, N As Integer
Dim Str As String
Dim Reper As Boolean, Poz As Integer
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
Poz = InStr(1, ArRijeci(I), ">")
If Poz > 0 Then
ArRijeci(I) = Mid(ArRijeci(I), Poz + 1)
Poz = InStr(1, ArRijeci(I), "<")
If Poz > 0 Then
ArRijeci(I) = Left(ArRijeci(I), Poz - 1)
End If
End If
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

White Man	08.10.2014 21:47
Predmet:Re: Kod za korekciju teksta Radi, hvala.

Gjoreski	12.06.2017 19:29
Predmet:Re: Kod za korekciju teksta Pa ima vise nacina najbolje je kad nam objasnij koja cilj ovog zadatka. Da ja ovo radim za sebe ja bi otvorio ovaj fajl iscitao redove sta meni trebaju i sve te nove redove upisem u neki drugi fajl,to bi sve uradio uz vb6 ili accesa.

White Man	13.06.2017 12:13
Predmet:Re: Kod za korekciju teksta To bi trebalo da je to za sada, ako bude trebala neka ispravka javicu se. Hvala puno svima na trudu, posebno Avku.

Avko	13.06.2017 12:29
Predmet:Re: Kod za korekciju teksta nema na cemu, i drugi put.

White Man	11.06.2017 18:58
Predmet:Re: Kod za korekciju teksta Da li moze da se doradi ovaj kod? Jer kad ima dva ili vise reda u frejmu on samo prvi odvoji. Hvala puno unapred.

zxz	11.06.2017 21:23
Predmet:Re: Kod za korekciju teksta zakaci primjer.

Sva vremena su GMT +02:00.
Viscacha 0.8.1.3