vba - 使用 vba 删除标题上的最后一个段落标记

Question

我想删除标题的最后一行。我目前在标题中有两行：我复制粘贴的第一行和复制粘贴之前的第二行（复制粘贴的起点）。

我尝试过这样的事情：

`Selection.Sections(1).Headers(1).Range.MoveEnd Unit:=wdCharacter, Count:=-1`

`Documents.Open (strFilename)
Selection.Sections(1).Headers(1).Range.Copy
ThisDocument.Activate
Selection.Sections(1).Headers(1).Range.Paste
Documents(strFilename).Close (0)`

期望只有一行，我从另一个文档中复制粘贴的那一行只有一行可以在标题中获得一点空间。

好的，这是一张图片，可以更好地理解我的问题：

希望有帮助！

标签： vbams-wordheader

Answer 1

我不确定我是否理解你的意思，但我认为你正在寻找的是以下内容，试试看

`Selection.Sections(1).Headers(1).Range.MoveEnd Unit:=wdCharacter, Count:=-1`

`Documents.Open (strFilename)
    Dim strText() As String
    Dim MyCell As String

    ThisDocument.Activate
    MyCell = Selection.Sections(1).Headers(1).Range.Text
    strText = Split(MyCell , vbCrLf)
    Selection.Sections(1).Headers(1).Range.Text=strText(0)
    Documents(strFilename).Close (0)


`