Connect failed: Connection timed out

[GastForen Programme Office Microsoft Office Word Makro: Speichern OHNE Schrift-Einbettung

  • Suche
  • Hilfe
  • Lesezeichen
  • Benutzerliste
Office - Alles fürs Büro
Themen
Beiträge
Moderatoren
Letzter Beitrag

Word Makro: Speichern OHNE Schrift-Einbettung

Christoph Steffens
Beiträge gesamt: 4906

27. Apr 2021, 09:00
Beitrag # 1 von 3
Bewertung:
(13481 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallöchen,
leider reichen meine Word und Programmierkenntnisse für diese Anforderung nicht aus. Kann und will mir jemand helfen?

Ich brauche ein Makro, dass die aktive Datei speichert.
Natürlich unter ihrem eigenen Namen und in einen bestimmten Ordner.
Das wichtige ist, dass die Option "Schriftarten in der Datei einbetten" DEAKTIVIERT wird.

Hat jemand einen Tipp, wie ich so ein Makro hinbekomme?
X

Word Makro: Speichern OHNE Schrift-Einbettung

Henry
Beiträge gesamt: 967

28. Apr 2021, 10:59
Beitrag # 2 von 3
Beitrag ID: #579698
Bewertung:
(13387 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hi, du kannst folgenden Code probieren:
Code
Sub Speichern_ohneTTfonts() 
'speichert das active doc in denselben ordner ohne eingebettete TTfonts
Dim strPath As String
Dim strName As String
Dim strZusatz As String
Dim intPos As Integer
Dim strExt As String
strPath = ActiveDocument.Path & Application.PathSeparator '!!!path fehlt falls doc noch gar nicht gespeichert ist
strName = ActiveDocument.Name
strZusatz = "_ohneTTfonts" 'wird dem Dateinamen angehängt
intPos = InStrRev(strName, ".") 'zum Trennen von Dateiname und Extension
strExt = "." & Right(strName, Len(strName) - intPos)
strName = Left(strName, intPos - 1) 'Dokumentname ohne Extension

With ActiveDocument
If .EmbedTrueTypeFonts Then 'falls TTfonts im Doc eingebettet
.EmbedTrueTypeFonts = False 'TT-status auf NICHT einbetten setzen
strName = strName & strZusatz & strExt 'neuen Dateinamen zusammensetzen
.SaveAs FileName:=strPath & strName
MsgBox ("Das Dokument wurde ohne eingebettete TT-Fonts gespeichert als:" & vbCr & vbCr _
& strName & vbCr & vbCr & "im Ordner:" & vbCr & vbCr & strPath)
Else
MsgBox ("Das Dokument ist bereits ohne eingebettete TT-Fonts gespeichert," & vbCr _
& "deshalb erfolgte kein zusätzliches Speichern.")
End If
End With
End Sub

Dem ursprünglichen Dateinamen wird dabei der Zusatz "_ohneTTFonts" angehängt.


als Antwort auf: [#579690]

Word Makro: Speichern OHNE Schrift-Einbettung

Christoph Steffens
Beiträge gesamt: 4906

28. Apr 2021, 16:10
Beitrag # 3 von 3
Beitrag ID: #579702
Bewertung:
(13320 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Wow!

Vielen vielen Dank!!!!!!!!


als Antwort auf: [#579698]