¿Cómo insertar el documento al final del documento de Word en lugar del principio?

Question

¿Cómo insertar el documento al final del documento de Word en lugar del principio?

#1 de jackjr300 (3 votos)

2

Finalmente, he descubierto cómo insertar un documento de Word en otro documento de Word utilizando AppleScript, pero el código a continuación lo agrega al principio del documento en lugar del final (suponiendo, por supuesto, que hay texto en el recibir documento para comenzar con).

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

¿Alguien puede decirme cómo agregar el documento al final del documento? ¿Qué estoy haciendo mal?

ms-office applescript

pregunta MBUST 15.05.2018 - 20:34

1 respuesta

Lea otras preguntas en las etiquetas ms-office applescript

iPhone 4s reemplazó la batería, todavía se agota rápidamente iPhone - Eliminar URL en la pestaña actual

score 3 · Accepted Answer

Use la propiedad end of content para obtener la posición final del objeto de texto.

Aquí está el script, 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

Como alternativa a un rango, puedes usar 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