; This script creates a new document to hold stuff from the clipboard. ; This script creates a new document to hold stuff from the clipboard. ; Usage ; - Highlight something. ; - Press Ctrl+Alt+X. ; - Whatever you have highlghted will be copied to the clipboard and then pasted into the Word document. ; Constants wdMainTextStory := 1 wdApp := ComObjCreate("Word.Application") ; Create an instance of Word. wdApp.Visible := true ; Make Word visible. NotesDoc := wdApp.Documents.Add() ; Add a new document to Word. return ; End of auto-execute section. !`:: ; Ctrl+Alt+X hotkey. ; Clipboard := "" ; Clear the clipboard. Send, ^c ; Copy ClipWait, 1 ; Wait for the clipboard to contain any data. if (ErrorLevel) ; If error... return NotesDoc.StoryRanges(wdMainTextStory).InsertAfter("`n") ; Add a linefeed to the end of the document. NotesDoc.Range( NotesDoc.StoryRanges(wdMainTextStory).End - 1 ).Paste ; Paste to the end of the document. return ; References ; https://autohotkey.com/boards/viewtopic.php?f=5&t=30676 ; Document.StoryRanges - https://msdn.microsoft.com/en-us/library/office/ff197823.aspx ; Range.InsertAfter - https://msdn.microsoft.com/en-us/library/office/ff192427.aspx ; Document.Range - https://msdn.microsoft.com/en-us/library/office/ff821608.aspx ; Range.End - https://msdn.microsoft.com/en-us/library/office/ff840998.aspx ; Range.Paste - https://msdn.microsoft.com/en-us/library/office/ff845105.aspx
标签:
autohotkey
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· 微软正式发布.NET 10 Preview 1:开启下一代开发框架新篇章
· 没有源码,如何修改代码逻辑?
· PowerShell开发游戏 · 打蜜蜂
· 在鹅厂做java开发是什么体验
· WPF到Web的无缝过渡:英雄联盟客户端的OpenSilver迁移实战