opmaakprofiel in 2 talen

[Mniek]

Hoe kan ik zorgen dat in 1 macro de opmaakprofiel gevonden wordt..
Nu staat er in mijn macro:
Selection.Style = ActiveDocument.Styles("Kop 1")

Als deze in de UK versie wordt opgevraagd werkt het niet omdat kop1 daar
Header1 wordt genoemd..

 

[Mniek]

Ik heb de volgende code in de macro geplaatst
Sub TestLanguage()
If WdLanguageID.wdDutch Then
MsgBox "Wordversie is Nederlands"
Selection.Style = ActiveDocument.Styles("Kop 1")
Else

Selection.Style = ActiveDocument.Styles("Heading 1")

End If

In de engelse versie loopt het al vast bij de MsgBox. Ik krijg de msg op het
scherm, terwijl het UK versie is...
Dan een foutmelding, kop1 is niet gevonden...

Op het scherm staat dat de

 

[Bob S]

Ik heb de volgende code in de macro geplaatst
Sub TestLanguage()
If WdLanguageID.wdDutch Then
MsgBox "Wordversie is Nederlands"
Selection.Style = ActiveDocument.Styles("Kop 1")
Else

Selection.Style = ActiveDocument.Styles("Heading 1")

End If

In de engelse versie loopt het al vast bij de MsgBox. Ik krijg de msg op het
scherm, terwijl het UK versie is...
Dan een foutmelding, kop1 is niet gevonden...

Op het scherm staat dat de

Try this?

Selection.Style = ActiveDocument.Styles(wdStyleHeading1)

When creating macros that need to work for all languages, you need the
generic names for styles, not the language-specific names. So instead
of Style = "Heading 1" you can use Style = wdStyleHeading1.

The constants are all listed at
http://msdn.microsoft.com/library/d...y/en-us/office97/html/output/F1/D4/S5AD68.asp

If you are dealing with your own custom styles, the names do not
change from place to place; only the names of built-in styles change.

Bob S