Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 429
  • Last Modified:

How to set the "Do not embed common system fonts" property in Word object?

Hi guys,

How do you set the property "Do not embed common system fonts" to true using VBA? This option can be found under EmbedTrueTypeFonts property in Word (Tools>>Options>>Save tab). Could it be not possible at all programmitically? I have looked around and not found a definite answer.

Raj
0
rb79
Asked:
rb79
  • 2
  • 2
1 Solution
 
rb79Author Commented:
BTW for our Word DOC reports, setting EmbedTrueTypeFonts to true and the property "Do not embed common system fonts" to true results in reducing the Word file size from >800kB to ~230kB.
That's a big improvement. Just switching off EmbedTrueTypeFonts to false helps too (~250kB) but I would like to know if the property "Do not embed common system fonts" be accessed programmitcally.

Thanks.
0
 
byundtCommented:
Hi Raj,

Sub Embedder()
ActiveDocument.EmbedTrueTypeFonts = True    'This statement is not necessary to set DoNotEmbedSystemFonts=True
ActiveDocument.DoNotEmbedSystemFonts = True
End Sub

Cheers!

Brad
0
 
rb79Author Commented:
Great! It worked. Should have guessed myself before posting here. Anyways you get your points. Thanks.
0
 
byundtCommented:
Raj,
If truth be known, I had never seen those settings. So I followed your directions while recording a macro (Tools...Macro...Record menu item). I then found the two statements that were doing something in the resulting code and placed them in a separate sub. After testing, I then posted my Comment. That's a lesson well worth knowing.

Thanks for the grade!
Brad
0

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 2
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now