A
and
I've recorded a macro (see below) to convert a selection into a table,
but I notice that a localized _table style name_ (the Dutch word
"Tabelraster" in this case) is used.
This may cause problems when the macro is used in another localization
of Word XP (or with the original US version).
How can I avoid the use of localized style names? Are there vbWord
Constants (i.e. numbers, like 1, 2, 3, etcetera) to set the style?
Note: strSegMark, lngCols and lngRows are passed as arguments
======= part of the code ===========
Selection.ConvertToTable Separator:=strSegMark, _
NumColumns:=lngCols, NumRows:=lngRows,
AutoFitBehavior:=wdAutoFitFixed
With Selection.Tables(1)
.Style = "Tabelraster" '???@@@###$$$
.ApplyStyleHeadingRows = False
.ApplyStyleLastRow = False
.ApplyStyleFirstColumn = False
.ApplyStyleLastColumn = False
End With
========= end of snippet ==========
Best regards,
ANDy
***
but I notice that a localized _table style name_ (the Dutch word
"Tabelraster" in this case) is used.
This may cause problems when the macro is used in another localization
of Word XP (or with the original US version).
How can I avoid the use of localized style names? Are there vbWord
Constants (i.e. numbers, like 1, 2, 3, etcetera) to set the style?
Note: strSegMark, lngCols and lngRows are passed as arguments
======= part of the code ===========
Selection.ConvertToTable Separator:=strSegMark, _
NumColumns:=lngCols, NumRows:=lngRows,
AutoFitBehavior:=wdAutoFitFixed
With Selection.Tables(1)
.Style = "Tabelraster" '???@@@###$$$
.ApplyStyleHeadingRows = False
.ApplyStyleLastRow = False
.ApplyStyleFirstColumn = False
.ApplyStyleLastColumn = False
End With
========= end of snippet ==========
Best regards,
ANDy
***