[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: 4813

27. Apr 2021, 09:00
Beitrag # 1 von 3
Bewertung:
(699 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?

Grüßle
Christoph Steffens

http://www.eventbrite.de/o/idug-stuttgart-8157231696
X

Word Makro: Speichern OHNE Schrift-Einbettung

Henry
Beiträge gesamt: 909

28. Apr 2021, 10:59
Beitrag # 2 von 3
Beitrag ID: #579698
Bewertung:
(605 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: 4813

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

Vielen vielen Dank!!!!!!!!

Grüßle
Christoph Steffens

http://www.eventbrite.de/o/idug-stuttgart-8157231696


als Antwort auf: [#579698]

Aktuell

Veranstaltungskalender

Hier können Sie Ihre Anlässe eintragen, welche einen Zusammenhang mit den Angeboten von HilfDirSelbst.ch wie z.B. Adobe InDesign, Photoshop, Illustrator, PDF, Pitstop, Affinity, Marketing, SEO, Büro- und Rechtsthemen etc. haben. Die Einträge werden moderiert freigeschaltet. Dies wird werktags üblicherweise innert 24 Stunden erfolgen.

pdf-icon Hier eine kleine Anleitung hinsichtlich Bedeutung der auszufüllenden Formularfelder.

Veranstaltungen
05.02.2021 - 05.11.2021

Digicomp Academy AG, Limmatstrasse 50, 8005 Zürich
Freitag, 05. Feb. 2021, 13.00 Uhr - Freitag, 05. Nov. 2021, 17.00 Uhr

Lehrgang

Bilden Sie sich zum zertifizierten Publishing-Multimedia-Profi aus. Neben Fotografie und Video befassen Sie sich mit der Medienproduktion, digitalen Publikationen und dem Webdesign für Desktop- und mobile Endgeräte.

Preis: CHF 10'500.-
Dauer: 30 Tage (ca. 210 Lektionen) – Unterricht findet jeweils am Freitag von 13 - 19 Uhr und Samstag von 09 - 17 Uhr statt

Ja

Organisator: Digicomp Academy AG

Kontaktinformation: Kundenberater-Team, E-Mailkundenberatung AT digicomp DOT ch

digicomp.ch/d/9PM

Veranstaltungen
12.03.2021 - 16.07.2021

Digicomp Academy AG, Zürich oder virtuell
Freitag, 12. März 2021, 13.00 Uhr - Freitag, 16. Juli 2021, 17.00 Uhr

Lehrgang

Steigen Sie in die Welt des Publishings ein und erlangen Sie die Zertifizierung von publishingNETWORK. Lernen Sie in diesem Lehrgang Druckmedien professionell zu erarbeiten, druckfertige PDFs zu erstellen und CI/CD-Vorgaben umzusetzen.

Preis: CHF 6'300.-
Dauer: 18 Tage (ca. 126 Lektionen) – Unterricht findet jeweils am Freitag von 13 - 19 Uhr und Samstag von 09 - 17 Uhr statt.

Ja

Organisator: Digicomp Academy AG

Kontaktinformation: Kundenberater-Team, E-Mailkundenberatung AT digicomp DOT ch

digicomp.ch/d/9PBAS