..|| Blog || Produkti/Storitve || MExcel || MDodatki || 300 nasvetov ||..

Izpis vseh pisav (fontov)

Pomoč pri delu z MS Wordom

Izpis vseh pisav (fontov)

OdgovorNapisal/-a solata » Ne nov 30, 2008 6:35 pm

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:
solata
 
Prispevkov: 22
Pridružen: Če sep 01, 2005 10:31 am



Matjazev.NET
 

OdgovorNapisal/-a admin » Ne nov 30, 2008 7:51 pm

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
admin
Site Admin
 
Prispevkov: 3415
Pridružen: Sr jul 20, 2005 10:06 pm

OdgovorNapisal/-a cedra » Ne nov 30, 2008 7:54 pm

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
cedra
 
Prispevkov: 263
Pridružen: Po jul 25, 2005 11:11 pm
Kraj: Kamnik

OdgovorNapisal/-a solata » To dec 02, 2008 12:23 pm

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:
solata
 
Prispevkov: 22
Pridružen: Če sep 01, 2005 10:31 am


Vrni se na Word

Kdo je prisoten

Po forumu brska: 0 registriranih uporabnikov in 0 gostov