2 votos

Cómo insertar el documento al final de la Palabra doc en vez de al principio?

Por fin he descubierto la manera de insertar un documento de Word en otro documento de Word usando AppleScript, pero el código siguiente se añade al principio del documento en lugar de la final (suponiendo, claro, que no hay texto en el documento, para empezar).

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

Puede alguien por favor decirme cómo agregar el documento al final del documento en su lugar? ¿Qué estoy haciendo mal?

3voto

Baczek Puntos 150

El uso de la end of content de la propiedad de la obtener la posición final del objeto de texto.

Aquí está la secuencia de comandos, probado en Microsoft Word Versión 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

Una alternativa a un rango, puede utilizar after last character of active document, como este

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

AppleAyuda.com

AppleAyuda es una comunidad de usuarios de los productos de Apple en la que puedes resolver tus problemas y dudas.
Puedes consultar las preguntas de otros usuarios, hacer tus propias preguntas o resolver las de los demás.

Powered by:

X