Wordで編集中のSharePoint上のファイルに対応するローカルのOneDriveフォルダを開く

SharePoint上のファイルをWordで編集していると自動保存等が効いたり嬉しいのですが、いざメールに添付したり何したりするためにローカルのフォルダを開こうとするとめんどくさいです。
AppleScriptで作ります。

set SharePoint to "https://***.sharepoint.com/sites/msteams_***/Shared%20Documents/"
set LocalPath to "/Users/***/Library/CloudStorage/OneDrive-共有ライブラリ-**/** ** - ドキュメント/"

tell application "Microsoft Word"
	tell document of window 1
		set subpath to characters ((length of SharePoint) + 1) thru (length of (path as text)) of (path as text)
		tell application "Finder"
			open folder ((LocalPath & (subpath as text)) as POSIX file)
			activate
		end tell
	end tell
end tell

これをスクリプトフォルダに入れておけばメニューバーからさっと呼び出せるっちゅうわけよ。

ToDo

• ファイルがSharePoint上かローカルか判定して、ローカルなら素直にローカルを開く
• ファイルがリモートな場合、リモートのどこかをいい感じに判定してローカルを開く。
  とりあえず一番よく使うチームフォルダ決めうちで開くことにしてるけど、まぁ自分専用ツールならこんなもんで十分だったり。