Uporabnik:ModriDirkac

Ta uporabnik sodeluje pri Wikikrožku Univerza za tretje življenjsko obdobje.

Babilon

Ta uporabnik živi v Ljubljani

sl

Uporabnik govori slovenščino kot materni jezik.

en-4

This user speaks English at a near-native level.

de-1

Dieser Benutzer hat grundlegende Deutschkenntnisse.

hr-3

Ovaj suradnik vrlo dobro govori hrvatski jezik.

sr-3

Корисник доста добро говори српски језик.

Globalni števec urejanj
Podrobno o urejanju slovenske Wikipedije
Podatki o branosti člankov
Najrazličnejše statistike o slovenski Wikipediji

Koliko branj dnevno za posamezni članek?

Čisto iz nule ustvarjeni članki

Priznanja[uredi | uredi kodo]

Za 1 leto dejavnega sodelovanja. Še na mnoga leta, M♦Zaplotnik^prispevki 21:25, 7. maj 2013 (CEST)

WikiHvala za slike emonskih škofov iz ljubljanske stolnice. --Janezdrilc (pogovor) 12:43, 18. marec 2013 (CET)

Za prizadevanja za razširitev baze urejevalcev ti podeljujem priznanje glasnika Wikipedije. — Yerpo ^Ha? 15:55, 29. avgust 2013 (CEST)

Unikatno priznanje za delo pri WikiProjektu 1000 nujnih, ki (tudi) s tvojo pomočjo počasi, a vztrajno napreduje. — Yerpo ^Ha? 14:46, 21. november 2014 (CET)

Za sodelovanje pri akciji Wikimedia CEE Pomlad 2015. — Yerpo ^Ha? 11:52, 4. junij 2015 (CEST)

Za 5 let dejavnega sodelovanja. Uspešno še naprej pri vseh projektih in prizadevanjih, da bi bila Wikipedija še boljša in koristnejša. --Janezdrilc (pogovor) 00:07, 10. januar 2017 (CET)

Z nekaj zamude, za deset let in na še enkrat toliko :) — Yerpo ^Ha? 20:20, 3. januar 2023 (CET)

Za sodelovanje pri akciji Wikimedia CEE Pomlad 2023. — Yerpo ^Ha? 19:37, 12. junij 2023 (CEST)

Izbrane in meni všečne slike[uredi | uredi kodo]

Cviček na Gospodični na Trdinovem vrhu, Dolenjska
(sl)
Slika sistema za upravljenje z vsebinami, Enterprise Content Management
(sl)
Kranjska klobasa, slikana v Klobasarni Ljubljana
(sl)
Shema tlačnovodnega reaktorja v jedrski elektrarni; tak tip reaktorja uporablja npr. Nuklearna elektrarna Krško, avtor: Mozillo, User:Nicolas Lardot; slovenski prevod sestavnih delov: jaz
(sl)
Nekdanji mlin s pregrado, vas Vrt ob Kolpi, občina Kočevje
(sl)

Veliko in Malo Trebeljevo. Ni bila izbrana, ampak mi je vseeno všeč
Narcise na Golici; tudi ni bila izbrana, ampak mi je prav tako všeč.

Izbrani in daljši članki[uredi | uredi kodo]

Word makro[uredi | uredi kodo]

Če komu pride prav ob prevajanju, popravki presledkov, meseci, ...

Sub wiki()
'
' wiki Makro
'
'
   Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
   With Selection.Find
       .Text = " ;"
       .Replacement.Text = ";"
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute
   With Selection.Find
       .Text = " ."
       .Replacement.Text = "."
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = " )"
       .Replacement.Text = ")"
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
    Selection.Find.Execute
    Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = " January "
       .Replacement.Text = ".1."
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = " February "
       .Replacement.Text = ".2."
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
       Selection.Find.Execute
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = " March "
       .Replacement.Text = ".3."
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
       Selection.Find.Execute
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = " April "
       .Replacement.Text = ".4."
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
       Selection.Find.Execute
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = " May "
       .Replacement.Text = ".5."
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
       Selection.Find.Execute
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = " June "
       .Replacement.Text = ".6."
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
       Selection.Find.Execute
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = " July "
       .Replacement.Text = ".7."
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
       Selection.Find.Execute
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = " August "
       .Replacement.Text = ".8."
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
       Selection.Find.Execute
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = " September "
       .Replacement.Text = ".9."
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
       Selection.Find.Execute
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = " October "
       .Replacement.Text = ".10."
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
       Selection.Find.Execute
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = " November "
       .Replacement.Text = ".11."
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = True
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
       Selection.Find.Execute
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = " December "
       .Replacement.Text = ".12."
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = True
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
        Selection.Find.Execute
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = ".."
       .Replacement.Text = "."
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = True
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
            
       End With
 
End Sub