Ausweich-Schriftarten Dokumentenspezifisch einstellen

Hallo,

schau mal hier: http://www.vbaexpress.com/kb/getarticle.php?kb_id=137

Option ExplicitPublic Sub Main()    Dim sMsg            As String

    sMsg = GetFonts(ActiveDocument)    MsgBox "The fonts in this document are:" & vbNewLine & vbNewLine & sMsg    If Not CompareFonts(sMsg) = vbNullString Then        MsgBox "The following fonts are used in this document," & _        vbNewLine & "but are not installed on this PC:" & vbNewLine & CompareFonts(sMsg)    End IfEnd SubPrivate Function GetFonts(ByVal oDocument As Document) As String    Dim oParagraph      As Paragraph    Dim i               As Integer    Dim oWord           As Words    Dim sFontType       As String    Dim sMsg            As String    For Each oParagraph In oDocument.Paragraphs        For i = 1 To oParagraph.Range.Characters.Count            sFontType = oParagraph.Range.Characters(i).Font.Name            If InStr(1, sMsg, sFontType) = 0 Then                sMsg = sMsg & sFontType & vbNewLine            End If        Next    Next    GetFonts = sMsgEnd FunctionPrivate Function CompareFonts(ByVal oFonts As String) As String    Dim vFont           As Variant    Dim sMsg            As String    Dim xFont           As Variant    Dim i               As Long    Dim allFonts        As String    For Each vFont In FontNames        allFonts = allFonts & vbNewLine & vFont    Next vFont    xFont = Split(oFonts, vbNewLine)    For i = 0 To UBound(xFont)        If InStr(allFonts, xFont(i)) = 0 Then            sMsg = sMsg & vbNewLine & xFont(i)        End If    Next i    CompareFonts = sMsgEnd Function

Viele Grüße

Lisa

Moinsen,

gibt es denn eine Möglichkeit, per VBA oä herauszufinden, ob die gewählte Schriftart installiert ist und dargestellt werden kann? Wenn dies geht, dann kann ich ja notfalls per VBA die Schriftart des Dokumentes anpassen. Wäre ein sehr dreckiger Workaround
... aber sollte ja funktionieren (hoff ich mal! )

Mfg,

Dann sollte sich der Kunde von seinen CI-Schriften zumindest bei diesen Vorlagen verabschieden. Es gibt keine "Bordmittel" dafür, weil die Schriftsubstitute von Windows gesteuert werden.

Gute Drittanbieterschriften zeichnen sich übrigens dadurch aus, dass sie in den Metadaten Hinweise für eine gezielte Auswahl der Ersatzschrift mitbringen.

Gruß

G.O.

Hallo Lisa,

das ist es!

Mir war nicht klar, dass ich die Schnellzugriffsleiste dokumentenspezifisch anpassen kann.

Vielen Dank!

Jürgen

Hallo Flo,



ich habe das bei mir getestet, aber nicht nachstellen können.

Welches Währungsformat wolltest du einstellen? Welche Schriftart hast du in deiner Mappe? Sind um die Zelle, in der du das Währungsformat einstellen möchtest andere Schriftarten vorhanden?



Mit freundlichen Grüßen

Claus