Prev: Problem Accessing Macro on Network Drive Using Shortcut
Next: coverting iWord.pages file
From: jerem on 2 Feb 2010 19:58
I am directly formatting paragraphs using Ctrl m (changing indents), Ctrl t
(changing tabbing), Ctrl i, Ctrl b, (font formatting) and Ctrl 1, 2 and 3 for
paragraph after settings, etc., etc. After setting up all the formatting I
create a new style – Cs – which now incorporates all that formatting into the
actual style formatting. I then use the following macro to now make all of
these formatting attributes to be incorporated into a pre-existing style
which has attributes I don't want but which I have to use (company protocol).
[I use the direct formatting because it's faster and easier than navigating
through all the Style settings and you have the visual of what the paragraph
looks like right in front of you]. The code works nicely sometimes and other
times I get a runtime error 4194 and when you go into Debug it is halting on
the OrganizerDelete statement. What I've done is copied that statement into
a new macro all by itself. I then create the Cs style and know it is there
in the Organizer (though it may not be in use in the document and maybe this
is what's creating a problem????), yet when I run this new macro it will not
delete the style from the Organizer. So, in essence I need to have a
statement that will delete Cs in the Organizer regardless of whether the
style is being used in the document. Anybody have a solution. Thanks for
your help.

Sub CopyAttributesOfStyle()
'ShortcutKey = F12
Const Error_StyleDoesNotExist = 5941
Dim t As Style, s As Style
Dim trgStyleName As String
trgStyleName = InputBox("Enter the name of the style to create")
Set s = ActiveDocument.Styles("Cs")
On Error Resume Next
Set t = ActiveDocument.Styles(trgStyleName)
If Err.Number = Error_StyleDoesNotExist Then
MsgBox "The style specified does not exist."
GoTo Done
End If
On Error GoTo 0
With t
.BaseStyle = "Normal"
.ParagraphFormat = s.ParagraphFormat
.Font = s.Font
.LanguageID = s.LanguageID
End With
Selection.Style = trgStyleName

Application.OrganizerDelete Source:=ActiveDocument, Name:="Cs", Object:= _
wdOrganizerObjectStyles
Done:
Set s = Nothing
Set t = Nothing
End Sub
From: Larry Sulky on 5 Feb 2010 14:32
On Feb 2, 7:58 pm, jerem <je...(a)discussions.microsoft.com> wrote:
> I am directly formatting paragraphs using Ctrl m (changing indents), Ctrl t
> (changing tabbing), Ctrl i, Ctrl b, (font formatting) and Ctrl 1, 2 and 3 for
> paragraph after settings, etc., etc.  After setting up all the formatting I
> create a new style – Cs – which now incorporates all that formatting into the
> actual style formatting.  I then use the following macro to now make all of
> these formatting attributes to be incorporated into a pre-existing style
> which has attributes I don't want but which I have to use (company protocol).
>  [I use the direct formatting because it's faster and easier than navigating
> through all the Style settings and you have the visual of what the paragraph
> looks like right in front of you].  The code works nicely sometimes and other
> times I get a runtime error 4194 and when you go into Debug it is halting on
> the OrganizerDelete statement.  What I’ve done is copied that statement into
> a new macro all by itself.  I then create the Cs style and know it is there
> in the Organizer (though it may not be in use in the document and maybe this
> is what’s creating a problem????), yet when I run this new macro it will not
> delete the style from the Organizer.  So, in essence I need to have a
> statement that will delete Cs in the Organizer regardless of whether the
> style is being used in the document.  Anybody have a solution.  Thanks for
> your help.
>
> Sub CopyAttributesOfStyle()
> 'ShortcutKey = F12
>     Const Error_StyleDoesNotExist = 5941
>     Dim t As Style, s As Style
>     Dim trgStyleName As String
>     trgStyleName = InputBox("Enter the name of the style to create")
>     Set s = ActiveDocument.Styles("Cs")
>     On Error Resume Next
>     Set t = ActiveDocument.Styles(trgStyleName)
>     If Err.Number = Error_StyleDoesNotExist Then
>         MsgBox "The style specified does not exist."
>         GoTo Done
>     End If
>     On Error GoTo 0
>     With t
>         .BaseStyle = "Normal"
>         .ParagraphFormat = s.ParagraphFormat
>         .Font = s.Font
>         .LanguageID = s.LanguageID
>     End With
>     Selection.Style = trgStyleName
>
>     Application.OrganizerDelete Source:=ActiveDocument, Name:="Cs", Object:= _
>         wdOrganizerObjectStyles
> Done:
>     Set s = Nothing
>     Set t = Nothing
> End Sub

Give the name of the active document:

Application.OrganizerDelete Source:=ActiveDocument.FullName,
Name:="Cs", Object:= _
wdOrganizerObjectStyles

--larry
From: jerem on 16 Feb 2010 18:00
I want to use this feature on any document that I'm in that I have to format
paragraphs for (which may be several paragraphs in the same document).
Becomes tedious to have to specify a name every time I want to use the macro.
Any way of getting around having to specify the name of the document. Just
curious why ActiveDocument is not sufficient?


"Larry Sulky" wrote:

> On Feb 2, 7:58 pm, jerem <je...(a)discussions.microsoft.com> wrote:
> > I am directly formatting paragraphs using Ctrl m (changing indents), Ctrl t
> > (changing tabbing), Ctrl i, Ctrl b, (font formatting) and Ctrl 1, 2 and 3 for
> > paragraph after settings, etc., etc. After setting up all the formatting I
> > create a new style – Cs – which now incorporates all that formatting into the
> > actual style formatting. I then use the following macro to now make all of
> > these formatting attributes to be incorporated into a pre-existing style
> > which has attributes I don't want but which I have to use (company protocol).
> > [I use the direct formatting because it's faster and easier than navigating
> > through all the Style settings and you have the visual of what the paragraph
> > looks like right in front of you]. The code works nicely sometimes and other
> > times I get a runtime error 4194 and when you go into Debug it is halting on
> > the OrganizerDelete statement. What I've done is copied that statement into
> > a new macro all by itself. I then create the Cs style and know it is there
> > in the Organizer (though it may not be in use in the document and maybe this
> > is what's creating a problem????), yet when I run this new macro it will not
> > delete the style from the Organizer. So, in essence I need to have a
> > statement that will delete Cs in the Organizer regardless of whether the
> > style is being used in the document. Anybody have a solution. Thanks for
> > your help.
> >
> > Sub CopyAttributesOfStyle()
> > 'ShortcutKey = F12
> > Const Error_StyleDoesNotExist = 5941
> > Dim t As Style, s As Style
> > Dim trgStyleName As String
> > trgStyleName = InputBox("Enter the name of the style to create")
> > Set s = ActiveDocument.Styles("Cs")
> > On Error Resume Next
> > Set t = ActiveDocument.Styles(trgStyleName)
> > If Err.Number = Error_StyleDoesNotExist Then
> > MsgBox "The style specified does not exist."
> > GoTo Done
> > End If
> > On Error GoTo 0
> > With t
> > .BaseStyle = "Normal"
> > .ParagraphFormat = s.ParagraphFormat
> > .Font = s.Font
> > .LanguageID = s.LanguageID
> > End With
> > Selection.Style = trgStyleName
> >
> > Application.OrganizerDelete Source:=ActiveDocument, Name:="Cs", Object:= _
> > wdOrganizerObjectStyles
> > Done:
> > Set s = Nothing
> > Set t = Nothing
> > End Sub
>
> Give the name of the active document:
>
> Application.OrganizerDelete Source:=ActiveDocument.FullName,
> Name:="Cs", Object:= _
> wdOrganizerObjectStyles
>
> --larry
> .
>
 | 
Pages: 1
Prev: Problem Accessing Macro on Network Drive Using Shortcut
Next: coverting iWord.pages file