Deselecte dokumenter

Edit->Deselect All

så vidt jeg husker...

Det var nu mere i script henseende jeg tænke på, altså hvordan jeg i script fjerner fluebenet (eftersom det ikke forsvinder som normalt)

Der findes ingen metode i script, der virker lige som @Command([EditDeselectAll]).
Samtidig lyder det som om du kalder dit script i en 'click' event på en actionbutton, hvilket giver dig problemet. Hvis du udfører dit script i en agent vil du automatisk få deselected alt når du accesser UnprocessedDocuments. Løsningen er, at oprette en agent der udfører hvad knappen gjorde før, og ret dernæst din knap til at kalde den agent ((@Command( [ToolsRunMacro] ; agent )).
Har du (mod forventning) stadig problemer med at få af-markeret tilføjer du blot linien @Command([EditDeselectAll]) til din knap.

under declarations placerer du følgende:
Declare Sub keybd_event Lib "user32.dll" (Byval bVk As Integer, Byval bScan As Integer, Byval dwFlags As Integer,Byval dwExtraInfo As Integer)

og i koden sætter du følgende ind:

keybd_event 18,0,0,0 ' Alt key down
keybd_event Asc("E"),0,0,0 ' E key down
keybd_event Asc("E"),0,2,0 ' E key up
keybd_event 18,0,2,0 ' Alt key up
keybd_event Asc("D"),0,0,0 ' D key down
keybd_event Asc("D"),0,2,0 ' D key up

det er en lidt fusket måde at gøre det på, men det virker

>>>jjj, din gamle tastatur fusker ;-)
Det vil da virke, men Edit menuen vil komme til syne i et blink. Reelt svarer din kode jo til at trykke på tasterne. Er du i øvrigt sikker på at det vil virke i et miljø med blandet engelske/danske klienter?

jeg har faktisk ikke lagt mærke til om det virker i blandet engelsk/dansk miljø, men selve blinket ser du ikke.

Jep, jeg prøvede! Men min pc er også "kun" 400 MHz så det går ikk' så hurtigt ;-)

Tja.., scriptet er placeret i en agent, men markering forsvinder ikke - og hvis @Command([EditDeselectAll]) tilføjes til knappen , ryger markeringen før agenten er færdig.
Hvis man derimod bruger "Declare Sub keybd_event Lib "user32.dll" (Byval bVk As Integer, Byval bScan As Integer, Byval dwFlags As Integer,Byval dwExtraInfo As Integer)" og
"keybd_event 18,0,0,0 ' Alt key down
keybd_event 18,0,2,0 ' Alt key up "
Så køre koden og flueben forsvinder.

Takker Chr.

Hvis en @Command() afvikles "for tidligt" kan den sættes til afvikling sidst ved at ændre den til @PostedCommand().