Returns the country/region designation of the system. Read-only WdCountry.
WdCountry can be one of these WdCountry constants. |
wdArgentina |
wdCanada |
wdChina |
wdFinland |
wdGermany |
wdItaly |
wdKorea |
wdMexico |
wdNorway |
wdSpain |
wdTaiwan |
wdUS |
wdBrazil |
wdChile |
wdDenmark |
wdFrance |
wdIceland |
wdJapan |
wdLatinAmerica |
wdNetherlands |
wdPeru |
wdSweden |
wdUK |
wdVenezuela |
expression.CountryRegion
expression Required. An expression that returns one of the objects in the Applies To list.
Example
If the CountryRegion property returns wdUS, this example converts the top margin value from points to inches.
Dim sngMargin As Single
If System.CountryRegion = wdUS Then
sngMargin = ActiveDocument.PageSetup.TopMargin
MsgBox "Top margin is " & PointsToInches(sngMargin)
End If