Prev: How can I enlarge a picture on word/document and print it?
Next: Making a form in Word
From: Dstars on 30 Jan 2010 15:56
I've created a set of templates in Word 2007 that I want to distribute to all
the employees at the company that I work for. I assumed that the colour- and
font-theme that I created would be saved together with the template, but
apparently that's not the way it works.

I realize that it's possible to save the theme separately, and then instruct
everyone to download said theme to their own Document Themes folder, but I'm
wondering if that's the way you're supposed to do this, or is there an easier
way? Ideally I would like to set this theme as the default whenever someone
opens my templates.

TIA
From: Jay Freedman on 30 Jan 2010 17:38
As far as I've been able to determine, this is indeed the way you're
supposed to distribute themes -- they are not stored in templates.

You can set your theme as the default for your template by including
this macro in your template (see
http://www.gmayor.com/installing_macro.htm if needed), modifying the
file name as needed:
Sub AutoOpen()
Dim ThemePath As String
Dim ThemeFile As String

ThemeFile = "MyTheme.thmx"
ThemePath = Options.DefaultFilePath( _
wdUserTemplatesPath) & _
"\Document Themes\"

On Error Resume Next
ActiveDocument.ApplyDocumentTheme _
ThemePath & ThemePath
If Err <> 0 Then
MsgBox ThemeFile & " was not found in" & _
vbCr & ThemePath
End If
End Sub

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the
newsgroup so all may benefit.


On Sat, 30 Jan 2010 12:56:04 -0800, Dstars
<Dstars(a)discussions.microsoft.com> wrote:

>I've created a set of templates in Word 2007 that I want to distribute to all
>the employees at the company that I work for. I assumed that the colour- and
>font-theme that I created would be saved together with the template, but
>apparently that's not the way it works.
>
>I realize that it's possible to save the theme separately, and then instruct
>everyone to download said theme to their own Document Themes folder, but I'm
>wondering if that's the way you're supposed to do this, or is there an easier
>way? Ideally I would like to set this theme as the default whenever someone
>opens my templates.
>
>TIA
From: Dstarss on 2 Feb 2010 10:07
Thanks so much for the the help. This works great in Word, and I thought it would be the same for Powerpoint, but every time I try to run this in Powerpoint I get a Run-time error '424': Object required. Am I missing something or doesn't the macros work the same in Word/PowerPoint etc.

---
frmsrcurl: http://msgroups.net/microsoft.public.word.docmanagement/Distributing-Themes
From: Jay Freedman on 2 Feb 2010 12:01
Dstarss wrote:
> Thanks so much for the the help. This works great in Word, and I
> thought it would be the same for Powerpoint, but every time I try to
> run this in Powerpoint I get a Run-time error '424': Object required.
> Am I missing something or doesn't the macros work the same in
> Word/PowerPoint etc.
>
> ---
> frmsrcurl:
> http://msgroups.net/microsoft.public.word.docmanagement/Distributing-Themes

The macro in my previous post is specific to Word, because it contains
references to things that exist only in Word VBA, such as
Options.DefaultFilePath and ActiveDocument. (And it contains a typographical
error; the line "ThemePath & ThemePath" should be changed to "ThemePath &
ThemeFile".)

The equivalent macro for PowerPoint is this:

Sub AutoOpen()
Dim ThemePath As String
Dim ThemeFile As String

ThemeFile = "MyTheme.thmx"
ThemePath = Environ("appdata") & _
"\Microsoft\Templates\Document Themes\"

On Error Resume Next
ActivePresentation.ApplyTheme _
ThemePath & ThemeFile
If Err <> 0 Then
MsgBox ThemeFile & " was not found in" & _
vbCr & ThemePath
End If
End Sub

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.


From: Dstarss on 2 Feb 2010 14:53
Once again, thank you. I fixed the syntax error but forgot to mention it before. Sorry to bother you again, but is there a similar variable that allows you to change just the theme font/colour/effect, something like ActivePresentation.ApplyFont ?


---
frmsrcurl: http://msgroups.net/microsoft.public.word.docmanagement/Distributing-Themes
 |  Next  |  Last
Pages: 1 2
Prev: How can I enlarge a picture on word/document and print it?
Next: Making a form in Word