如何快速地将每个body都生成一个part

也需要呢，看看

新人，贡献一个自己写的宏，附上部分代码。宏文件已作为附件上传。
Function CutName(Tobecut)
Dim Mlength, LableIndex
Mlength = Len(Tobecut)
If Right(Tobecut, 8) = "PartBody" Then 'Body名以PartBody结尾，说明生成它allpart文件时，它在原Part中时PartBody
    LableIndex = InStrRev(Tobecut, "\", Mlength - 9) '此时，找出倒是第二个\的位置
    If LableIndex = 0 Then
    CutName = Left(Tobecut, Mlength - 9) '如果没有倒数第二个\，第一个\以前都作为文件名
    Else
    CutName = Mid(Tobecut, LableIndex + 1, Mlength - 9 - LableIndex) '用第一个\和第二个\中间的部分作为文件名
    End If
Else
    LableIndex = InStrRev(Tobecut, "\", -1)
    If LableIndex = 0 Then
    CutName = Tobecut
    Else
    CutName = Right(Tobecut, Mlength - LableIndex)
    End If
End If

End Function

收藏了，感谢大家分享

这个是真的好东西呀

还能用宏啊，看来自己还是太小白了，继续学习吧！

感谢分享，好人一生平安！

谢谢分享，下载下来怎么用不了呢

会用了，不好意思，才疏学浅

这个东西不错，正需要

这个命令确实不知道