Insérer un objet / fichier dans un formulaire Word

0

Je suis en train de mettre en place un formulaire en MS Word. Les utilisateurs du formulaire devront joindre des fichiers contenant les résultats et d’autres données pertinentes.

J'aimerais utiliser un formulaire protégé, mais je ne parviens pas à autoriser les utilisateurs à insérer ces objets dans le formulaire. Est-ce même possible?

J'ai également envisagé de leur copier / coller des chemins d'accès aux fichiers sur un lecteur partagé, mais parfois les répertoires changent ou se déplacent, alors je préfère vraiment avoir des documents incorporés.

Quelles sont les alternatives, si ce que je veux n'est pas possible?

(en utilisant Office 2003)

microsoft-office microsoft-office-2003 microsoft-word-2003 forms FrustratedWithFormsDesigner
la source

Réponses:

1

Essayez de créer une nouvelle section / section break à l'endroit où vous souhaitez insérer le fichier inséré et de déprotéger cette section.

Duall
la source
Il est possible de dé-protéger des parties d'un formulaire / document?
FrustratedWithFormsDesigner
En effet, ça l'est! Assurez-vous d’utiliser les sauts de section avant et après la partie non protégée, ce qui devrait vous donner une liste déroulante des sections sélectionnées dans le volet "Protéger le document". Laissez simplement la zone que vous voulez insérer sans protection.
Duall
1
Article sur les sauts de section: office.microsoft.com/en-us/word-help/… Article sur la déprotection d'une section: infopackets.com/news/carols_corner_office/2007/… Si vous vouliez un peu plus d'informations. =)
Duall
1

J'ai utilisé le script VBA suivant dans une action de clic de bouton pour simuler la fonctionnalité "Insérer un objet" dans le document:

Ce code peut aller à l’intérieur du bouton «cliquer» tel quel. 

' Browse & Select File
With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Title = "Select the File that you want to insert"
        If .Show = True Then
            FiletoInsert = .SelectedItems(1)
        Else
            Exit Sub
        End If
    End With

' Embed File Inline
    Application.Selection.InlineShapes.AddOLEObject _
        FileName:=FiletoInsert, _
        LinkToFile:=False, _
        DisplayAsIcon:=True, _
        IconLabel:=Right(FiletoInsert, Len(FiletoInsert) - InStrRev(FiletoInsert, "\"))
ViceKnightTA
la source