ativação da regra ilógica

[tonygancio]

Olá a todos, eu precisaria de uma dica para criar uma combinação chave para ativar uma regra ilógica.
Eu gostaria de fazer uma regra por exemplo ctrl+p; esta regra tem a tarefa de iniciar outra regra e, em seguida, um módulo.
com este automatismo, ou seja, pressionando ctrl+p Eu abro uma máscara para inserir iproperty + outras propriedades personalizadas.
Muito obrigado!
Não.

 

[Catafratto]

http://www.cadlinecommunity.co.uk/h...09-inventor-run-ilogic-rules-from-your-ribbon

 

[Catafratto]

conectar sua combinação de teclas ao botão de macro vba dx na fita > personalizar comandos de usuário

 

[tonygancio]

Dá-me uma mensagem de erro, preciso substituir algo na lista aleatória?

 

[Catafratto]

depende da mensagem de erro. .

 

[tonygancio]

depende da mensagem de erro. .

 

[Catafratto]

público sub internal_ilogic()
De http://www.cadlinecommunity.co.uk/hc/en-us/articles/115000859309
dim addin como applicationaddin
dim addins como applicationaddins

set addins = thisapplication. Aplicaçãoaddins
para cada addin em addins
se instr(addin.displayname, "ilogic") > 0 então
addin.activar
dim ilogicauto como objeto
set ilogicauto = addin.automação
saída para
terminar se
Próximo
debug.print addin.displayname


dim externalrule as strings
dim internalrule as strings

externalrule = "3d pdf"

internalrule = "regola0"

dim odoc como documento

set odoc = thisapplication.activedocument
se odoc não é nada então
msgbox "documento de inventário perdido"
saída sub
terminar se

ilogicauto.runrule odoc, internalrule 'para a regra interna
«ilogicauto.runexternalrule odoc, externalrule» (em inglês).

end sub

houve um erro de sintaxe, resolvido (linhas vermelhas)

em linhas azuis colocar o nome da sua regra

 

[Catafratto]

cores desapareceram, mas acho que é claro o mesmo onde colocar nomes de regras

 

[tonygancio]

houve um erro de sintaxe, resolvido (linhas vermelhas)

em linhas azuis colocar o nome da sua regra[/QUOTE]Olá, em primeiro lugar obrigado pela ajuda, mas ainda não funciona... não há linhas azuis e não é claro para mim substituir o nome da regra. .
Se eu te dissesse que a regra é chamada start e eu gostaria de ativá-la pressionando ctrl+d você poderia me configurar?
Muito obrigado!!
Não.

 

[Catafratto]

menos ruim foi apenas um straight

público sub internal_ilogic()
De http://www.cadlinecommunity.co.uk/hc/en-us/articles/115000859309
dim addin como applicationaddin
dim addins como applicationaddins
set addins = thisapplication. Aplicaçãoaddins
para cada addin em addins
se instr(addin.displayname, "ilogic") > 0 então
addin.activar
dim ilogicauto como objeto
set ilogicauto = addin.automação
saída para
terminar se
Próximo
debug.print addin.displayname

'dim externalrule as strings
dim internalrule as strings

"Externalrule = "3d pdf"

' ------ guarda qui! ------
internalrule = "start"


dim odoc como documento
set odoc = thisapplication.activedocument
se odoc não é nada então
msgbox "documento de inventário perdido"
saída sub
terminar se

ilogicauto.runrule odoc, internalrule 'para a regra interna

«ilogicauto.runexternalrule odoc, externalrule» (em inglês).

end sub

 

[Catafratto]

para o ctrl-d você tem que arranjar, se você ler mais alto eu já escrevi como fazer.

 

[Adahm]

menos ruim foi apenas um straight

público sub internal_ilogic()
De http://www.cadlinecommunity.co.uk/hc/en-us/articles/115000859309
dim addin como applicationaddin
dim addins como applicationaddins
set addins = thisapplication. Aplicaçãoaddins
para cada addin em addins
se instr(addin.displayname, "ilogic") > 0 então
addin.activar
dim ilogicauto como objeto
set ilogicauto = addin.automação
saída para
terminar se
Próximo
debug.print addin.displayname

'dim externalrule as strings
dim internalrule as strings

"Externalrule = "3d pdf"

' ------ guarda qui! ------
internalrule = "start"


dim odoc como documento
set odoc = thisapplication.activedocument
se odoc não é nada então
msgbox "documento de inventário perdido"
saída sub
terminar se

ilogicauto.runrule odoc, internalrule 'para a regra interna

«ilogicauto.runexternalrule odoc, externalrule» (em inglês).

end sub

Em suma, cada vez que preciso de soluções acho que eles postados por você: obrigado!