复制/粘贴每一段的第一句话

Question

作为一个非程序员，以下是我对如何复制/粘贴每一段的第一句话的一些想法，非VBA：

模糊终结点作为字符串

1. 终点点=“或者“？”或者“！”
2. 遍历文本，直到找到终点。
3. 选择该终结点之前的所有内容。
4. 复制选择
5. 将复制的文本插入新工作表
6. 运行文本，直到您找到一个段落中断或标签行。
7. 重复步骤2-6，直到文本结束。

我能用VBA做这个吗？我怎么开始呢？

Answer 1

下面是从文档中的每个段落中提取第一个语句的示例。这将是在Word应用程序中编写并调用的代码。

Sub test()
Dim doc As Document
Dim p As Paragraph
Dim s As String

Set doc = ActiveDocument

For Each p In doc.Paragraphs
    Debug.Print p.Range.Sentences(1)

Next

End Sub

在Excel中，一个简单的例程，将第一句放在active Excel工作簿中的新工作表中：

Sub GetSentences()
'Word objects
Dim wdApp as Object
Dim doc as Object
Dim p as Object
Dim s as String

Dim ws as Worksheet

Set wdApp = CreateObject("Word.Application")
Set doc = wdApp.Documents.Open("c:\your filename.docx")

For each p in doc.Paragraphs
    Set ws = Worksheets.Add
    ws.Range("A1").Value = p.Range.Sentences(1)
Next

End Sub