ドキュメントをWordドキュメントの先頭ではなく末尾に挿入する方法は?


2

AppleScriptを使用してWord文書を別のWord文書に挿入する方法を最終的に理解しましたが、以下のコードはそれを文書の最後ではなく最初に追加します(もちろん、受信文書にテキストがあると仮定してで始まる)。

on AddAttachmentFileToWordDoc(FilePath)
    tell application "Microsoft Word"
        set ContTemp to content of text object
        set StartRange to (count of ContTemp) - 1
        set endrange to StartRange
        set theRange to create range start StartRange end endrange
        tell theRange
            insert file at end file name (FilePath as text)
        end tell
    end tell
end AddAttachmentFileToWordDoc

代わりに、ドキュメントの最後にドキュメントを追加する方法を教えてください。何が間違っていますか?

回答:


3

end of contentプロパティを使用して、テキストオブジェクトの終了位置を取得します。

以下は、Microsoft Wordバージョン16.13でテストされたスクリプトです。

set FilePath to choose file
my AddAttachmentFileToWordDoc(FilePath)

on AddAttachmentFileToWordDoc(FilePath)
    set f to FilePath as text
    tell application "Microsoft Word"
        set StartRange to (end of content of text object of active document) - 1
        set theRange to create range (active document) start StartRange end StartRange
        insert file at after theRange file name f with confirm conversions
    end tell
end AddAttachmentFileToWordDoc

範囲の代わりにafter last character of active document、次のように使用できます

on AddAttachmentFileToWordDoc(FilePath)
    set f to FilePath as text
    tell application "Microsoft Word"
        insert file at (after last character of active document) file name f with confirm conversions
    end tell
end AddAttachmentFileToWordDoc

範囲を取得する最初のメソッドは、ドキュメントの先頭に再度追加しました(ただし、グラフィックファイルの場合は、末尾に追加します)。2番目の方法では、「Microsoft Wordでエラーが発生しました:アクティブドキュメントのテキスト範囲ID«data iWrgBB1C0000BB1C0000»が「ファイルを挿入」メッセージを認識しません。」
-MBUST
弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.