Вставьте объект / файл в форму Word

5846
FrustratedWithFormsDesigner

Я настраиваю форму в MS Word. Пользователи формы должны будут приложить файлы, которые содержат результаты и другие соответствующие данные.

Я хотел бы использовать защищенную форму, но не могу найти способ, позволяющий пользователям вставлять эти объекты в форму. Это вообще возможно?

Я также думал о том, чтобы они копировали / вставляли пути к файлам на общем диске, но иногда каталоги меняются или перемещаются, поэтому я действительно предпочел бы иметь встроенные документы.

Какие есть альтернативы, если то, что я хочу, невозможно?

(с использованием Office 2003)

0

2 ответа на вопрос

1
Duall

Попробуйте создать новый разрыв раздела / раздела, в который вы хотите поместить вставленный файл, и снимите защиту с этого отдельного раздела.

Можно ли защитить части формы / документа? FrustratedWithFormsDesigner 13 лет назад 0
Это действительно так! Убедитесь, что вы используете разрывы разделов до и после незащищенной части, и это должно дать вам выпадающий список выбранных разделов на панели «Защита документа». Просто оставьте область, которую вы хотите, чтобы они вставили в незащищенную. Duall 13 лет назад 0
Article on section breaks: http://office.microsoft.com/en-us/word-help/about-sections-and-section-breaks-HP005255035.aspx Arcticle on unprotecting a section: http://www.infopackets.com/news/carols_corner_office/2007/20071213_unprotect_part_of_a_form_in_ms_word.htm If you wanted a little more info. =) Duall 13 лет назад 1
1
ViceKnightTA

I've used the following VBA script within a button click action, to simulate the "Insert Object" functionality within the document:

This code can go inside the button "click" event as-is.

' 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, "\"))