VBA Selection.InsertFile 在末尾另外添加 NewLine

Question

我正在尝试使用以下代码导入一些Word文档作为页脚。不幸的是，selection.insertfile 函数会在页脚末尾另外插入一个新行。可以去掉吗？我尝试了很多事情，但没有结果。

Public Sub AutoOpen()

   'Fußzeile aktualisieren
    Call UpdateFooter
    
End Sub

'Fußzeile für alle Seiten editieren
Sub UpdateFooter()

    Application.ScreenUpdating = False
    
    Dim oDoc As Word.Document, oSec As Word.section, rng As Word.Range
    Set oDoc = ActiveDocument

    For Each oSec In oDoc.Sections
        Set rng = oSec.Footers(Word.WdHeaderFooterIndex.wdHeaderFooterFirstPage).Range
        AddFooterToRange rng
        'oSec.Footers(Word.WdHeaderFooterIndex.wdHeaderFooterFirstPage).Range.Font.Size = 5
        
        Set rng = oSec.Footers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary).Range
        AddFooterToRange rng
        'oSec.Footers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary).Range.Font.Size = 5
        
        Set rng = oSec.Footers(Word.WdHeaderFooterIndex.wdHeaderFooterEvenPages).Range
        AddFooterToRange rng
        'oSec.Footers(Word.WdHeaderFooterIndex.wdHeaderFooterEvenPages).Range.Font.Size = 5
        
    Next oSec
    
    Application.ScreenUpdating = True
    
End Sub

'Fußzeilendatei einfügen
Private Sub AddFooterToRange(rng As Word.Range)
    With rng
         .InsertFile "...fusszeile.docx"
    End With
End Sub

提前致谢。

Answer 1

您只需删除页脚中的最后一段即可。

Private Sub AddFooterToRange(rng As Word.Range)
    With rng
         .InsertFile "...fusszeile.docx"
         .Paragraphs.Last.Range.Delete
    End With
End Sub