Office: Schriftart in Vorlagen

Guten Tag zusammen,
wir sind in der Firma aktuell dabei, die Schriftart in unseren Word-Vorlagen durch eine neue zu ersetzen. Allerdings ist es so, das wir gerne eine Möglichkeit hätten das, sobald eine alte Vorlage mit der Schriftart Helsinki geöffnet wird, automatisch die neue Schriftart Mark Pro genutzt wird.

Wir hatten erst gedacht, die Helsinki Schriftart von den Rechnern zu entfernen. Bei einem Test, öffnete der PC die Dokumente jedoch trotzdem in Helsinki, obwohl diese nicht installiert war.

Ebenfalls hatte ich versucht eine neue Standard Dotm zu erstellen mit der Schriftart Mark Pro (unserer neuen Schriftart). Trotz dessen, wurden alte Dokumente in Helsinki geöffnet.

Ist es irgendwie möglich unser Anliegen umzusetzen?


Außerdem, haben wir so einige Vorlagen in Word, ist es möglich, die Standard Schriftart zu ändern und alle Formatelemente zu übernehmen ? Sodass nicht in allen Vorlagen händisch die Schriftart abgeändert werden muss

 

Da kommt Ihr nicht drum herum. Es gibt keine Rundumschlag-Finktion dafür.
Wenn übrigens nach Löschen der Helsinki diese doch noch angezeigt wird, ist das Fake, Word verwendet ein Substitut.

 

Vielen Dank für die schnelle Antwort. "Fake" bedeutet dann in dem Kontext, Word zeigt zwar Helsinki als Schriftart oben im Feld an, in Wahrheit ist es aber nur eine vergleichbare Schrift (ein Substitut)?

 

Genauso!

 

Das ist nicht so ohne. Die Schriftarten werden in allen möglichen Sachen versteckt gespeichert. Hier ist ein Cut das Beste. Neu anfangen mit neuen Vorlagen in denen Standard dann die neue Schriftart ist. Die alten Vorlagen hatte ich bei uns mal mit einer Sammlung von Makros ausgetauscht, da blieben aber immer noch Reste übrig.

 

Hab da mal gestöbert. Das Ding hier hat fast alles gefunden. Musste es allerdings von unseren Firmenfonts jetzt auf anonyme Fontnamen umschreiben, konnte das nicht mehr testen. Wo der Name steht, reicht es im Regelfall (d.h. wo instr("Fontname") steht) einen typischen Namensbestandteil zu verwenden. Also "Mark P" reicht hier schon.

Code:

Sub deFonti()
Dim dd1 As Document: Set dd1 = ActiveDocument
Dim stYlo As Style

For Each stYlo In dd1.Styles
Debug.Print stYlo.NameLocal, stYlo.Font.name
If InStr(stYlo.Font.name, "AlterFontname1") > 0 Then
stYlo.Font.name = "NeuerFontname1"
ElseIf InStr(stYlo.Font.name, "AlterFontname2") > 0 Then
stYlo.Font.name = "NeuerFontname2"

End If
Next stYlo


End Sub

Sub testDeFonti()
Dim dd1 As Document: Set dd1 = ActiveDocument
Dim chR As Range


For i = 1 To dd1.Characters.Count
Set chR = dd1.Characters(i)

If InStr(chR.Font.name, "AlterFontname2") > 0 Or InStr(chR.Font.name, "AlterFontname2") > 0 Then
Debug.Print "Fund", dd1.Characters(i)
chR.Select

End If
Next i
End Sub

Sub tabeLLdeFonti()
Dim dd1 As Document: Set dd1 = ActiveDocument
Dim tbsTy As Style

For Each tbsTy In dd1.Styles
Debug.Print tbsTy.NameLocal, tbsTy.Type
If tbsTy.Type = wdStyleTypeTable Then
Set tbsTy = dd1.Tables(1).Style
For i = 0 To 11
 tbsTy.Table.Condition(i).Font.name = "NeuerFontname1"
 tbsTy.Table.Condition(wdLastColumn).Font.name = "NeuerFontname1"
 tbsTy.Table.Condition(wdEvenRowBanding).Font.name = "NeuerFontname1"
 tbsTy.Table.Condition(wdSWCell).Font.name "NeuerFontname1"
Next i

End If
Next tbsTy


End Sub


Sub attSty()

Dim dd1 As Document: Set dd1 = ActiveDocument
On Error Resume Next
Dim tbsTy As Style, onk As Style
For Each tbsTy In dd1.Styles
If tbsTy.Linked = True Then
Set onk = tbsTy.LinkStyle
Debug.Print onk, onk.Font.name
If InStr(onk.Font.name, "AlterFontname1") Then
onk.Font.name = "NeuerFontname1"
End If
End If

Next tbsTy
End Sub

Sub bulletII()

Dim dd1 As Document: Set dd1 = ActiveDocument
Dim bU As BulletFormat2
Dim iFF As ListTemplate


For Each iFF In dd1.ListTemplates

For i = 1 To iFF.ListLevels.Count
Debug.Print iFF.ListLevels(i).Font.name
If InStr(iFF.ListLevels(i).Font.name, "AlterFontname1") Or InStr(iFF.ListLevels(i).Font.name, "AlterFontname2") Then
iFF.ListLevels(i).Font.name = "NeuerFontname1"
End If
Next i
Next iFF
End Sub

 

Danke für das Skript. Nur wo genau muss ich das denn einfügen? Und an den stellen, wo "AlterFontname1" steht dann Helsinki eintragen, an den Stellen wo "NeuerFontname1" steht, dort Mark Pro einfügen?

Was genau wird denn mithilfe des Skripts festgestellt?

Vielen Dank im Voraus!

 

Keine Ahnung, ob das noch aktuell ist, aber ja, das hast du richtig gesehen. Ersetze AlterFonname1 durch Helsinki, dann laufen lassen.
Die Skripte laufen im aktuell geöffneten Dokument alle Möglichkeiten durch, in denen der Font verbaut sein könnte. Also alle Formatvorlagen und alle Tabellenvorlagen, Aufzählungsvorlagen usw.
Zum Schluss werden noch alle Zeichen einzeln durchlaufen, denn wenn ein Zeichen hart formatiert ist, klappt das mit den FV natürlich wieder nicht.
Es ist natürlich immer noch eine Mordarbeit, wenn man das für jedes Dokument einzeln macht, aber für die Dokumentvorlagen lohnt sich das. Die müssen allerdings dann mit Rechtsklick geöffnet sein, dass das funktioniert.