将标题从MS Word复制到Excel

时间:2018-01-31 09:23:49

标签: excel vba excel-vba ms-word

我有一个Excel VBA代码,用于复制MS Word文件的内容:

'Open PDF file in MS Word
Set wordApp = CreateObject("Word.Application")
Set wordDoc = wordApp.Documents.Open(PDFfilepath, ConfirmConversions:=False, ReadOnly:=False)
With wordDoc
         Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = convertSheetName
        .Range(.Content.Start, .Content.End).Copy
End With

wordApp.Quit
convertedFile_Wb.Activate
Sheets(convertSheetName).Select
ActiveSheet.Paste
Range("A1").Select
Sheets(convertSheetName).Cells.EntireColumn.AutoFit
Sheets(convertSheetName).Cells.EntireRow.AutoFit

如何复制包括页眉和页脚在内的所有数据,即使它们是否为空白,并将所有数据粘贴到Excel中?

我不知道这是否与Word中的部分有关。

0 个答案:

没有答案