Lijstnummerings instellingen worden niet meegenomen in het sjabloon naar andere comp

[Xpander]

Helaas zit ik nog steeds te neuzelen met die brakke sjablonen

Dus bij deze weer een vraag..

Ik heb een sjabloon gemaakt.

Daarin heb ik twee verschillende opsommings mogelijkheden gebakken. Zo heb ik opsomming2 en lijstnummering.

Dit heb ik gemaakt door bestaande lijstnummeringsopties om te bouwen.

Deze opsommingen wilden men in een speciale "huisstijl werkbalk" geplaatst hebben. Dus ik heb twee leuke buttons gemaakt met daarachter uiteraard super macro's. Hieronder de code:

------------------------
Sub Opsomming1()
'
' Apply style Opsomming1 Macro
'
Selection.Style = ActiveDocument.Styles("Lijstnummering")

Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=ListGalleries( _
wdOutlineNumberGallery).ListTemplates(6), ContinuePreviousList:=False

Selection.ParagraphFormat.TabStops.ClearAll
Selection.ParagraphFormat.TabStops(CentimetersToPoints(0.7)).Position = _
CentimetersToPoints(0.7)
End Sub
------------------------

------------------------
Sub Opsomming2()
'
' Apply style Opsomming2 Macro
'
Selection.Style = ActiveDocument.Styles("opsomming2")

Selection.ParagraphFormat.TabStops.ClearAll
Selection.ParagraphFormat.TabStops(CentimetersToPoints(0.7)).Position = _
CentimetersToPoints(0.7)
End Sub
------------------------

Als ik de gemaakte macro nu op een andere machine plaats, dan werken de mooie knoppen niet meer zals het hoort. Er verschijnen heel andere opsommingstekens..

Hoe kan dit?

 

[joost verdaasdo]

Hai,

Verplaats de Normal.dot van de originele machine mee naar de machine waarop jij de sjabloon plaatst...toch nog enige connectie daar vermoed ik!

See Yah! :thumb:

 

[Xpander]

Uhm.. o.. vergeten om dat te melden..
ik lever de normal.dot ook erbij aangezien daar ook de aanpassingen in zijn verwerkt idd..
Maar daarin wordt het blijkbaar niet in vastgehouden..

 

[joost verdaasdo]

Hai,

Ow aha tja das vreemd hé.

Nou weet ik wel dat lijstprofielen altijd lastig zijn dus zonder het te zien kan ik je toch niet verder helpen..

Wellicht wil je hieronder even bij mijn gebruiker op email drukken dan kan ik jou even een mailtje terugsturen en wellicht kan je dan even de sjablonen opsturen zodat ik deze kan bestuderen.

See Yah! :thumb:

 

[Xpander]

Een kleine correctie:
Opsomming2 werkt wel.

We kijken nog eens naar Opsomming1:
----------------------------------------------------------
Sub Opsomming1()
'
' Apply style Opsomming1 Macro
'
Selection.Style = ActiveDocument.Styles("Lijstnummering")

Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=ListGalleries( _
wdOutlineNumberGallery).ListTemplates(6), ContinuePreviousList:=False

Selection.ParagraphFormat.TabStops.ClearAll
Selection.ParagraphFormat.TabStops(CentimetersToPoints(0.7)).Position = _
CentimetersToPoints(0.7)
End Sub
----------------------------------------------------------

De clu ligt hem dus in die ListTemplates.
Die lijken niet te worden opgeslagen in een sjabloon.
De macro werkt wel op een "schone" PC als ik ListTemplate 7 aanroep -> ListTemplates(7). Ik zou het slordig vinden als dit niet anders opgelost zou kunnen worden. Ik moet er nu vannuit gaan dat alle PC's die gebruik gaan maken van de sjablonen "schoon" zijn. Ach.. Word is toch al niet te netjes. :evil:

Thnx iedereen!

Als ik Word had geschreven ( ) zou ik die zooi wel in de sjablonen opslaan en de keuze geven om die ListTemplates een naampje te kunnen geven zodat je in de macro's gewoon die naam zou kunnen aanroepen ipv een cyfer.

Als je alsnog de sjablonen wilt bekijken Joost dan mag dat uiteraard! Ik vind het heel vriendelijk aangeboden maar het is op dit moment waarschijnlijk niet meer nodig. Maar als je nog nieuwsgierig bent dan stuur ik ze nog wel even door.

 

[joost verdaasdo]

Hai,

Fijn dat het is opgelost!
En nee die templates bewaren we voor de eventuele volgende keren..(nog zat dingen om uit te vogelen!)

Je kunt de stijlen wel met hun Naam aanroepen:
Selection.Style = ActiveDocument.Styles("Lijstnummering 2")

Deze stelt het opmaakprofiel Lijstnummering 2 in. (Standaard nummer profiel in Normal.dot)

Dus wellicht kun je daar nog iets mee..

Tot de volgende ronde! :thumb: