Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Microsoft Office (Word, Excel, Outlook и т.д.) (http://forum.oszone.net/forumdisplay.php?f=115)
-   -   документооборот на sharepoint 2010 и word 2010 (http://forum.oszone.net/showthread.php?t=228109)

Makaroff88 17-02-2012 21:23 1861087

документооборот на sharepoint 2010 и word 2010
 
Приветствую! Помогите, пожалуйста, разобраться с проблемой.
Есть портал на Sharepoint 2010. В одной из библиотек реализовано хранилище описания иерархических сущностей:

папка объекта 1
-описание объекта 1
-папка объекта 1.1
--описание объекта 1.1
--папка объекта 1.1.1
---описание объекта 1.1.1

Количество объектов на каждом уровне произвольно. Описания вложенных объектов перетаскивают в описания вышестоящих руками (описание объекта 1 содержит уникальный текст + описание всех вложенных объектов).
Придумал решение по оптимизации: создаем типы контента для каждого уровня и вешаем на них шаблоны. создаем списки для каждого типа контента. при создании нового объекта указываем его положение в иерархии (выбором вышестоящих объектов). после создания в библиотеке появляются соответствующие изменения иерархии. Документы связаны друг с другом посредством использования поля {link}. Это позволяет в каждом документе иметь только уникальный текст + подтянутое содержимое описаний вложенных объектов. Так вот основная проблема в автоматическом создании и обновлении этих полей, ведь иерархию мы меняем. Придумал для типов контента многострочное текстовое поле "Ссылка", куда складываю через разделитель ссылки на все вложенные документы. Плюс, создал скрипт на VBA и повесил его на шаблоны. Скрипт берет значение поля "Ссылка", парсит и генерит поля {link}. Вот он скрипт:

Sub LinkCreator()
'
' DocCreator Макрос
'
'
Dim Property As MetaProperty
Dim Properties As MetaProperties
Dim rng As Range
Dim fld As field
Dim par As Paragraph
Dim links() As String
Dim linkfield As field

' парсим строку "ссылки" в массив
Set Properties = ActiveDocument.ContentTypeProperties
For Each Property In Properties
If Property.Name = "Ссылка" Then
links = Split(Property.Value, ";")
End If
Next Property

'так как поля такого типа создаются только в макросе, то ищем созданные ранее поля и убиваем их, чтобы создать для новых значений
For Each linkfield In ActiveDocument.Fields
If (linkfield.Type = wdFieldLink) Then
ActiveDocument.Fields(linkfield.Index).Select
Selection.Start = Selection.End
'удаляем параграф, чтобы при обновлении наши поля не ползли вниз
Selection.Delete
'удаляем "старое" поле
linkfield.Delete
End If
Next linkfield

'вставка новых полей
For Each link In links
Set rng = ActiveDocument.Range(Start:=ActiveDocument.Range.End - 1, End:=ActiveDocument.Range.End - 1)
Set fld = ActiveDocument.Fields.Add(rng, wdFieldRefDoc, link, False)
Set rng = ActiveDocument.Range(Start:=ActiveDocument.Range.End - 1, End:=ActiveDocument.Range.End - 1)
'каждое поле с новой строки, поэтому пихаем параграф
Set par = ActiveDocument.Paragraphs.Add(rng)
Next link

End Sub


Проблема: формируемые поля имеют вид {link <ссылка>}, без приставки типа документа (word.document.12) и префикса отображения (я использую \h). если добавлять их строкой вместе с ссылкой, то локально на машине все работает (если все действия делаю с пустым шаблоном. как только заполняю его "'элементами управления содержимым", сыпятся ошибки доступа к данным), а вот когда выкладываю на портал, то либо возникает ошибка доступа к данным, на которые ссылаюсь, либо при повторном обновлении полей (старые удаляются) вылетает ошибка "операция не может быть выполнена". Буду рад услышать как коментарии по концепции, так и по коду конкретного решения. Спасибо!


Время: 15:50.

Время: 15:50.
© OSzone.net 2001-