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):
  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

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):
  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

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.