VBA no Coreldraw

[Paulo R.]

Olá, pessoal queria saber qual comando posso usar para obter o caminho do arquivo coreldraw que esta ativo no momento que executo a macro.Tente usar o comando "ThisWorkbook.Path" mas ele não funciona.

[Alyson Ronnan Martins]

Bom dia. 
Tenta usar o código abaixo:

Dim strPath As String
Dim strPathAndName As String
strPath = ActiveDocument.Path 'Obtém o caminho da pasta do documento ativo
strPathAndName = strPath & "\" & ActiveDocument.Name 'Concatena o caminho com o nome do documento
MsgBox strPathAndName 'Mostra o caminho completo do documento em uma caixa de mensagem

 

[Paulo R.]

Olá tentei usar esse código mas retorna um  erro e aponta para quando a variável recebe o caminho.  

OBS: Só encaixei o código na macro para ver se funciona, não integrei ele no meu código.

Coloquei o comado "set" mas o erro deu, mesmo sem ele.

E quando ponho esse trecho de código sozinho ele da esse erro:

Editado Março 10, 2023 por Paulo R.

[Basole]

Não é possivel  "setar" uma string. Remova o "Set"

Não tenho o corel para testar, mas tente referenciar como abaixo:

Document.FilePath

Document.FileName