VB.NET：在段落结尾之后插入文本

问题描述

我的目标是创建一个Word文档，其中每个字母具有不同的字体。字体将被随机选择。代码似乎可以正常工作，但是唯一的问题是我无法在前一个字符串之后添加字母。它会不断为每个字母写一个新段落。

            wp = wd.Content.Paragraphs.Add
            wp.selection.Font.Name = font
            wp.selection.TypeText = letter

这是结果

解决方法

您可能想在selection上使用Range属性。

尝试更换

wp.Range.Font.Name = font
wp.Range.Text = letter

使用

wp.Selection.font.Name = font
wp.Selection.TypeText letter

Selection将是光标的当前位置。

我不确定您对wp.Range.InsertParagraphAfter()的意图，但我认为不必陷入For Each . . . Next循环中。