Search found 681 matches

by flyingDman
04 Jun 2020, 21:56
Forum: Ask For Help
Topic: Excel: how to loop on selected sheets Topic is solved
Replies: 2
Views: 97

Re: Excel: how to loop on selected sheets Topic is solved

Try this:

Code: Select all

xl := ComObjActive("Excel.Application") 
for sheet in xl.activeworkbook.Windows(1).SelectedSheets 
	lst .= sheet.name "`n"
msgbox % clipboard := lst
by flyingDman
04 Jun 2020, 21:41
Forum: Ask For Help
Topic: Adding new rows in excel Topic is solved
Replies: 4
Views: 132

Re: Adding new rows in excel Topic is solved

Offset(0) means no offset so you can just use

Code: Select all

xl.activecell.EntireRow.Insert
by flyingDman
04 Jun 2020, 01:12
Forum: Ask For Help
Topic: If date in Clipboard is older than 3 years, how to know? Topic is solved
Replies: 3
Views: 104

Re: If date in Clipboard is older than 3 years, how to know? Topic is solved

Was that January 6 or June 1 ? (it depends where you are....). Assuming you meant June 1: clipboard := "01.06.2019" var := strsplit(clipboard,".").3 . strsplit(clipboard,".").2 . strsplit(clipboard,".").1 if (a_now - var * 1000000 > 30000000000) msgbox older than 3 years else msgbox newer than 3 yea...
by flyingDman
04 Jun 2020, 00:47
Forum: Ask For Help
Topic: Adding new rows in excel Topic is solved
Replies: 4
Views: 132

Re: Adding new rows in excel Topic is solved

Try something like this:

Code: Select all

xl := ComObjActive("Excel.Application") 
xl.Range("A" xl.Rows.Count).End(-4162).select
while xl.activecell.row > 1
	{	
	if (xl.activecell.text = "TRUE")
		xl.activecell.offset(1).EntireRow.Insert
	xl.activecell.offset(-1).select
	} 
by flyingDman
02 Jun 2020, 20:50
Forum: Ask For Help
Topic: Saving all variables help Topic is solved
Replies: 2
Views: 75

Re: Saving all variables help Topic is solved

Please show what the exact expected output should be. The following will search in column B on the items in the array and return a list containing the cell values in B and the associated PO numbers in column C matching the "needles" in the array: xl := ComObjActive("Excel.Application") myArray := [ ...
by flyingDman
02 Jun 2020, 16:04
Forum: Ask For Help
Topic: Transferring data from excel to Tally Topic is solved
Replies: 5
Views: 138

Re: Transferring data from excel to Tally Topic is solved

If ComObjActive("Excel.Application") throws an error when Excel is running it might because Excel is not properly registered.
by flyingDman
31 May 2020, 12:06
Forum: Ask For Help
Topic: Is there a script that would paste formatted/clickable list of URL links into MS Word?
Replies: 7
Views: 204

Re: Is there a script that would paste formatted/clickable list of URL links into MS Word?

or: var = ( test https://www.autohotkey.com/boards/viewtopic.php?f=76&t=76287 test2 https://www.google.com/ test 3 https://www.bing.com/ ) oWord := ComObjActive("Word.Application") for x,y in strsplit(var,"`n","`r") { for a,b in strsplit(y," ") If InStr(b, "//") oWord.ActiveDocument.Hyperlinks.Add(o...
by flyingDman
30 May 2020, 13:24
Forum: Ask For Help
Topic: Copy alternating rows from Excel to web form
Replies: 3
Views: 129

Re: Copy alternating rows from Excel to web form

The following will get the O and R values in pairs. You can then use these to "send" to your application. Xl := ComObjActive("Excel.Application") For cell In xl.ActiveSheet.range("o:o").Cells if cell.value msgbox % cell.value "`t" cell.offset(0,3).value return This loops through the values in column...
by flyingDman
27 May 2020, 13:26
Forum: Ask For Help
Topic: Does Edit box can be append text?
Replies: 12
Views: 394

Re: Does Edit box can be append text?

I think my test more accurately simulate the process of manually adding by clicking the button. I noticed the difference in speed when i was clicking myself. It felt sluggish. But to make it an apple to apple comparison: gui, add, edit, w200 h200 vtxt, gui, add, button, y+5 gadd, add some more gui, ...
by flyingDman
27 May 2020, 11:47
Forum: Ask For Help
Topic: Does Edit box can be append text?
Replies: 12
Views: 394

Re: Does Edit box can be append text?

Add: #\:: a := A_TickCount loop,100 ControlClick, Button1, A,,,1 MsgBox, % A_TickCount - a return to both scripts. teadrinker 's version will take about 12.5 seconds to complete adding 100 small strings of text. My simple script does it in 3.125 seconds. Bral , the 0.0001 second flash (btw it does n...
by flyingDman
27 May 2020, 10:15
Forum: Ask For Help
Topic: Does Edit box can be append text?
Replies: 12
Views: 394

Re: Does Edit box can be append text?

try this:

Code: Select all

var := "some text"

gui, add, edit, x0 y0 w200 h200 vtxt, % var
gui, add, button, x0 y+5 gadd, add some more
gui, show
return

add:
gui, submit, nohide
txt .= " and some more"
guicontrol,, txt, %txt% 
guicontrol,focus,txt
send, ^{end}
return
by flyingDman
26 May 2020, 10:11
Forum: Ask For Help
Topic: Are these if statements correct? (SIMPLE) Topic is solved
Replies: 3
Views: 110

Re: Are these if statements correct? (SIMPLE) Topic is solved

Tell us what you want to achieve. Right now it is a toggle switch pressing ^p toggles the message between one and two.
by flyingDman
25 May 2020, 14:22
Forum: Ask For Help
Topic: How to automatically output timestamps and visual cues when hotkey is triggered?
Replies: 10
Views: 288

Re: How to automatically output timestamps and visual cues when hotkey is triggered?

1) if the image gui is too slow replace it with a msgbox. I have an 5 year old laptop and it's fine. Don't forget that it needs to save the screenshot before the gui is triggered. 2) there is a typo line 25 (also do not use the same hotkey). Works fine here. 3) you can either way. With ComObjActive ...
by flyingDman
25 May 2020, 00:45
Forum: Ask For Help
Topic: Enter source of text as footnote in Word
Replies: 5
Views: 163

Re: Enter source of text as footnote in Word

As OneNote accepts both the clips from FF and Chrome (i.e. in both cases it also inserts the URL), we know that the Chrome clip contains that information. Why Lexicos' script only detects the clips from IE and FF (and possibly other non Chromium browsers), I do not know. Let's see if someone else kn...
by flyingDman
24 May 2020, 16:00
Forum: Ask For Help
Topic: Enter source of text as footnote in Word
Replies: 5
Views: 163

Re: Enter source of text as footnote in Word

I wrote that it works also in Firefox. I meant to say that it works in FF. I subsequently tested it in IE, Chrome, and Edge. And It does not seem to work in these last 2. So, only in FF and IE.
by flyingDman
24 May 2020, 14:36
Forum: Ask For Help
Topic: Enter source of text as footnote in Word
Replies: 5
Views: 163

Re: Enter source of text as footnote in Word

Try this: (also works in FF and presumably other browsers) ^+v:: ; ctrl-shift v oWord := ComObjActive("Word.Application") oWord.selection.paste binClipData := ClipboardAll Bin2Hex(hexClipData, binClipData) ; Convert raw data to a string of HEX if (SubStr(hexClipData, 1, 8) <> "09C00000") ; Determine...
by flyingDman
22 May 2020, 11:05
Forum: Ask For Help
Topic: Is there a script that would paste formatted/clickable list of URL links into MS Word?
Replies: 7
Views: 204

Re: Is there a script that would paste formatted/clickable list of URL links into MS Word?

Try this: var = ( https://www.autohotkey.com/boards/viewtopic.php?f=76&t=76287 https://www.google.com/ https://www.bing.com/ ) oWord := ComObjActive("Word.Application") for x,y in strsplit(var,"`n","`r") { oWord.ActiveDocument.Hyperlinks.Add(oWord.Selection.Range, y, , , y) oWord.Selection.TypeParag...
by flyingDman
22 May 2020, 10:17
Forum: Ask For Help
Topic: How to automatically output timestamps and visual cues when hotkey is triggered?
Replies: 10
Views: 288

Re: How to automatically output timestamps and visual cues when hotkey is triggered?

The screenshots get added to the active document, not to all open documents. You can easily find out what the currently active document is and make a specific other one active instead. Say I have several spreadsheets open; the following creates a list of the currently open files, then shows which on...

Go to advanced search