Izpis vseh pisav (fontov)

Pomoč pri delu z MS Wordom
Odgovori
solata
Prispevkov: 22
Pridružen: Če Sep 01, 2005 10:31 am

Izpis vseh pisav (fontov)

Odgovor Napisal/-a solata »

Pozdravljeni,

v wordu lahko uporabim vsaj 100 različnih pisav - fontov. Ali obstoja program / makro / kar koli, ki bi v prazen dokument zapisal npr. "Čriček Šiška Žužek - določeno besedilo" v vseh teh različnih pisavah ?

Že v naprej hvala :idea:
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

Koda: Izberi vse

'
' Avtor : Matjaž Prtenjak
'         www.matjazev.net
' Datum : 30.11.2008
'
Sub IzpisiVseTipePisav()
  Dim naborZnakov As Variant
  Dim vsebina As String

  vsebina = "Čriček Šiška Žužek"
  
  For Each naborZnakov In FontNames
      Selection.font.Reset
      Selection.font.Size = 14
      Selection.TypeText "Nabor znakov: " & naborZnakov & vbCr
      Selection.font.Name = naborZnakov
      Selection.font.Size = 14
      Selection.TypeText vsebina & vbCr & vbCr
  Next
End Sub
lp,
Matjaž Prtenjak
Administrator
cedra
Prispevkov: 264
Pridružen: Po Jul 25, 2005 11:11 pm
Kraj: Kamnik

Odgovor Napisal/-a cedra »

Na tej strani sem našel dva različna makra, ki vam izpišeta vse naložene pisave v Word-u! :)

Me je že prehitel Matjaž...
lp,

cedra
solata
Prispevkov: 22
Pridružen: Če Sep 01, 2005 10:31 am

Odgovor Napisal/-a solata »

admin - hvala za odgovor :D

cedra - pred pošiljanjem moje prošnje sem naredil "iskanje" - očitno neuspešno, vseeno hvala :lol:

ups, moja napaka. iskal sem po matjaz.net, cedrin nasvet pa odplava na mikrošit :mrgreen: :mrgreen: :mrgreen:
Odgovori