我有一个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中的部分有关。