如何在特定位置的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#

Answer 2

如果每次执行此操作的简单方法是在同一位置插入文本，则创建一个带有书签的.dotx模板文件。确保模板包含在构建

中

Doc = Word.Documents.Add("Directory\Filename")
Doc.Bookmarks.Item("BookmarkName").Range.Text = "Text to be inserted"

Answer 3

Finding a position in a word document to insert a table

您可以在上述位置找到一些有用的信息。