[es] - Kako zamijeniti graficku oznaku bullet sa minusom

hrg
ime i prezime
zg

Član broj: 336335
Poruke: 7
*.dynamic.amis.hr.

+3 Profil

Kako zamijeniti graficku oznaku bullet sa minusom

^{12.09.2023. u 09:51 - pre 7 meseci}

Dobar dan
Molio bi pomoc za:

Kako u word napisati kod da umjesto svih bulleta (crnih tocki-graficke oznake) bude minus.

Moje mi ne radi:

Code:
Sub Makronaredba1()
    Application.DisplayAlerts = False
    Selection.WholeStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting

    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
    MsgBox "ZAMJENA IZVRSENA"
End Sub

probao sam i sa snimanjem makronaredbe isto mi nije uspjelo.

Mesi, mesi neće ništa da ti škodi (Varljivo Leto 1968)

Odgovor na temu

3okc
Χoᴘᴦoѡ

Moderator
Član broj: 811
Poruke: 1319

Jabber: 3okc@elitesecurity.org

+116 Profil

Re: Kako zamijeniti graficku oznaku bullet sa minusom

^{12.09.2023. u 12:12 - pre 7 meseci}

Prvo, da li su buleti uopšte kucani kao tekst ili su u opisu atributa za konkretan *stil*.

Ako nisu kucani, ReplaceAll metoda neće pomoći nego treba videti koji je konkretan stil/stilovi i menjati mu (im) definiciju.

Ako ipak jesu, treba da vidiš koji je unicod broj za konkretan bulet pa njega unesi u makro.

Npr neke druge vrednosti koje možeš da isprobaš su 9679 i 9642.

Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!

Odgovor na temu

hrg
ime i prezime
zg

Član broj: 336335
Poruke: 7
*.dynamic.amis.hr.

+3 Profil

Re: Kako zamijeniti graficku oznaku bullet sa minusom

^{14.09.2023. u 11:13 - pre 7 meseci}

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

Mesi, mesi neće ništa da ti škodi (Varljivo Leto 1968)

Odgovor na temu

3okc
Χoᴘᴦoѡ

Moderator
Član broj: 811
Poruke: 1319

Jabber: 3okc@elitesecurity.org

+116 Profil

Re: Kako zamijeniti graficku oznaku bullet sa minusom

^{14.09.2023. u 12:09 - pre 7 meseci}

Ne znam, kod mene je makro zamenio u "-", kao što je i očekivano.

Za ovaj tvoj tekst mi je prepoznao bulet kao 8226 - ovaj broj inače možeš sam da ukucaš tako što, držeći pritisnut levi ALT ukucaš na numeričkoj tastaturi 8226. Kada otpustiš ALT ispisaće se karakter.

A za izmenu definicije stilova vidi na netu postupak, nije komplikovano da se odradi koliko jeste da se kuca.
Npr ovaj link [Solved] How to convert all bullets to dashes

Odgovor na temu