返回系统的国家/地区设定。WdCountry，只读。
| WdCountry 可以是下列 WdCountry 常量之一： |
| 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.Country
expression 必需。该表达式返回“应用于”列表中的一个对象。
本示例实现的功能是：如果 Country 属性返回 wdUS，则将上边距的数值从磅转换为英寸。
Dim sngMargin As Single
If System.Country = wdUS Then
sngMargin = ActiveDocument.PageSetup.TopMargin
MsgBox "Top margin is " & PointsToInches(sngMargin)
End If