probao sam sa 8220, 8221, 8222 i 8226
Znaci jos sa 9679 i 9642
ovo je tekst:
Znakovi kako prepoznati ovisnika o kokainu
Postoji nekoliko uobičajenih znakova kako prepoznati ovisnika o kokainu:
• Proširene zenice i crvene beonjače
• Curenje iz nosa ili krvav nos;
• Gubitak apetita i posledično gubitak na težini, iako osoba ne drži dijetu, niti trenira;
• Često instiktivno šmrkanje, podstaknuto navikom konzumacije kokaina
• Promuklost u govoru
• Osobu često boli glava
• Povećani krvni pritisak i telesna temperatura
• Bolovi u stomaku i mučnina
• Osoba na kokainu se neretko trese
• Ubrzan rad srca
• Impotencija
Ako osoba zloupotrebljava krek kokain, onda kod nje možete primetiti opekotine na prstima, rukama, usnama ili ustima. Pored toga, dugotrajna zloupotreba kokaina može izazvati značajna oštećenja i probleme sa reproduktivnim, kardiovaskularnim, digestivnim, respiratornim i centralnim nervnim sistemom.
Drugim rečima, oštećenje sistema organa, usled hronične kokainske zavisnosti, može uzrokovati neplodnost, neuhranjenost, poremećaje kretanja, seksualne disfunkcije, brojne vrste infekcija i neuroloških problema.
ovo cijela makronaredba:
Code:
Sub Makronaredba1()
'
' Makronaredba1 Makronaredba
'
'
Application.DisplayAlerts = False
Selection.WholeStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
'pokusaj zamjeniti bullet, graficke oznake
With Selection.Find
.Text = " "
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ChrW(8220)
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ChrW(8221)
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ChrW(8222)
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ChrW(8226)
.Replacement.Text = "-"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ChrW(9679)
.Replacement.Text = "-"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ChrW(9642)
.Replacement.Text = "-"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
MsgBox "ZAMJENA IZVRSENA"
End Sub
mijenjanje definicije stilova - ovo nisam razumio jer ne znam mijenjati definiciju stilova