Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.04.2011, 03:38   #1
bdfy
Форумчанин
 
Регистрация: 12.11.2009
Сообщений: 258
По умолчанию Изменить диапазон ссылки на лист excel в документе Word

есть документ. в нем тьма ссылок вот такого рода.
LINK Excel.Sheet.8 "D:\\G\\Матзадачи_снабж\\Вероятност но-статистический анализ.xls" "Вероятн.-статист. анализ!R138C1:R148C10" \f 4 \h \* MERGEFORMAT

нужно проанализировать эти ссылки и если диапазон имеет 10 строк, то увеличить на одну строку диапазон ссылки. т.е чтобы стало

LINK Excel.Sheet.8 "D:\\G\\Матзадачи_снабж\\Вероятност но-статистический анализ.xls" "Вероятн.-статист. анализ!R138C1:R149C10" \f 4 \h \* MERGEFORMAT

как это сделать ?
пробовал regex'ами решить. но не вышло ((
Цитата:
Sub test()
For Each aField In ActiveDocument.Fields
Text = aField.Code.Text

textA = Split(Text, " ")

If textA(1) = "LINK" Then

Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.Global = True 'Производим поиск по всему тексту


Debug.Print Text

objRegExp.Pattern = "R([0-9]+)C[0-9]+:R([0-9]+)C[0-9]+" 'Шаблон поиска
Set objRegExpMatches = objRegExp.execeute(Text)

t1 = objRegExp.Replace(Text, "R$1C$2:R$3C$4")

Debug.Print " " & t1

End If

Next aField

End Sub
bdfy вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Разделить значения таблицы в документе word из excel средствами vba xamillion Microsoft Office Word 5 07.11.2010 19:25
Ссылки из Excel в Word Foxx Microsoft Office Excel 0 20.03.2010 22:42
как вставить ссылку на ячейку в документе Excel в Word? ruavia3 Microsoft Office Excel 3 19.03.2009 21:32
как вставить ссылку в Word на ячейку в документе Excel? ruavia3 Microsoft Office Word 2 19.03.2009 21:24