Search found 1167 matches

by FanaticGuru
Yesterday, 12:32
Forum: Ask For Help
Topic: copy the selection from webpage and pasting in excel Topic is solved
Replies: 4
Views: 45

Re: copy the selection from webpage and pasting in excel Topic is solved

I need to create 3 shortcut keys for copying the selected text or data from browser and paste it in excel , there are 3 columns in excel , and three shortcut keys , if i press the first shortcut key the selected data should be pasted in the excel 1 column and if i press the 2 shortcut key the text ...
by FanaticGuru
21 Sep 2018, 14:31
Forum: Ask For Help
Topic: PowerPoint COM Add/Remove Slide event
Replies: 3
Views: 52

Re: PowerPoint COM Add/Remove Slide event

pptApp := ComObjActive("PowerPoint.Application") for pptSlide in pptApp.ActivePresentation.Slides { Name := pptSlide.Name try Title := pptSlide.Shapes.Title.TextFrame.TextRange.Text catch Title := "No Title" MsgBox % Name "`n" Title } Here is an example of looping thro...
by FanaticGuru
21 Sep 2018, 13:58
Forum: Ask For Help
Topic: PowerPoint COM Add/Remove Slide event
Replies: 3
Views: 52

Re: PowerPoint COM Add/Remove Slide event

Trying to connect to the application events causes an error: #Persistent pptApplication := ComObjCreate("PowerPoint.Application") ComObjConnect(pptApplication, "_pptEvents") ; Error: 0x80004002 - No such interface supported return _pptEventsPresentationNewSlide(Sld, App) { MsgBo...
by FanaticGuru
18 Sep 2018, 20:19
Forum: Ask For Help
Topic: Open Outlook & Send Email Using COM Topic is solved
Replies: 9
Views: 219

Re: Open Outlook & Send Email Using COM Topic is solved

I'd like to be able to delay closing Outlook to send the email. I've found (once I did figure out how to keep the script running; apologies on wasting your time there) Outlook closes too quickly after the email is composed and alt+s is pressed to send. This results in the email sitting in the Outbo...
by FanaticGuru
17 Sep 2018, 18:20
Forum: Ask For Help
Topic: Open Outlook & Send Email Using COM Topic is solved
Replies: 9
Views: 219

Re: Open Outlook & Send Email Using COM Topic is solved

Can this code always be running? Then trigger creating a new email when a shortcut key is pressed, something like ^+m:: Yes, just pretty much like any other hotkey. +^m:: try outlookApp := ComObjActive("Outlook.Application") catch outlookApp := ComObjCreate("Outlook.Application"...
by FanaticGuru
15 Sep 2018, 15:04
Forum: Ask For Help
Topic: [Gui] How to slice words from a merged string to get colored text output ?
Replies: 4
Views: 97

Re: [Gui] How to slice words from a merged string to get colored text output ?

You might look at just using an ActiveX control that then allows you to use HTML, which gives you much easier control over appearance. Html = ( <font size="3" color="red">This is some red text!</font><br> <font size="2" color="blue">This is some blue text!</fo...
by FanaticGuru
15 Sep 2018, 14:05
Forum: Ask For Help
Topic: [Gui] How to slice words from a merged string to get colored text output ?
Replies: 4
Views: 97

Re: [Gui] How to slice words from a merged string to get colored text output ?

Hello, Here is a gui with 3 layered control text and monospaced terminal font. layer 0 is white layer 1 red layer 2 green How to slice "red words" and "green words" from the white text in order to display a colored output ? :think: layer0:= white text layer1:=["worry",...
by FanaticGuru
14 Sep 2018, 20:57
Forum: Ask For Help
Topic: Seeking Advice on Best Approach for Email Handling with Attachments
Replies: 22
Views: 443

Re: Seeking Advice on Best Approach for Email Handling with Attachments

I'm not finding anything that can be used to markup the text within the body of an email through a COM object via AHK. When I search for 'ahk com object body bold italics' on Google, the results appear to be focused more on dealing with OFT templates than creating the body using a com object. Is it...
by FanaticGuru
14 Sep 2018, 18:28
Forum: Ask For Help
Topic: Copy from excel and paste in Oracle
Replies: 2
Views: 33

Re: Copy from excel and paste in Oracle

Getting the information from Excel is easy. F12:: xlApp := ComObjActive("Excel.Application") for Cell in xlApp.Range("A2:A1000").Cells if Cell.Value2 { ; Do all your clicky, pasting, tabbing stuff in Oracle ; But for now just display the values from Excel MsgBox % Cell.Value2 &qu...
by FanaticGuru
13 Sep 2018, 16:05
Forum: Ask For Help
Topic: Capture SendMail event in Outlook COM
Replies: 11
Views: 83

Re: Capture SendMail event in Outlook COM

#Persistent olMailItem := 0 ol := ComObjCreate("Outlook.Application") newMail := ol.CreateItem(olMailItem) newMail.Subject := "Hello World!" newMail.Display ; you can pass params when creating the object MailEventsObj := new MailItemEvents("samesfordfd") ; you can also...
by FanaticGuru
13 Sep 2018, 13:46
Forum: Ask For Help
Topic: Capture SendMail event in Outlook COM
Replies: 11
Views: 83

Re: Capture SendMail event in Outlook COM

#Persistent olMailItem := 0 ol := ComObjCreate("Outlook.Application") newMail := ol.CreateItem(olMailItem) newMail.Subject := "Hello World!" newMail.Display ; Connect to newMail events ComObjConnect(newMail, new MailItemEvents) return class MailItemEvents { ; MailItem.Send Event...
by FanaticGuru
12 Sep 2018, 18:45
Forum: Ask For Help
Topic: Looking for Lexikos "ExploreObj"
Replies: 3
Views: 83

Re: Looking for Lexikos "ExploreObj"

Looking for Lexikos "ExploreObj" I do not remember writing such a function, and I do not have any file by that name on my computer. Perhaps Joe Glines can help. Here is something simliar that I use: /* ; inspired by Lexikos ExploreObj() PrintArr Prints the layout of an array (in text form...
by FanaticGuru
11 Sep 2018, 19:17
Forum: Ask For Help
Topic: Calling search and replace in MS Words
Replies: 13
Views: 117

Re: Calling search and replace in MS Words

F2:: wdApp := ComObjCreate("Word.Application") wdDoc := wdApp.Documents.Open("c:\Test\One.docx") sFind := "My Name" sReplace := "Fanatic Guru" wdDoc.Content.Find.Execute(sFind,0,0,0,0,0,1,1,0,sReplace,2) wdApp.Selection.WholeStory wdApp.Selection.Copy Clip :=...
by FanaticGuru
11 Sep 2018, 19:04
Forum: Ask For Help
Topic: Calling search and replace in MS Words
Replies: 13
Views: 117

Re: Calling search and replace in MS Words

F2:: wdApp := ComObjCreate("Word.Application") wdDoc := wdApp.Documents.Open("c:\Test\One.docx") sFind := "My Name" sReplace := "Fanatic Guru" wdDoc.Content.Find.Execute(sFind,0,0,0,0,0,1,1,0,sReplace,2) wdApp.Selection.WholeStory wdApp.Selection.Copy ; ; Do ...
by FanaticGuru
11 Sep 2018, 13:04
Forum: Ask For Help
Topic: Calling search and replace in MS Words
Replies: 13
Views: 117

Re: Calling search and replace in MS Words

The last piece of code is almost it. It opens word, but no document opens in the word. I am sure of the name, path and the folder is R/W for sure (full admin right to the script). Are you sure the script is good and does not miss something? Thank you It works perfectly for me. I did do the filename...
by FanaticGuru
11 Sep 2018, 11:24
Forum: Ask For Help
Topic: Calling search and replace in MS Words
Replies: 13
Views: 117

Re: Calling search and replace in MS Words

Anyone can point me to how I can call a search and replace function in MS Word? It simply opens a word document. Then I need to do a search and replace. F2:: wdApp := ComObjCreate("Word.Application") wdApp.Visible := true wdDoc := wdApp.Documents.Open(A_Desktop "\Test\One.docx")...
by FanaticGuru
10 Sep 2018, 19:04
Forum: Ask For Help
Topic: Newbie grappling with COM
Replies: 8
Views: 129

Re: Newbie grappling with COM

I'm writing a script to automate some repetitive admin stuff at work. The first step is printing an email from Outlook to a PDF This code will export the current open email in Outlook to a PDF file: F11:: olApp := ComObjActive("Outlook.Application") olInspector := olApp.ActiveInspector.Wo...
by FanaticGuru
04 Sep 2018, 13:05
Forum: Ask For Help
Topic: New expression format doesn't seem to work
Replies: 6
Views: 83

Re: New expression format doesn't seem to work

How about #if WinActive("ahk_class Notepad") ? Regards Yea, There is a big difference between: if and #if and between ifWinExist and #ifWinExist FG Sorry I'm confused doesn't the hatch make it a hot key/string. I don't want a hotkey. When you use the # it is then a script directiv...
by FanaticGuru
04 Sep 2018, 12:04
Forum: Ask For Help
Topic: ahk: Excel Lastrow
Replies: 4
Views: 77

Re: ahk: Excel Lastrow

Since you are looping anyways there is no real need to know ahead of time how many rows there are. You can just start looping through the cells with a check to stop when you hit a blank cell. This makes the code somewhat simpler. xlApp := ComObjActive("Excel.Application") For Cell in xlApp...
by FanaticGuru
31 Aug 2018, 17:01
Forum: Ask For Help
Topic: How to retrieve values from a table
Replies: 1
Views: 68

Re: How to retrieve values from a table

ValueName001 ValueAge001 ValueHeight001 ValueAge001 ValueName002 ValueAge002 ValueHeight002 ValueAge002 ValueName003 ValueAge003 ValueHeight003 ValueAge003 ValueName004 ValueAge004 ValueHeight004 ValueAge004 ValueName005 ValueAge005 ValueHeight005 ValueAge005 And I need AHK to do the following: a) ...

Go to advanced search