Outra abordagem:
Pressione Alt F8 Clique em Novo e deve abrir o editor de código, cole este
function stripToInteger(s as string)
nums="0123456789"
stripToInteger=""
for i=1 to len(s)
if instr(1,nums,mid(s,i,1))>0 then
stripToInteger=stripToInteger+mid(s,i,1)
endif
next
end function
O uso é como
=STRIPTOINTEGER("oi123oi12po3i")
que deve exibir 123123 (ele faz no meu LibreOffice ;-p).
Em seguida, use TEXT(reference,"000-0000") ou similar para exibi-lo em um formato legal.