randallc

Hi, It doesn't show in the code; but does in the true code (copy this into your script and run it) Best, Randall

Hi, Yes, it is possible! See the date time link in my signature, and Date Time Differences Complex, but use "yyyyMMddhhnnsszzz" format and feed it in to the modified macro. I can help more if needed when time.... Best, Randall

Here we go, update just for Fun! Randall Additionally, now options for; 6. Change Font using Windows Font Selector; to unusual or decorative fonts, Bold italic as well etc. 7. Or Just change font size using updown box. 8. Either way, overall GUI adjusts size to fit the new sizes. 9. Default is selected if you hit enter (so far, Default must be first selection, or "A") 10. Option to left click select, then hit OK button. 11. (Improved interaction with colour changer; can select buttons on either GUI will remain active, though you must exit in order) Best, Randall GUICtrlCreateListViewItem.zip

Hi, Yes, sorry I messed it up. You should not have to use anymore "if"s, though. I have trouble understanding your date tabbing setup; i see now you are in "date" and "month" dropdon. up/down" lists? Calculate just %N1% as the number of days ahead, then use that in the date formula to retrieve the proper month (%N2%);and day; redefine %N1%... OK? Randall (Not sure about Sat and Sun?)

Hi John, Welcome, and good luck with ME3! If you are only looking at Excluding weekends, (can't pick public holidays!), then only Mondays as today will not be affected; so add 6,except if today is a Monday (do you need to set this on a Sun or sat as well? (2 less); <DT:dT:01:3:{F00006}{P00000}{P00000}{P00000}><TMVAR2:05:01:01:000:000:><DT:dddT:01:3:{F00000}{P00000}{P00000}{P00000}><TBOX4:T:1:CenterCenter000278000200:000:Date = %N1% days ahead T1-%T1%><IFVAR2:1:01:1:Mon><OR><IFVAR2:1:01:1:Sun><OR><IFVAR2:1:01:1:Sat><NMVAR:02:01:1:0000001:2:0000002><ENDIF><REP3:05:000001:000001:0001:0:01:><TEXTTYPE:<DOWN ARROW>><ENDREP><TBOX4:T:1:CenterCenter000278000200:000:Date = %N1% days ahead> Best, Randall

Hi, Tab to, or otherwise select your insertion field; then use command "text type" %N1%. Other options , but all similar Does this help? Randall

Glad to hear it! Here is first attempt at green; I will try to make it more flexible later Corrections also; 1. Resizes list (and box) depending on number of items 2. Fixed comment box to check if there are multiple paragraphs. 3. Resizes comment box (and box) if extra paragraphs 4. Moved right and high; I can change it back to centre if you want! 5. NUmber of items now the same as Macro Express; 34 or 36 , I think. Best, Randall (I hope no new glitches by changing!) EDIT April 25th (SEE NEXT POST FOR UPDATED GUI.EXE; au3 won't work; MacroExp file unchanged) Here we go, update just for Fun! Randall Additionally, now options for; 6. Change Font using Windows Font Selector; to unusual or decorative fonts, Bold italic as well etc. 7. Or Just change font size using updown box. 8. Either way, overall GUI adjusts size to fit the new sizes. 9. Default is selected if you hit enter (so far, Default must be first selection, or "A") 10. Option to left click select, then hit OK button. 11. (Improved interaction with colour changer; can select buttons on either GUI will remain active, though you must exit in order) Best, Randall AU3GREEN_FIX1.zip

Hi, I have not organised my macros adequately by context to even attempt floating toolbars yet! - Sounds like a better idea! I have done this for Office programs; Here is a macro for Word03; (and 2 subs; one just checks that the correct Macro Library is loaded, one a pause 2 secs)). I have added them manually to the toolbar, (I have not automated adding them though it may be possible). You would just add the 3rd quoted macro to the toolbar, the first 2 subs just to the macrolist (the first checks the registry key for currently running library name) by "create" etc(my subs are called by a number of macros). (Obviously use your own library file and macro names as appropriate) Randall

Hi, Xcore, I have these troubles all the time! Usually just a timing issue; when I'm away, there may be a timing difference from when on the keyboard all the time, or some other window taking focus - usually soluble if I look at my script and control the timing/ window focus / control focus more precisely. I would need to see your scripts. Best, randall

SORRY! CORRECTED mxe file below Randall (and a 2nd time; for "\\") AU3MultipleChoiceRUNMACRO.mxe

Hi, Bernd, Here is my attempt at your single click multiple choice input! If you have "AutoIT" installed, you don't need the second "exe" file In either case, you need to import the mxe file into your library, assign a key, and choose a macro to alter. You then Highlight ("Mark" as you say), the Multi-choice dialogue already in your macro and run this macro by your key shortcut. It seems to be best then to "terminate" Macro Express" (not always necessary?) before running your macro; Then your macro should bring up the different input box. I have asked Joe to check it in English; we'll be very lucky if it works on German WinXP, though I've generalised with the directories; I'm not sure about (one only) registry setting? (and "c:\programme\"?) I'll be interested to hear; best, Randall PS maximum here 10 items. No keyboard input, no default or enter. "Cancel" is returned, and "Value" or "Text" as specified in your original ME3 Dialog. Title and Comment also. SORRY! CORRECTED mxe file below Randall DialogRightClickAU3.zip

Hi, David, It looks great,; I will be interested to try it. Thanks, Randall

Options/ Pref/ Startup from the menu? (deselect start Editor) Is that what you mean? Randall

Hi Lon, I think my macro already does all that; but the part which gets the folder name is; into %T97%You could use that in the other? Best, Randall

btw, Found this; Digital picture re-namer I have not tried it (found by mistake on searching forum); how relevant is it for you? Randall

Hi again, Here is a "nicer" FilePicker using AutoIT3 ** Simply run the Macro Express file*** [Required file if you wish to use the Compiled version (fastest) uses the ".exe" as an extra file (available here inside the zip; put in macro express installation directory).] Run the "mxe" part as stand-alone, or migrate it into your library; again, result of multiple fie selection is in a string result (comma-delimited in registry entry, or %T22%.) (It will still run the old HTA Filepicker (in 2 line RunmacroInVariableScript) without AutoIT or the "exe" being available) You do not need the "exe" if you have AutoIT3 installed; this program will generate the script and run it, but take a little longer (perhaps?)) Best, Randall FilePickerAU3.zip

Hi, I'm no programmer either! Perhaps someonre her knows how, but I have seen windows like this before that have obnly one control (the frame) and no tabs etc. Best, Randall

Hi, Lon, I have a file on the forum which sorts a directory by creation date ready to delete. List directory by date I have modified it a little, to show a text file of "how it would rename (the "rename" option is crossed out, but obviously can be edited to start working!It shows a number of options for your file name as well ; including just a number (most recent first) after directory name included, or full date and time of creation (if you wish) or..... change it to include the original file name or nmumber, or whatever; or get rid of the sort. I hope this is a start. (Attached below) Best, Randall PS check it on a small directory first; don't use "recursion" when you do activate rename! ListDirectorySorted_maybeRenamed.mxe

does it work if you use "capture control"? I don't know! -interested Randall PS - (my!) rubbish - I can't see how you can select a control that doesn't exist; perhaps you can write the control into their script! R

excel is painful, but here goes! - it will sometimes need to minimise Excel and restore before pasting! Let me know if probs!Randall ExcelVBSblue.mxe

hi, Rob, Here's a playable macro you can import which writes its own "vbscript" to do your job in word03; (import to your library file?" <REM2:paste clipboard to Word as Blue text><REM2:path Registry Name as env var; %Reg%><TVAR2:01:01:HKEY_CURRENT_USER\Software\Professional Grade Macros\PGM Functions\Swap\><TMVAR2:19:01:00:000:000:Reg><REM2:Set Colour to BLUE><TVAR2:01:01:&HFF0000><REGWSTR:1:%Reg%FontColour><REM2:Set "ClipBoard" registry entry to clipboard contents><TVAR2:01:03:><REGWSTR:1:%Reg%Clipboard><REM2:Get the ME3 folder name.><VSETMISC:T4:Installation Path><REM2:Generate the VBS script. NOTE: To view this script copy it to your clipboard and paste it><TVAR2:98:01:%T4%\WordPaste.vbs><IFOTH:09:2:%T98%><BEGCLIP><TEXTTYPE:Set WshShell = WScript.CreateObject("WScript.Shell") Dim FontColour, RegDir : RegDir ="HKCU\Software\Professional Grade Macros\PGM Functions\Swap\" FontColour=WshShell.RegRead(RegDir& "FontColour") ClipBoard = WshShell.RegRead(RegDir& "ClipBoard") Set objWord = GetObject(, "Word.Application") objWord.Selection.Font.Color = FontColour objWord.Selection.TypeText(ClipBoard)><ENDCLIP><TVAR2:01:03:><ENDIF><IFOTH:01:2:%T98%><REM2:Launch the VBS script and wait until it is done. Set the Delay on the Advanced tab to zero.><LAUNCHDEL2:0:00%T98%><ELSE><REM2:Save the VBS script to the temp folder.><TMVAR2:17:01:00:000:000:%T98%F><WFREADY:000000:000005:000000%T98%>LAUNCHDEL2:0:00%T98%><ENDIF><MRETURN> Best, Randall PS - The "Wait" file ready corrected; re-loaded (though would work 2nd time anyway?) wordVBSblue.mxe

Hi, Here's another option? Put 'block of text" in T2; Search for any digit If found, check if the next 9 digits make a number Display it (or change this to save it somewhere?) Keep checking till end of block of text <REM2:Set a string containing any digit><TVAR2:01:01:0987654321><REM2:Set a string T2 containing block of text><TVAR2:02:01:987654321 abcdefh rt rth t rth rthrth rwth rtth rwth rth rtht rt 999999999wtryh wy try rty rwy rtj rwthwrhwrh rwth rwth rwth rt hr><IVAR2:02:12:2><IVAR2:01:01:0><REM2:Search for any digit><REP3:08:000001:000002:0001:1:01:N2><NMVAR:08:01:0:0000001:0:0000000><TMVAR2:10:03:02:N01:001:><IFVAR2:4:01:7:T3T><REM2:Check if it is the first of 9><TMVAR2:10:04:02:N01:009:><TMVAR2:05:04:03:000:000:><IFVAR2:2:03:5:100000000><TBOX4:T:1:CenterCenter000278000200:000:found one, N3= %N3%, atN1=%N1%><NMVAR:01:01:1:0000001:2:0000009><ENDIF><ENDIF><ENDREP> Randall

Hi Woops, Sorry; there is a line that shouldn't be there, and you have not understood me at all! ("copy T8 to T1" - just delete that -I'm not sure how I put that in!) Now I am confused!; that made no difference! Does your clipboard actually contain "BN1" after your macro? - ie Is your "select all" working? - It still works for me using any screen text with "BN1" contained Randall

<TVAR2:01:03:><REM2:We will need CR/LF and TAB characters for this example.><IVAR2:03:13:1:BN1><TMVAR2:10:02:01:001:N03:><ASCIIC:5:1:10><ASCIIC:3:1:13><TMVAR2:08:03:05:000:000:><ASCIIC:4:1:9><TMVAR2:09:09:03:000:000:><REM2:Get the number of elements in the string by counting the delimiters.><TMVAR2:09:01:08:000:000:><IVAR2:02:01:0><REP3:08:000001:000002:0001:0:01:0><IVAR2:01:13:2:%T9%><IFVAR2:2:01:4:0><NMVAR:08:02:0:0000001:0:0000000><TMVAR2:21:02:00:000:000:%T9%><ENDIF><ENDREP><REM2:Number of paras to get to "BN1" should be %N2%><TBOX4:T:1:CenterCenter000278000200:000:Number of paras to get to "BN1" should be %N2%N2=%N2%> Actually, it looks to me as though there are paragraph markers; you may only need to "repeat N2<Arrowdown> end" for number of apra markers as in this modified scrip? - else go back to counting tabs but ? take off para numbers; you will need to decide if the paras interfere with the number of tabs you need enter? If you can just go to the correct line, this will save time even if you then tab through the fields on that line; else if the BN1 may be over on the right of the line, it may always be a certain number of tabs over? else you can count them too, but extra work! What do you think? Randall

hi, cyberchief; Again I would suggest you could email the clipboard contents, control content variable or whatever form you have it, as a a text file to me (as an offer) or someone (if you prefer), and I think I could generate this part of your macro by counting tabs (, if not directly replacing). The macro could find the text each time, and count the tabs each time for you. best, Randall