имя файла из поля LINK

[andreev]

здравствуйте, уважаемые профи!
прошу помощи в следующем вопросе.
есть файл WORD со связями с Excel. ({ LINK Excel.Sheet.8 "E:\... })
Хотелось бы, чтобы при запуске макроса файл автоматически сохранялся с подставновкой значения одного из полей LINK в качестве имени файла
Соответственно, когда значение поля меняется (обновляется из источника Excel), то и файл сохранялся бы под другим именем.

заранее низкий поклон до земли-матушки )

[viter.alex]

Проблем нет. Но какого именно поля Link? Сколько их всего в документе?
Пока что могу предложить такой вариант:

Sub SaveWithNameFromLinkField()
  Dim oFld As Field
  'Ищем среди полей документа поле Link со ссылкой на Excel
  For Each oFld In ActiveDocument.Fields
    If oFld.Type = 56 And InStr(oFld.Code.Text, "Excel.Sheet.8") <> 0 Then Exit For
  Next
  With oFld.Result
    'Если текст поля не совпадает с именем документа, то сохраняем документ под новым именем
    If .Text <> Mid(.Document.Name, 1, InStrRev(.Document.Name, ".") - 1) Then
      .Document.SaveAs .Text
    'Если совпадает, то просто сохраняем документ
    Else: .Document.Save
  End With
End Sub

Если нужно, то могу уточнить. Можно сохранить документ в ту же папку, откуда берется файл Excel для ссылки

[andreev]

спасибо за ответ!

> Но какого именно поля Link?
{ LINK Excel.Sheet.8 "C:\\ТЕСТ.xls" ФОРМА!R5C2 \a \t \* MERGEFORMAT }

>Сколько их всего в документе?
около 1 200 (хотел сделать "слияние", но больше 255 полей не переваривает. пришлось ЛИНКами связывать)

у меня просьба: пожалуйста, уточните, где в макросе мне самому нужно внести изменения, чтобы все заработало (например, прописать код поля и т.д.), если это требуется, конечно

спасибо огромное!

[viter.alex]

Сообщение от andreev

Сколько их всего в документе?
около 1 200 (хотел сделать "слияние", но больше 255 полей не переваривает. пришлось ЛИНКами связывать)

И из какого поля нужно брать значение? Кстати, я так и не понял, какой именно текст вам нужен: значение поля, или путь к файлу Excel, который прописан в коде поля?

Сообщение от andreev

…у меня просьба: пожалуйста, уточните, где в макросе мне самому нужно внести изменения, чтобы все заработало (например, прописать код поля и т.д.), если это требуется, конечно…

Ну Вам-то виднее, требуется или нет.

Такой код сделал я, чтобы извлечь путь к файлу из кода поля. Код можно поставить сразу после цикла, который ищет поле типа LINK,

  Dim nStart As Integer, nEnd As Integer
  Dim sPath As String
  With oFld.Code
    'Выделяем путь к файлу из строки кода поля
    nStart = InStr(.Text, """")
    nEnd = InStr(nStart + 1, .Text, """")
    sPath = Replace(Mid(.Text, nStart + 1, nEnd - nStart), "\\", "\")
    'Удаляем имя файла из пути
    sPath = Mid(sPath, 1, InStrRev(sPath, "\") )
  End With

[andreev]

значение поля - в имя файла.
Т.к. при изменении значения в ячейке (ФОРМА!R5C2) источника данных (C:\\ТЕСТ.xls) меняется и значение поля в WORD - что и обуславливает необходимость сохранения файла под отдельным именем. (сам линк не меняется)

в данном случае поле, откуда нужно брать значение, имеет код:
{ LINK Excel.Sheet.8 "C:\\ТЕСТ.xls" ФОРМА!R5C2 \a \t \* MERGEFORMAT }

на всякий случай уточняю, что в документе присутствуют еще поля со связью, меняется ссылочная ячейка
C:\\ТЕСТ.xls" ФОРМА!R5C2

[andreev]

> Ну Вам-то виднее, требуется или нет.

ну вот как раз не особо-то и не виднее )))
я вот почитал форум. бывает так, что программист поможет, потратит время, напишет код. а у юзверя - не работает. и юзверь пишет опять, что, дескать, не работает... а программист ему: "дак воон в то поле надо было подставить вооон то значение! я же не знаю, как у тебя файл называется или из какой ячейки ты значение берешь!". Пригорюнится тут юзверь, посмотрит на код с языком заморским и заплачет горючими слезами...

[viter.alex]

Сообщение от andreev

…на всякий случай уточняю, что в документе присутствуют еще поля со связью, меняется ссылочная ячейка
C:\\ТЕСТ.xls" ФОРМА!R5C2

Т.е. нужно обязательно брать значение из поля, где есть ссылка на ячейку ФОРМА!R5C2?
Тогда самый первый мой код нужно изменить. Вместо

If oFld.Type = 56 And InStr(oFld.Code.Text, "Excel.Sheet.8") <> 0 Then Exit For

записать другое условие

If oFld.Type = 56 And InStr(oFld.Code.Text, "ФОРМА!R5C2") <> 0 Then Exit For

[andreev]

спасибо!
все поменял, подставил
думаю, последние штришки...

выдает ошибку Compile error: End With without With

[viter.alex]

У меня все работает. Скопируйте сюда код, который у Вас получился после Вашего редактирования. Думаю, что вы там лишнюю строчку удалили

[andreev]

о, подставил чисто интуитивно End If
все заработало!

дададададададададада! ура!

viter.alex спасибо ОГРОМНОЕ за время и терпение!