清除00参考

Dokument = Trim(Left(sTeilzeichen, 4)) & Space(1) & Format(ESLIB_Val_aus_String(Mid(sTeilzeichen, 5, 6)), "000000") & _
Trim(Mid(sTeilzeichen, 11, 2)) & "_PR"  '"_PRüF"

'Dokumentnamen ohne Revision erstellen
'Beispiel: S123456XA_R01.pdf
Dokument = Trim(Left(sTeilzeichen, 4)) & Format(ESLIB_Val_aus_String(Mid(sTeilzeichen, 5, 6)), "000000") & _
Trim(Mid(sTeilzeichen, 11, 2)) & "_"  '& "_*.*"

'------------------------------------------------------------------------------------------
'Dokumentnamen ohne Revision erstellen
'Beispiel: S123456XA_R01.pdf = S123456XA_*.*
Dokument = Trim(Left(sTeilzeichen, 4)) & _
Format(ESLIB_Val_aus_String(Mid(sTeilzeichen, 5, 6)), "000000") & _
Trim(Mid(sTeilzeichen, 11, 2)) & "_" '& "_*.*"