VBA Word 无法插入换行符
VBA Word cannot insert Linefeed
我有一个带有数字的字符串，如下所示：
“12345678-123”
我想在破折号“-”之前添加一个换行符（按 [SHIFT] + [ENTER] 得到的东西）。
一直在加一个回车return。这是我的代码：
sSomeString = Replace(sSomeString, "-", vbLf & Chr(30)) 'Chr(11) does not work ether - Chr(30) is the char for the dash, that does not break
ActiveDocument.Tables(iTableIndex).Cell(.Rows.Count, 4).Range.Text = sSomeString
我用谷歌搜索了一下，到目前为止它说到处都可以使用 ether vbLf 或 Chr(11)。有什么想法吗？
// 问题已解决：
我的代码没有 运行 正确，因为我没有使用 Char(30)，所以 Word 创建了一个带有字符“-”的换行符
Word 使用垂直制表符（字符代码 11）进行换行。所以你会想要这样的东西：
sSomeString = Replace(sSomeString, "-", Chr(11) & Chr(30))
我不知道 Microsoft 是否提供了此功能。但是，您始终可以在 Word 中插入换行符 (Shift+Enter)，然后使用 VBA 检查字符代码。
我有一个带有数字的字符串，如下所示：
“12345678-123”
我想在破折号“-”之前添加一个换行符（按 [SHIFT] + [ENTER] 得到的东西）。
一直在加一个回车return。这是我的代码：
sSomeString = Replace(sSomeString, "-", vbLf & Chr(30)) 'Chr(11) does not work ether - Chr(30) is the char for the dash, that does not break
ActiveDocument.Tables(iTableIndex).Cell(.Rows.Count, 4).Range.Text = sSomeString
我用谷歌搜索了一下，到目前为止它说到处都可以使用 ether vbLf 或 Chr(11)。有什么想法吗？
// 问题已解决：
我的代码没有 运行 正确，因为我没有使用 Char(30)，所以 Word 创建了一个带有字符“-”的换行符
Word 使用垂直制表符（字符代码 11）进行换行。所以你会想要这样的东西：
sSomeString = Replace(sSomeString, "-", Chr(11) & Chr(30))
我不知道 Microsoft 是否提供了此功能。但是，您始终可以在 Word 中插入换行符 (Shift+Enter)，然后使用 VBA 检查字符代码。