2 votes

Comment insérer le document à la fin du document Word au lieu du début ?

J'ai enfin trouvé comment insérer un document Word dans un autre document Word à l'aide d'AppleScript, mais le code ci-dessous l'ajoute au début du document au lieu de la fin (en supposant, bien sûr, qu'il y ait du texte dans le document récepteur pour commencer).

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

Quelqu'un peut-il me dire comment ajouter le document à la fin du document à la place ? Qu'est-ce que je fais de travers ?

3voto

Utilisez le end of content pour obtenir la position finale de l'objet texte.

Voici le script, testé sur Microsoft Word Version 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

Une alternative à une plage, vous pouvez utiliser after last character of active document comme ceci

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

0 votes

La première méthode pour récupérer l'intervalle l'ajoute à nouveau, au début du document (mais pour un fichier graphique, il l'ajoute à la fin). La deuxième méthode a généré cette erreur : "Microsoft Word a obtenu une erreur : l'id de la plage de texte "data iWrgBB1C0000BB1C0000" du document actif ne comprend pas le message "insert file"."

LesApples.com

LesApples est une communauté de Apple où vous pouvez résoudre vos problèmes et vos doutes. Vous pouvez consulter les questions des autres utilisateurs d'appareils Apple, poser vos propres questions ou résoudre celles des autres.

Powered by:

X