Bear writer: autosave to icloud

bear_autosave.scpt

tell application "System Events"
	
	-- 前提/premiss：
	
	-- 1. 在iCloud云盘下新建Bear文件夹/Create a new folder "Bear" under the iCloud
	
	-- 脚本做的事：/What the script does:
	
	-- 1. 自动化点击/Automated click
	
	tell application "Bear" to activate -- 打开Bear/Open Bear APP
	
	tell process "Bear"
		
		set frontmost to true -- 置于前台/At the front desk
		click menu item "备份笔记..." of menu "文件" of menu bar item "文件" of menu bar 1 -- 点击文件->备份笔记
		delay 1
		key code 5 using {shift down, command down} -- ⌘+Shift+G
		set the clipboard to "~/Library/Mobile Documents/com~apple~CloudDocs/Bear"
		key code 9 using {command down}
		delay 1
		key code 76
		click button "导出笔记" of window "请选择保存笔记的位置" of application process "Bear" of application "System Events"
		
		-- key code 13 using {command down} -- ⌘+W -- close Bear Windows
		
	end tell
	
end tell

是的，Apple Script 还是很好用的。不想写代码可以考虑用 自动完成 的“我做给你看”

tell application "System Events"
	
	-- 前提/premiss：
	
	-- 1. 在iCloud云盘下新建Bear文件夹/Create a new folder "Bear" under the iCloud
	
	-- 脚本做的事：/What the script does:
	
	-- 1. 自动化点击/Automated click
	
	tell application "Bear" to activate -- 打开Bear/Open Bear APP
	
	tell process "Bear"
		
		set frontmost to true -- 置于前台/At the front desk
		click menu item "Backup Notes..." of menu "File" of menu bar item "File" of menu bar 1 -- 点击文件->备份笔记
		delay 1
		key code 5 using {shift down, command down} -- ⌘+Shift+G
		set the clipboard to "~/Library/Mobile Documents/com~apple~CloudDocs/Bear"
		key code 9 using {command down}
		delay 1
		key code 76
		click button "Export notes" of window "Please choose the location where the notes will be saved" of application process "Bear" of application "System Events"
		
		-- key code 13 using {command down} -- ⌘+W -- close Bear Windows
		
	end tell
	
end tell

英文菜单

请问点击编译无反应,退出时显示该文稿未能自动存储,错误-1752,应该怎么做?