请问如下vb代码转换为delphi应该是什么????

[xhping1065]

下例将活动文档脚注部分中的文本复制到一个新文档。

If ActiveDocument.Footnotes.Count >= 1 Then
ActiveDocument.StoryRanges(wdFootnotesStory).Copy
Documents.Add.Content.Paste
End If

[僵哥]

If ActiveDocument.Footnotes.Count >= 1 Then begin
ActiveDocument.StoryRanges(2(*wdFootnotesStory*)).Copy;
Documents.Add.Content.Paste;
End;

[僵哥]

If ActiveDocument.Footnotes.Count >= 1 Then begin 
    ActiveDocument.StoryRanges(2(*wdFootnotesStory*)).Copy; 
    with Documents.Add do
      Content.Paste; 
End;

[xhping1065]

delphi中的StoryRanges函数是不是没有参数啊，是不是我引用的单元少了呢？？？