microsoft.public.word.vba.general

Many thanks for your suggestion. However I have been using the same method as
suggested. I also tried the organizercopy function to copy individual style
across.

The problem I am having is that once I copy the styles from the attached
template, some paragraph styles have changed unwantedly. For example, I have
some paragrahs formatted with "Heading x" without hanging indent, but once I
update styles from template, some remains without indented (which is what I'm
expecting), but some paragraghs (only some) changed to indented (which is not
I'm expecting). I checked the style definitions in the template & they all
look fine to me.

This is why I am posting the question to see if there is any VBA method that
can re-apply all the styles in the document AFTER I copy or update the styles
from the attached template.

Hope the additional information clarifies what exactly what I'm after.

Have a nice weekend, guys!





"Graham Mayor" wrote:

> With ActiveDocument
> .UpdateStylesOnOpen = True
> .AttachedTemplate = "D:\Path\Template.dot"
> End With
>
> The above will load your template and update the styles of the same name. If
> you want to go beyond that and remove manual formatting, then the following
> should do that and adds the facility to pick the template.
>
> Neither function will do anything about stylenames that don't match.
>
> Sub ChangeMyTemplate()
> Dim oRng As Range
> Dim fDialog As FileDialog
> Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
> With fDialog
> .Title = "Select Template to Attach and click OK"
> .AllowMultiSelect = False
> .InitialView = msoFileDialogViewList
> If .Show <> -1 Then
> MsgBox "Cancelled By User", , "Select Template"
> Exit Sub
> End If
> sTemplate = fDialog.SelectedItems.Item(1)
> End With
> With ActiveDocument
> .UpdateStylesOnOpen = True
> .AttachedTemplate = sTemplate
> End With
> For Each oRng In ActiveDocument.StoryRanges
> Do Until oRng Is Nothing
> With oRng
> .WholeStory
> .Font.Reset
> End With
> Set oRng = oRng.NextStoryRange
> Loop
> Next
> End Sub
>
>
> --
> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
> Graham Mayor - Word MVP
>
> My web site www.gmayor.com
> Word MVP web site http://word.mvps.org
> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
>
>
> aushknotes wrote:
> > Hi,
> >
> > I need to re-apply all styles to a document programmatically after
> > copying all styles from a template? Is there a single method to do
> > so? If not, how can I do it with the shortest VBA codes? I tried
> > range.select & then send sendkeys CTRL+Q or CTRL+Space but both did
> > not work as required.
> >
> > Many thanks in advance!
>
>
>