VBA word将段落的第一句话提取到Excel

我有一个问题，我的VBA字代码提取每个段落的第一句话，其中有超过200个字符的Excel。我的问题是代码只在我的两台计算机中的一台上工作，即使它们都有相同的Office版本。知道为什么吗？你知道如何用另一个代码得到完全相同的结果吗？谢谢

Sub aHeadlines()
On Error Resume Next
'Word objects

Dim p As Object
Dim s As String

Dim xl
Dim wb, ws, xlr
Set xl = CreateObject("Excel.Application")
xl.Visible = True
Set wb = xl.Workbooks.Add
Set ws = wb.Worksheets(1)
i = 1

For Each p In ActiveDocument.Paragraphs
If Len(p) > 200 Then
Set xlr = ws.Range("a" & i)

  p.Range.Sentences(1).copy
  
  xlr.PasteSpecial 3
  
 i = i + 1

End If
Next

End Sub

---

第一步，在错误恢复时注释掉

，然后报告哪一行抛出错误，以及错误消息。感谢您的快速回答！错误消息是“PasteSpecial method of range class failed”，行xlr.PasteSpecial 3抛出错误。您需要格式化的句子，还是只需要原始文本？只需要原始文本就可以了！
xlr.Value=p.Range.句子（1）文本是否有效？（不是MS Word专家，所以可能不是）。