@TOC假定第三行和第一行是需要存档的标题,首先把第三行的文字和第一行的合并
ActiveDocument.Bookmarks("\page").Range.Paragraphs.Item(4).Range.Select
Selection.HomeKey
Selection.EndKey unit:=wdLine, Extend:=wdExtend
Selection.Cut
'移动光标到第1行、最后一个字符,无格式粘贴
Selection.HomeKey unit:=wdStory
Selection