㈠ 在Excel中怎样用VBA批量统计PDF页数,大神们,帮帮忙,万分感谢。
试试下面的代码,在网上找的:
Subpdfpage()
DimAcroAppAsAcrobat.CAcroApp
DimnumPagesAsInteger
DimPD1AsAcrobat.CAcroPDDoc
SetAcroApp=CreateObject("AcroExch.App")
SetPD1=CreateObject("AcroExch.PDDoc")
DimmydialogAsFileDialog
DimiAsInteger,sFileAsString
Setmydialog=Application.FileDialog(msoFileDialogFilePicker)
Withmydialog
.Filters.Clear'清除所有文件筛选器中的项目
.Filters.Add"所有PDF文件","*.pdf",1'增加筛选器的项目为所有pdf文件
.AllowMultiSelect=True'允许多项选择
.Show
If.SelectedItems.Count=0Then
MsgBox"没有选择任何文件!",vbExclamation+vbOKOnly,"提示"
ExitSub
EndIf
Fori=1To.SelectedItems.Count
sFile=.SelectedItems(i)
Range("a"&i)=sFile
PD1.Open(sFile)
Range("b"&i)=PD1.GetNumPages()
PD1.Close
Next
MsgBox"文件处理完毕!"&vbCrLf&vbCrLf&"共处理了"&.SelectedItems.Count&"个文件。",vbInformation+vbOKOnly,"提示"
EndWith
AcroApp.Exit
SetAcroApp=Nothing
SetPD1=Nothing
EndSub
㈡ 怎么查看多个PDF文件的页数,不打开pdf文件的情况下,求这样的软件
这个PageAID是基于 Adobe acrobat开发的,批量统计PDF以及office文档页数的,无需打开PDF文件即可获得页数,效率超高,还能把结果输出到Excel中
㈢ 如何一次性统计多个文档的总页数
WinXP系统的,用这个!切换到编辑文件摘要功能卡,添加文件列表,然后单击导出文件详情按钮,如下图所示,选择导出项目为页数。
㈣ 如何批量读取文件(PDF或word)页数并自动显示在文件名称中
可以使用 亿彩文档批量处理大师来实现。
步骤如下:
1.下载大师并安装
㈤ 多个PDF统计页数
这个统计页数很简单的吧,楼主的“多个”应该至少大于10个吧,手动统计是比较费时费力的工作,这个PageAID完美解决页码统计问题
㈥ 如何快速统计许多个pdf文件的页数
无需打开文件,直接统计大量PDF文档的页数,用起来非常方便,还能把统计结果输出
㈦ 急求:多个pdf文件页数统计工具
好东西要收藏啊,着急用的时候着急还找不到
完美实现Office三大格式和PDF的页码统计问题
㈧ PDF文件总页数怎样才能批量的计算啊
可以参考下面方法计算:
1、首先双击打开PDF应用。
㈨ 求个可以统计word、pdf、excel等文件页数的软件或方法
很少有能统计所有格式的,但仅仅是给定格式,比如docx,pdf,xlsx,这三种,是可以用一定的工具或代码实现的。