Question

我正在使用一个word模板文档，该文档广泛使用表来分隔值。这对我的大多数VBA代码都很有用，因为它可以非常简单地设置我需要编辑的值。但是，标题中有一个位置，其中单个单元格包含三行文本。我需要在这个单元格中设置JUST前两行的值。

问题：如何在给定单元格中设置JUST前两行文本的值？或者，更广泛地说，您可以将Range设置为单元格中的一行吗？

我现在所拥有的，将Range设置为整个单元格并将值设置为“NEW TEXT”：

ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter = True

With ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage)
 .Range.Tables(1).Cell(1, 2).Range.Text = "NEW TEXT"
End With

感谢您提供的任何专业知识。

Answer 1

替换（例如）第二行：

With ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage)
    .Range.Tables(1).Cell(1, 2).Range.Paragraphs(2).Range.Text = "NEW TEXT" & vbLf
End With

将范围设置为单元格中的特定行，Microsoft VBA

1 个答案: