Code: Select all
No := 0
p::
Send, ^c
No++
FileAppend, % No . " - " . ClipBoard . "`n", MyNotes.txt
Return
Esc:: ExitApp
Code: Select all
No := 0
p::
Send, ^c
No++
FileAppend, % No . " - " . ClipBoard . "`n", MyNotes.txt
Return
Esc:: ExitApp
Nice didn't know about fileappend. Btw do you know why controlsend did not work? Didn't work for me either what am I missing?BoBo wrote:Code: Select all
No := 0 p:: Send, ^c No++ FileAppend, % No . " - " . ClipBoard . "`n", MyNotes.txt Return Esc:: ExitApp
Lemme try.djasi78 wrote:Thank you @BoBo
Can this be used to create something like this ?
1
2
3
3.1
3.2
4
4.1
4.2
Code: Select all
Number = 0
line:="`n`n-------`n`n" ; new line (2x) ------ new line (2x) - adjust to your preference "`n`n" will be empty line between notes
p::
Send, ^v
Number++
FileAppend, %number%. %clipboard% %line%, MyNotes.txt ; also inserts . after number
return
esc:: ExitApp
Was tricky but here's what I came up with! Would love to see if there was a better method to do this.djasi78 wrote:Thank you @BoBo
Can this be used to create something like this ?
1
2
3
3.1
3.2
4
4.1
4.2
Code: Select all
No := 0
Reset := 0
p::
No := No - Reset
Reset := 0
Send, ^c
No++
d:= floor(No)
FileAppend, % d . " - " . ClipBoard . "`n", MyNotes.txt
Return
^p::
SetFormat, Float, 0.1
Reset += 0.1
No += 0.1
FileAppend, % No . " - " . ClipBoard . "`n", MyNotes.txt
Return
Esc:: ExitApp
Oh oops! I left it at msgbox haha my bad try now.djasi78 wrote:For 1.1 , 2.1 , .... It only shows prompt that 1.1/2.1 .. is created but it does not paste it in txt file.
Overall functionality is perfect.
Thank you.
Sure but it will be 1.01, 1.02, 1.03... 1.10,1.11.. etc. will that be alright? I know it's possible to change 01 to 1 but I'm not sure about that.djasi78 wrote:Awesome , almost perfect.
All i need is to create , more than 10 sub headings . Anyway to do it ?
Thank you.
Code: Select all
No := 0
Reset := 0
p::
No := No - Reset
Reset := 0
Send, ^c
No++
d:= floor(No)
FileAppend, % d . " - " . ClipBoard . "`n", MyNotes.txt
Return
^p::
SetFormat, Float, 0.2
Reset += 0.01
No += 0.01
FileAppend, % No . " - " . ClipBoard . "`n", MyNotes.txt
Return
Esc:: ExitApp
Oops sorry I keep forgetting minute details haha. Should work now. Just as you wanted to this ti,e.djasi78 wrote:It shows like this
1
2
3
4
5
5.0
5.0
5.0
5.0
Code: Select all
https://github.com/ahkon/MS-Office-COM-Basics/blob/master/Examples/Word/Document_collect_clipboard_data.ahk
Here is an example using Microsoft Word.djasi78 wrote:I want to use Microsoft Word for saving.
Code: Select all
F12::
if (Toggle = "")
{
wdApp := ComObjActive("Word.Application")
wdApp.Selection.Range.ListFormat.ApplyOutlineNumberDefault
Toggle := 0
}
Toggle := !Toggle
MsgBox % Toggle ? "Clip to Word: ON" : "Clip to Word: OFF"
return
#if Toggle
/::
Send ^c
ClipWait, 1
wdApp.Selection.TypeText(Clipboard "`n")
return
.::
Send ^c
ClipWait, 1
wdApp.Selection.Paragraphs(1).Range.ListFormat.ListIndent
wdApp.Selection.TypeText(Clipboard "`n")
return
,::
Send ^c
ClipWait, 1
wdApp.Selection.Paragraphs(1).Range.ListFormat.ListOutdent
wdApp.Selection.TypeText(Clipboard "`n")
return
#If
Code: Select all
The pharmacodynamics of cocaine involve the complex relationships of neurotransmitters (inhibiting monoamine uptake in rats with ratios of about: serotonin:dopamine = 2:3, serotonin:norepinephrine = 2:5).[59][10] The most extensively studied effect of cocaine on the central nervous system is the blockade of the dopamine transporter protein.
Yes because ctrl+c does not copy from pdfs.djasi78 wrote:I just came across that this script does not paste text from pdf
Thank you
Users browsing this forum: No registered users and 276 guests