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
Izpis vseh pisav (fontov)
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
Matjaž Prtenjak
Administrator
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ž...
Me je že prehitel Matjaž...
lp,
cedra
cedra