I need to set a couple of options in Word to be the defaults but not enforced.
Seems like the easiest way to do this would be in the default user profile. Has
anyone done this before? I have a script that would set the options for each
user. Would it be possible to mount the default user hive during OSD and run
this script to setup the options for future users? I've had a case with CSS
about this for weeks, finally I got so frustrated with them I just told them to
close the case. I wanted to simply insert a custom normal.dotm using GPP's but
they had no clue how to do that and were unable to help me troubleshoot it.
According to CSS the only way to accomplish what I am after is by running the
following as a login script. However that doesn't meet my requirements of
allowing users to change these settings.
'WARNING: ANY USE BY YOU OF THE CODE PROVIDED IN THIS EXAMPLE IS
'AT YOUR OWN RISK. Microsoft provides this code "as is" without warranty of
'any kind, either express or implied, including but not limited to the implied
warranties of
'merchantability and/or fitness for a particular purpose.
Dim objWord
Dim objDoc
Dim sFullTemplate
Set objWord = CreateObject("Word.Application")
'objword.visible=true
Set objDoc = objWord.documents.Add
' **** Get the full normal template path and name
sFullTemplate = objDoc.attachedtemplate.Path & "\" &
objDoc.attachedtemplate.Name
' ***** Close active doc w/o saving
objDoc.Close savechanges=0
' ***** Open the normal template
Set objDoc = objWord.documents.Open(sFullTemplate)
' ***** Update the normal Style
objDoc.Range.Font.Name = "Times New Roman" ' set the font name her
objDoc.Range.Font.Size = 11 'set the point size here
' ***** Update the Revisions options - which are written to the registry based
on the checkbox value
objWord.Options.ShowMarkupOpenSave = True 'Marks the File > Options > Trust
Center > Trust Center Settings > Privacy Options > checkbox for Warn before
printing, saving or sending a file that contains tracked changes or comments
objWord.Options.WarnBeforeSavingPrintingSendingMarkup = True 'Marks the File >
Options > Trust Center > Trust Center Settings > Privacy Options > checkbox
for Make hidden markup visible when opening or saving
' ***** Save and Close the template
objDoc.Save
objDoc.Close
objWord.Quit 0
Set objWord = nothing
________________________________
John Marcum
MCITP, MCTS, MCSA
Desktop Architect
Bradley Arant Boult Cummings LLP
________________________________
[H_Logo]
________________________________
Confidentiality Notice: This e-mail is from a law firm and may be protected by
the attorney-client or work product privileges. If you have received this
message in error, please notify the sender by replying to this e-mail and then
delete it from your computer.
