想请教一下大家，同类产品，下面哪个检测报告更好呢

一、操作步骤
1、将需要作为附件的图都整理到一个pdf中.
每页一张图，如果原来的pdf是每页2张或4张图，则可以使用Adobe Acrobat 软件的平铺所有页面打印功能将原pdf转化成每页一张图的新pdf。如下图
设置不同的平铺百分比就可以将图谱2或4等分，因为是等分，所以如果图谱不是居中，那么需要使用裁剪功能将两边的边距裁成相等，这样分开的两张图谱才不会缺一块或多一块。如下图：
2、图谱整理完毕后，在excel中对每一页pdf编写标签，如下图：
第一行为标题，有多少页pdf，就有+1行标注。
3、将pdf另存为jpg格式图片.
有多少页图，就有多少张图片。

用excel中整理好的名称对pdf另存产生的图片重命名。
1） 目的是将图片导入word时，可以将图片名称作为图谱标签放在图谱下方或上方。
2） 图谱名称中不能有“.”和“/”，主要是耐用性名称
3）以excel中的名称对图片重命名，首先将下面的宏命令粘贴进上面的excel中。
Sub 选择重命名文件夹()
Application.ScreenUpdating = False
With Application.FileDialog(msoFileDialogFolderPicker) '运行后出现标准的选择文件夹对话框
If .Show Then myPath = .SelectedItems(1) Else Exit Sub '如选中则返回=-1 / 取消未选则返回=0
End With
If Right(myPath, 1) <> "" Then myPath = myPath & ""
'返回的是选中目标文件夹的绝对路径,但除了本地C盘、D盘会以"C:"形式返回外，其余路径无""需要自己添加
Getfd (myPath)
Application.ScreenUpdating = True
End Sub
Sub Getfd(ByVal pth)
On Error Resume Next
Dim strPath As String
'插入两行
Columns("A:B").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
'设置B行内容
Range("B1") = "目标名称"
Range("B2").Select
ActiveCell.FormulaR1C1 = "=RC[1]&"" ""&RC[2]&"".JPG""" '设置B行内容为目标名称
Range("B2").Select
m = Range("C65536").End(xlUp).Row
Selection.AutoFill Destination:=Range("B2:B" & m) '填充B行
'设置A行内容为所选文件下所有图谱名称
Range("A1") = "原名称"
strPath = pth & "\"
f = Dir(strPath & "*.jpg")
k = 1
Do While f <> ""
k = k + 1
Range("A" & k) = f
f = Dir
Loop
'调整AB列宽
Cells.Select
Cells.EntireColumn.AutoFit '调整AB列宽
'重命名
a = Cells(Cells.Rows.Count, 1).End(xlUp).Row + 3 'A列最后可见单元的行号
For b = 2 To a
c = Range("a" & b).Value
cc = Range("b" & b).Value
Name strPath & c As strPath & cc '重命名
Next
MsgBox ("重命名完成")
End Sub
操作如下：
删除5所框代码，粘入上面的代码，然后再点视图-宏-运行，选择图片所在文件夹。