Centar za edukaciju-BiH



#1 06.10.2014 23:07
White Man Van mreze
Clan
Registrovan od:11.03.2011
Postovi:341


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:
Informacije o tipu datoteke za:doc  A.doc
Preuzimanja:357
Velicina datoteke:22.5 KB
Informacije o tipu datoteke za:doc  B.doc
Preuzimanja:336
Velicina datoteke:22 KB

↑  ↓

#2 07.10.2014 12:26
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


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

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#3 07.10.2014 20:32
White Man Van mreze
Clan
Registrovan od:11.03.2011
Postovi:341


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.
↑  ↓

#4 08.10.2014 19:47
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


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

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#5 08.10.2014 20:47
White Man Van mreze
Clan
Registrovan od:11.03.2011
Postovi:341


Predmet:Re: Kod za korekciju teksta
Radi, hvala.
↑  ↓

#6 11.06.2017 17:58
White Man Van mreze
Clan
Registrovan od:11.03.2011
Postovi:341


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.
↑  ↓

#7 11.06.2017 20:23
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Kod za korekciju teksta
zakaci primjer.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#8 11.06.2017 20:36
White Man Van mreze
Clan
Registrovan od:11.03.2011
Postovi:341


Predmet:Re: Kod za korekciju teksta
Na primer iz ovog titla, da izvuce sav tekst. Hvala unapred.

Prilozi:
Informacije o tipu datoteke za:rar  Bitcoin.The.End.of.Money.as.We.Know.It.English.txt.rar
Preuzimanja:299
Velicina datoteke:32.13 KB

↑  ↓

#9 11.06.2017 21:21
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Kod za korekciju teksta
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.         If ArRijeci(I) = "" Then
  24.            Reper = False
  25.         End If
  26.     Str = Str & ArRijeci(I) & " "
  27.     End If
  28.     If InStr(1, ArRijeci(I), "-->") > 0 Then
  29.     Reper = True
  30.     End If
  31. Next I
  32. Selection.TypeText (Str)
  33. End Sub

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#10 11.06.2017 21:50
White Man Van mreze
Clan
Registrovan od:11.03.2011
Postovi:341


Predmet:Re: Kod za korekciju teksta
Nece opet nesto kako treba. Odvoji samo nesto manje od pola teksta. Da ne postoji neki limit?
↑  ↓

Stranice (2):1,2


Sva vremena su GMT +01:00. Trenutno vrijeme: 12: 15 am.