VB.NET: 在段落结尾处插入文字
VB.NET: Inserting text right after the end of the paragraph
我的目标是创建一个 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 循环。
我的目标是创建一个 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 循环。