Se você canalizar $doc.tables(1).Columns(2).cells(2).Range.Text
para clip
e colar em um editor de texto mais revelador (estou usando o Notepad ++), verá que um caractere ascii é capturado e não está esperando.
Vocêpodealteraradeclaraçãode$docnum
porif
quanto no else
.
$docnum = ($doc.tables(1).Columns(2).cells(2).Range.Text) -replace "[\x00-\x1F]+"
Além disso, você deve definir $filename
desta forma. Do jeito que você tem, o sublinhado é tratado como parte do nome da variável.
$filename = "$docnum" + "_" + "$finalintdocnum.pdf"