Replies

Perfect. Tks alot.

Hi Henrik,
I work in a lawyers office and we use it for legal documents that go like this:
1.2 Lease Duration. The lease duration should not exceed…….
Only the 1.2 and Lease Duration is in bold and picked up by the ToC. The rest of the paragraph is in normal text.
At my new job, I came upon a doc like that and was curious on how this was achieved.
Thanks to Hans for his enlightment.

Perfect. Tks Hans.
jc

Perfect. Thanks Hans.

Hi gang,
Let me answer my own post.
I closed the document then re-opened it to see the toolbar appear.
Wonder what happened. Might be just screen refresh.
Any clue?
tks

Hi Andrew,
Tks for the tip. The workgroup template seems like the logical approach. However, there are dozens of templates and they are separated in different sub folders in the user and/or workgroup templates location. If I put all the templates in a de fault folder it will make it more difficult for the user to find the right template when creating a new doc. By adding code to every new file created with a specific template I can specify the sub-folder in which this template is located.
Would there be a better way of doing this?
Tks

Hi Andrew,
Tks for the tip. The workgroup template seems like the logical approach. However, there are dozens of templates and they are separated in different sub folders in the user and/or workgroup templates location. If I put all the templates in a de fault folder it will make it more difficult for the user to find the right template when creating a new doc. By adding code to every new file created with a specific template I can specify the sub-folder in which this template is located.
Would there be a better way of doing this?
Tks

This worked just fine. Tks alot.
jc

This worked just fine. Tks alot.
jc

OK that’s weird. Just before posting the code to you I decided to tiddy up the code a bit and I nested a With End With just so my code would look better and it works just fine now. I don’t understand but it works.
Here is what I had.

Application.ScreenUpdating = False
Selection.Style = ActiveDocument.Styles(“Heading 1”)
Set T1Range = Selection.Paragraphs(1).Range
Set T1Line = ActiveDocument.Shapes.AddLine(96#, 256.5, 554.25, 256.5, T1Range)
With T1Line.Line
.Weight = 1.5
.DashStyle = msoLineSolid
.Style = msoLineSingle
‘ . . . etc.
End With
With T1Line
.Height = 0#
.Width = InchesToPoints(6.14)
‘. . . etc.
End With
Application.ScreenUpdating = True

Here is what I changed it for

Application.ScreenUpdating = False
Selection.Style = ActiveDocument.Styles(“Heading 1”)
Set T1Range = Selection.Paragraphs(1).Range
Set T1Line = ActiveDocument.Shapes.AddLine(96#, 256.5, 554.25, 256.5, T1Range)
With T1Line
.Height = 0#
.Width = InchesToPoints(6.14)
‘. . . etc.
With .Line
.Weight = 1.5
.DashStyle = msoLineSolid
‘ . . . etc.
End With
End With
Application.ScreenUpdating = True

Works just fine now. I just cleaned up before the cleaning lady came. Tks.

OK that’s weird. Just before posting the code to you I decided to tiddy up the code a bit and I nested a With End With just so my code would look better and it works just fine now. I don’t understand but it works.
Here is what I had.

Application.ScreenUpdating = False
Selection.Style = ActiveDocument.Styles(“Heading 1”)
Set T1Range = Selection.Paragraphs(1).Range
Set T1Line = ActiveDocument.Shapes.AddLine(96#, 256.5, 554.25, 256.5, T1Range)
With T1Line.Line
.Weight = 1.5
.DashStyle = msoLineSolid
.Style = msoLineSingle
‘ . . . etc.
End With
With T1Line
.Height = 0#
.Width = InchesToPoints(6.14)
‘. . . etc.
End With
Application.ScreenUpdating = True

Here is what I changed it for

Application.ScreenUpdating = False
Selection.Style = ActiveDocument.Styles(“Heading 1”)
Set T1Range = Selection.Paragraphs(1).Range
Set T1Line = ActiveDocument.Shapes.AddLine(96#, 256.5, 554.25, 256.5, T1Range)
With T1Line
.Height = 0#
.Width = InchesToPoints(6.14)
‘. . . etc.
With .Line
.Weight = 1.5
.DashStyle = msoLineSolid
‘ . . . etc.
End With
End With
Application.ScreenUpdating = True

Works just fine now. I just cleaned up before the cleaning lady came. Tks.

Yep, I thought of the paragraph border in the style but this template will end up on a Mac that uses Word 98 and there is a very limited choice of color for paragraph borders in Word 98. I think I will just let it go for now and when they upgrade the software I will put a paragraph border with the right color.

tks alot.

Yep, I thought of the paragraph border in the style but this template will end up on a Mac that uses Word 98 and there is a very limited choice of color for paragraph borders in Word 98. I think I will just let it go for now and when they upgrade the software I will put a paragraph border with the right color.

tks alot.

Tks. That was me yesterday. I managed to put a field into the footer now I want a graphic line. Can’t seem to find the right code for it.
Set Line = activedocument.shapes.addline won’t work because I am in a range and
Set Line = .range.shapes.addline won’t work either. My VBA knowledge is very limited. Could you help please.
tks.

Tks. That was me yesterday. I managed to put a field into the footer now I want a graphic line. Can’t seem to find the right code for it.
Set Line = activedocument.shapes.addline won’t work because I am in a range and
Set Line = .range.shapes.addline won’t work either. My VBA knowledge is very limited. Could you help please.
tks.