如何用ＶＢＡ将ＷＯＲＤ里面的重点信息存入于ＥＸＣＥＬ表中

Question

我要将ＷＯＲＤ里面的一些重点信息，像关键字，摘要之类的提取出来，放在指定的ＥＸＣＥＬ表中，什么语句可以实现这样的功能呀

Answer 1

Sub CreateSheet()
Dim objExcel As Object
    ActiveDocument.AutoSummarize Length:=25, Mode:=wdSummaryModeCreateNew 'Length:=25的含义为摘取25%的摘要
    Selection.WholeStory
    Selection.Copy
    Set objExcel = CreateObject("Excel.Sheet")
    objExcel.Application.Visible = True
    objExcel.activesheet.Paste
End Sub

Answer 2

ActiveDocument.AutoSummarize 也就是WORD的自动摘要功能

Answer 3

忘了说了，我上面的代码需要在WORD VBA中运行。在其他环境中需要稍微变一下。

Answer 4

'以下代码是“摘要”关键字后一个段落的复制操作，需要在WORD VBA中运行   
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "摘要"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.MoveRight Unit:=wdCharacter, Count:=2
    Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
    Selection.Copy