feiyan

回复 30# 77七 我试了下，不成功，还是没有书签，，77 你可以这样测试下看看，用excel 新建表格随便编辑下，另存为PDF 文件，命名1.pdf ， 然后再用excel 编辑下另存为PDF,命名2.pdf， 把这两个合并后，你查看下是否有书签。

77七

回复 31# feiyan



http://bcn.bathome.net/s/tool/index.html?key=pdfunite

pdfunite 1.pdf 2.pdf out.pdfCOPY

试试其它工具吧

feiyan

回复 32# 77七 下载了，不会安装，自己捣鼓了几下，弄不明白，感觉是适合linux 系统吧

Batcher

回复 33# feiyan


32楼代码保存为 test.bat 和待处理的pdf文件放在同一个目录下
下载 pdfunite 之后解压缩，把exe、dll文件和待处理的pdf文件放在同一个目录下
执行 test.bat 脚本

feiyan

回复 34# Batcher 版主，你看合并PDF 文件后，怎么能让合并后的pdf文件带上书签，我试了很多办法都不成功，你有好办法吗？

Batcher

回复 35# feiyan


    请向32楼回复测试结果

feiyan

回复 32# 77七 这个实验下来，还是没有书签

77七

回复 37# feiyan


   你把保留书签失败的文件，和成功的文件，每样传两个到网盘发上来，看看他们有什么区别

feiyan

回复 38# 77七 hi 77，是这样的，我没有找到你说的网盘，没法上传文件，我把这个事情描述下，我使用excel ，随便输入几个数字，另存为PDF 文件，这样创建的几个PDF 文件，使用批处理合并，合并后就是没有书签，我就没有成功的案例来上传。后来，经过我的测试，我需要在合并前，为每一个PDF 文件手动添加书签，这样运行批处理合并后才能保留书签。但是我使用pdf 软件来手动来合并 ，就会自动生成书签。

77七

回复 39# feiyan


   那就手动合并吧。大概理解 :  你说的书签可能和pdf文件的书签，是两回事，只不过你用其它软件，其它软件将它视为书签。

feiyan

回复 40# 77七 我说的书签，指的是pdf 软件上的书签按钮显示的数据，点击书签就可以直接跳转到对应的页面上，书签名称一般和文件名称相同。

feiyan

回复 40# 77七 [img]示意图  [/img]

77七

回复 42# feiyan


   合并前，pdf文件有书签吗？

feiyan

回复 43# 77七 没有，合并前，pdf 文件没有书签

77七

回复 44# feiyan


  批处理调用pdftk 给无书签的pdf文件添加一个 文件名书签

@echo off
rem 批处理保存为utf-8编码格式
chcp 65001 >nul
for /f "delims=" %%i in ('dir /b /a-d *.pdf') do (
        pdftk "%%i" dump_data_utf8 output |find "BookmarkTitle:" 1>nul
        if errorlevel 1 (
                >report.txt (
                        echo BookmarkBegin
                        echo BookmarkTitle: %%~ni
                        echo BookmarkLevel: 1
                        echo BookmarkPageNumber: 1
                )
                pdftk "%%i" update_info_utf8 report.txt output $.pdf
                move $.pdf "%%i"
        )
)
del report.txtCOPY

2024年1月13号更新

@echo off
rem 批处理保存为utf-8编码格式
chcp 65001 >nul
rem 仅给无书签的pdf文件添加文件名作为书签(part) ，所有文件添加（all）
set "c=all"
 
for /f "delims=" %%i in ('dir /b /a-d *.pdf') do (
	pdftk "%%i" dump_data_utf8 output >$
	setlocal
	if /i "%c%" equ "all" (
		call :1 "%%i"
	) else if /i "%c%" equ "part" (
		find "BookmarkTitle:" <$ 1>nul || call :1 "%%i"
	)
	endlocal
)
del $;report.txt 2>nul
pause & exit
 
	:1
	for /f "tokens=1* delims=[]" %%a in ('find /n "NumberOfPages: " ^<$') do (
		set #%%a=1
	)
	(for /f "tokens=1* delims=[]" %%a in ('find /n /v "" ^<$') do (
		echo=%%b
		if defined #%%a (
			echo BookmarkBegin
			echo BookmarkTitle: %~n1
			echo BookmarkLevel: 1
			echo BookmarkPageNumber: 1
		)
	))>report.txt
	pdftk "%~1" update_info_utf8 report.txt output $.pdf
	move $.pdf "%~1"
	exit /bCOPY