Question

word vba 困扰我很久了

我有多篇word 标题有些是一行 有些是2行 还有的是三行的 但字体都为3行，我想用vba吧这些标题分别提取到单元格中

Answer 1

既然都困扰你很久的事情，为什么要求别人15分钟内回答呢，看来你给人奖励都不太诚心。
我熟悉Excel VBA，对Word VBA不熟悉，但我相信花些时间能解决这问题，所以先占个位置。
问一下标题是2、3行的，每行都有段落符号吗？

追问

没有 但是字体都是3号 麻烦了

追答

代码如下，详见附件。将附件文件放在需提取标题的文档同一文件夹，打开这个文件即可将本文件夹内所以doc文档的标题（第一段）提取放入同一文件夹ABC.xls文件中。

Private Sub Document_Open()

   Dim k%, n%, Exna$, Wona$, Mn As Paragraph

   Set ex = CreateObject("excel.application")

   Exna = Dir(ThisDocument.Path & "\ABC.xls")

   If Exna = "" Then

      Set exwo = ex.Workbooks.Add

      exwo.SaveAs ThisDocument.Path & "\ABC.XLS"

   Else

      Set exwo = ex.Workbooks.Open(ThisDocument.Path & "\ABC.XLS")

      exwo.sheets(1).Columns("A").clearcontents

   End If

   'ex.Visible = True'显示Excel工作簿

   Application.ScreenUpdating = False '关闭屏幕刷新

   Wona = Dir(ThisDocument.Path & "\*.doc")

   While Wona <> ""

      If Wona <> ThisDocument.Name Then

         Set mt = Documents.Open(ThisDocument.Path & "\" & Wona)

         n = n + 1

         exwo.sheets(1).Cells(n, 1) = mt.Paragraphs(1).Range.Text

         mt.Close False

      End If

      Wona = Dir

   Wend

   exwo.Close True '保存并关闭工作簿文件

   ex.Quit '退出Excel程序

   Application.ScreenUpdating = True '恢复屏幕刷新

End Sub