VBA，计算任何不同语言的音节

Question

我知道这在网上的不同主题上被广泛讨论。

我是德国人，所以显示的大多数技术都不适合我。

我想使用MS Office自动连字符的构建能力。然后沿（隐藏）软连字符分开并计算元素。

像这样。

Private Function CountSyllables(TxtIn As String) As Long
    ActiveDocument.AutoHyphenation = True
    syllablesArray= Split(ActiveDocument.Content, "^-")
    CountSyllables=UBound(syllablesArray) + 1
End Function

但这不起作用。看起来我正在分裂错误的角色。

有人可以帮忙吗？