ModriDirkac

Priznanja

Za 1 leto dejavnega sodelovanja. Še na mnoga leta, M♦Zaplotnikprispevki 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

• 
  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)
• 
  Cerkev sv. Antona Padovanskega (skupaj s postajami križevega pota) nad Idrijo. Domoljubno pomladanski motiv praznične idilike slovenskega podeželja :) (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

• Avstrija
• Letalo
• Hrvaška
• Jedrska elektrarna
• Madžarska
• Sarajevo
• Rimsko cesarstvo
• Računalnik
• Tenerife
• Chemtrails
• Tinkara Kovač
• Dunaj

Word makro

Č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