在WORD Doc结尾添加屏幕截图

Question

我通过以下链接将屏幕截图添加到单词doc

How to take screenshot of webpage using VBA?

我做了一些更改，将屏幕截图添加到现有文档（在VBA中），打开它，如果没有打开并尝试在屏幕末尾添加屏幕截图。'

但是，当控件位于语句“.Selection.EndKey Unit：= wdStory”时，我正面临着

RUN TIME ERROR'4120'： 坏参数

我不确定是什么导致了这个问题，有人可以帮忙吗

 Set WordObj = GetObject(, "Word.Application")
 Set WordDoc = WordObj.Documents.Open(StrPath & FileToOpen)  


 With WordObj
      .Selection.Goto What:=1, Which:=2, Name:=PageNumber
      .Visible = True
 End With

 Sleep 1000

 With WordObj
    .Selection.EndKey Unit:=wdStory
    .Selection.TypeParagraph
    .Selection.Paste

 End With