|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
30.08.2010, 13:32 | #11 |
Пользователь
Регистрация: 28.08.2010
Сообщений: 16
|
не работает ... у меня не одна ссылка, может поэтому?
|
19.04.2014, 12:27 | #12 |
Регистрация: 30.12.2010
Сообщений: 8
|
viter.alex Благодарю! 4 года прошло, а работает
Единственное как оказалось в цикле была досадная ошибка, которая приводила к порче всех остальных кодов, перекрестных ссылок в документе и напрягал постоянный ввод старого имени файла, поэтому исправил и немного дополнил, может кому пригодится: Код:
Последний раз редактировалось SirSAS; 19.04.2014 в 14:02. |
20.04.2014, 11:56 | #13 |
Регистрация: 30.12.2010
Сообщений: 8
|
По мере разбора полетов и всестороннего тестирования наткнулся еще на некоторые сюрпризы, которые подбросил word 2013 (возможно и в других версиях, с чем связано не понял):
Word при помещении файла в далекую папку, например W:\02_works\01_НЦТО-Нск\06_Экспертиза ПБ\2014\ОАО ВНК Томскнефть\ФА\АГЗУ-Первомайское-к17.docx полный путь ссылки помещает в кавычки "W:\..." (без кавычек ошибка), а при перемещении например в C:\soft\АГЗУ-Первомайское-к17.docx уже без кавычек. А так как есть необходимость в том, чтобы макросом пользовались люди, которые с компьютером на Вы, пришлось дополнительно заняться автоматизацией и обработкой всевозможных ошибок. Были поставлены задачи: 1. Проводить синхронизацию автоматически (только в том случае, если файл был перемещен или переименован или то и другое) 2. Обрабатывать разные типы ошибок и выводить код ошибки для оценки возможных сбоев в работе 3. Минимизировать вмешательство человека в работу скрипта 4. Разрешить ситуацию с кавычками, описанную выше. Так как связи word->exel->word в моем случае двусторонние, то есть следующее ограничение: 1. Для правильной синхронизации рабочие файлы *.docx и *.xlsm (или *.xlsх) должны находится в одной папке, названия файлов должны совпадать И второе ограничение, которое можно обойти наверное при помощи Application.FileDialog, но я любитель и разбираться долго не стал, поэтому: 2. В документе должна присутствовать закладка с именем Путь_файла на поле { FILENAME \p } (Текст -> Поле -> FileName, установить галочку Добавить путь к имени файла) Получился следующий функционал: При запуске вордовского файла происходит автоматическое срабатывание скрипта Sub AutoOpen(), скрипт сравнивает пути, имена файлов и наличие сообщений об ошибках, при полном соответствии путей и отсутствии сообщений работа скрипта останавливается и пользователь практически не замечает его запуск. При наличии несоответствий и (или) ошибок выдаются окна о начале и прохождении синхронизации с указанием кодов по которым при необходимости можно оценить тип ошибок и несоответствий. Модифицированный скрипт привожу ниже, к сожалению код грязный: |
20.04.2014, 12:05 | #14 |
Регистрация: 30.12.2010
Сообщений: 8
|
Код:
Последний раз редактировалось SirSAS; 20.04.2014 в 12:51. |
20.04.2014, 12:07 | #15 |
Регистрация: 30.12.2010
Сообщений: 8
|
Код:
|
27.07.2016, 16:57 | #16 | |
Новичок
Джуниор
Регистрация: 27.07.2016
Сообщений: 1
|
Цитата:
Макрос выдает Run time error "5" Если нажать Debug желтым подсвечивается вот эта строка PathСompare2 = Left(FullPath, m - 1) В чем может быть причина? Спасибо |
|
24.11.2018, 20:29 | #17 |
Новичок
Джуниор
Регистрация: 24.11.2018
Сообщений: 1
|
Что бы не плодить новые темы похожими вопросами спрошу тут:
Есть вордовский документ при открытии которого появляется диалоговое окно выбора источника данных для слияния(один основной *.docx и много разных *.xlsx в разных местах). Со временем появилась необходимость внести кое какие изменения в ворде, всё получилось, слияние работает, но пропало диалоговое окно выбора источника данных. Вытянул на панель кнопку "использование существующего списка" что бы как-то ускорить процесс слияния, но хотелось бы по старому - при открытии файла выбирать нужный файл. Подскажите чайнику пожалуйста, как это осуществить? Спасибо |
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Макрос преобразовывающий таблицу из Word в Excel | Alisya | Microsoft Office Excel | 20 | 15.10.2011 13:16 |
Макрос для одновременной работы с word и excel | Virtour | Microsoft Office Excel | 1 | 20.07.2010 09:29 |
связи между файлами excel | redfield | Microsoft Office Excel | 0 | 04.05.2010 16:22 |
Связи excel c word | Vladymyr17 | Microsoft Office Excel | 0 | 28.09.2009 15:52 |
Обмен данных между Excel и Word | WilliJo | Microsoft Office Word | 3 | 26.05.2009 00:19 |