在Word中为特定文档临时更改小数和千位分隔符

时间:2018-03-30 16:02:43

标签: vba windows-10 word-vba word-2013

有时候我需要用英文编写发票,点数为十进制,逗号为千位分隔符。与Excel不同,Word本身并不提供更改此选项的选项,它仅依赖于适当的系统范围的Windows设置。

每次我需要用英语写发票时,手动更改和恢复此设置实际上并不是一种选择。我知道在VBA Word - changing decimal separator已经提出了类似的问题,但提供的搜索/替换解决方案并没有真正的解决方案(并且"解决了#34;一个不同的问题)。我不需要在文档中进行任何计算,唯一的问题就是十进制选项卡位置的正确对齐。

我发现可以使用Application.International(wdDecimalSeparator)Application.International(wdThousandsSeparator)来阅读相关属性,例如:

Sub Show_Limiters()
    MsgBox "Decimal: " & Application.International(wdDecimalSeparator) & vbCrLf & _
    "Thousand: " & Application.International(wdThousandsSeparator)
End Sub

但我还没有找到任何提示如何设置/更改这些属性。

在打开现有文档或创建新文档时,是否可以使用VBA宏临时更改这些属性(并在关闭时将其重置为默认值)?如果是这样,怎么样? ;)我很可能在VBA方面过于愚蠢,无法自己解决这个问题。 :(

如果这不可能:有没有办法临时更改系统范围的Windows设置(可能是VBA和VBScript的组合)?

非常感谢任何帮助。是的,我知道我可以使用正确的选项卡而不是小数选项卡,但这只是一个弱的解决方法。

Windows 10 Pro,Office Pro Plus 2013(德语)

0 个答案:

没有答案