如何在特定位置的Word文档中添加文本？

Question

如何写入Word文档中的特定位置,例如第5行,第50个字符？我搜索了几个小时,但找不到解决方案.

我在用 Microsoft.Office.Interop.Word

Answer 1

如果您对更简单的句子而不是台词感到满意：

ActiveDocument.Sentences(1).Characters(5).Select
Selection.Collapse
Selection.InsertBefore "added "

VBA中的五个段落和50个空格

Selection.Text = String(5, vbCrLf) 
Selection.Collapse wdCollapseEnd
Selection.Text = String(50, " ")

但是，对于特定位置，我更喜欢一个文本框：

Set sh = doc.Shapes.AddTextbox(1, 10, 344, 575, 80)
sh.Name = "Course1"

具有一些属性：

sh.Fill.Visible = False
sh.Line.Visible = False
sh.TextFrame.MarginLeft = 0#
sh.TextFrame.MarginRight = 0#
sh.TextFrame.MarginTop = 0#
sh.TextFrame.MarginBottom = 0#