[Resolvido]Erro função Replace

Run-time '438'
Object doesn't support this property or method

Acho que estou a errar na linha de comando para um campo data ao exportar para word.

.ActiveDocument.Bookmarks("NrefData").Select: .Selection.text = Nz(Left(Forms!OficioNovo.Texto614.Replace("/", "-"), 10)) 'N. Referência Data

Estou quase lá mas necessito de ajuda

.ActiveDocument.Bookmarks("NrefData").Select: .Selection.text = Nz(Replace(Forms!OficioNovo.Texto614, "/", "-"))

Com a linha dá este resultado:
08-02-2018 23:08:50

Se colocar

.ActiveDocument.Bookmarks("NrefData").Select: .Selection.text = Nz(Replace(Forms!OficioNovo.Texto614, "/", "-", 10))

Com a linha dá este resultado:
8 23:08:50

Mas o que queria era:
08-02-2018

Se colocar Nz(Replace.Left( dá erro

Olá toyebon,

Altere sua expressão para:

Replace(Nz(Left(Forms!OficioNovo.Texto614, 10)),"/","-")


Att,

Alexandre Fim

É isso mesmo, já tinha tentado mil e uma maneiras, faltava essa, obrigado.