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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 19.04.2015, 08:28   #1
Arnold9131
Пользователь
 
Регистрация: 15.03.2013
Сообщений: 31
По умолчанию Адаптировать рабочий VBA макрос под MS Word 2010

Добрый день!
Есть рабочий макрос, в MS Word 2003 работает отлично.
В MS Word 2010 он тоже работает, но криво отображает некоторые записи в таблице, некоторые записи из-за смещения вообще не отображает. (пример во вложении)

Помогите, пожалуйста, поправить макрос, чтобы в MS Word 2010 он работал также хорошо.
Вложения
Тип файла: rar Файлы.rar (120.8 Кб, 8 просмотров)
Arnold9131 вне форума Ответить с цитированием
Старый 19.04.2015, 15:21   #2
shanemac51
Участник клуба
 
Аватар для shanemac51
 
Регистрация: 12.08.2010
Сообщений: 1,079
По умолчанию керны

хотела попробовать, но не могу угадать, что надо вбивать в форму(2010)
одна печать похоже получается нормально, а вторую не смогла запустить(деление на 0 и прочее)
Изображения
Тип файла: gif w191515.gif (18.2 Кб, 43 просмотров)
Вложения
Тип файла: zip w0419-1.zip (87.1 Кб, 9 просмотров)
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание
shanemac51 вне форума Ответить с цитированием
Старый 20.04.2015, 16:02   #3
Arnold9131
Пользователь
 
Регистрация: 15.03.2013
Сообщений: 31
По умолчанию

Цитата:
Сообщение от shanemac51 Посмотреть сообщение
хотела попробовать, но не могу угадать, что надо вбивать в форму(2010)
одна печать похоже получается нормально, а вторую не смогла запустить(деление на 0 и прочее)
Данный макрос печатает 2 типа этикеток, но проблема возникает только со 2 типом "Сделать этикетки на коробки"

Выполняем следующие действия:

1. Открыть файл "etik.doc"
2. Запустить макрос "Этикетки"
3. Выполняем 1 действие (см. Действия.jpg) и выбираем (загружаем) файл "Восточно-Салымский ЛУ-20П.doc"
4. Выполняем 2 действие (устанавливаем значение как картинке Действия.jpg)
5.. Выполняем 3 действие.
Изображения
Тип файла: jpg Действия.jpg (67.7 Кб, 115 просмотров)
Вложения
Тип файла: rar макрос.rar (57.2 Кб, 7 просмотров)
Arnold9131 вне форума Ответить с цитированием
Старый 20.04.2015, 17:14   #4
shanemac51
Участник клуба
 
Аватар для shanemac51
 
Регистрация: 12.08.2010
Сообщений: 1,079
По умолчанию

попробуйте сами
Вложения
Тип файла: zip etik20.zip (85.2 Кб, 10 просмотров)
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание
shanemac51 вне форума Ответить с цитированием
Старый 20.04.2015, 18:16   #5
Arnold9131
Пользователь
 
Регистрация: 15.03.2013
Сообщений: 31
По умолчанию

Цитата:
Сообщение от shanemac51 Посмотреть сообщение
попробуйте сами
Проблема осталась.
Может это связано как-то с настройками форматирования MS Office 2010?
Изображения
Тип файла: jpg Проблема.jpg (73.2 Кб, 114 просмотров)
Arnold9131 вне форума Ответить с цитированием
Старый 20.04.2015, 22:42   #6
shanemac51
Участник клуба
 
Аватар для shanemac51
 
Регистрация: 12.08.2010
Сообщений: 1,079
По умолчанию

замените код + " " +
на & " " &

ровнее получается
Вложения
Тип файла: zip etik20.zip (110.7 Кб, 7 просмотров)
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание

Последний раз редактировалось shanemac51; 20.04.2015 в 22:45.
shanemac51 вне форума Ответить с цитированием
Старый 21.04.2015, 08:16   #7
Arnold9131
Пользователь
 
Регистрация: 15.03.2013
Сообщений: 31
По умолчанию

Цитата:
Сообщение от shanemac51 Посмотреть сообщение
замените код + " " +
на & " " &

ровнее получается
Заменил, но проблема осталась (без изменений)
Arnold9131 вне форума Ответить с цитированием
Старый 21.04.2015, 10:21   #8
shanemac51
Участник клуба
 
Аватар для shanemac51
 
Регистрация: 12.08.2010
Сообщений: 1,079
По умолчанию

супермудрая у вас задача
может не надо для инвентарного выделять под-ячейку
получится более устойчивая регулярная таблица

примерно такая

=======
да и с хранилищем информации явно перемудрили(бинарный файл)
я бы видимо сделала 2 таблицы
1-верхняя часть формы
2-керны и их характеристика
Вложения
Тип файла: zip 20п-22-23.zip (6.3 Кб, 10 просмотров)
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание

Последний раз редактировалось shanemac51; 21.04.2015 в 10:24.
shanemac51 вне форума Ответить с цитированием
Старый 21.04.2015, 15:52   #9
Arnold9131
Пользователь
 
Регистрация: 15.03.2013
Сообщений: 31
По умолчанию

Цитата:
Сообщение от shanemac51 Посмотреть сообщение
супермудрая у вас задача
может не надо для инвентарного выделять под-ячейку
получится более устойчивая регулярная таблица

примерно такая

=======
да и с хранилищем информации явно перемудрили(бинарный файл)
я бы видимо сделала 2 таблицы
1-верхняя часть формы
2-керны и их характеристика
Пользователи мне сказали, что им не удобно будет на бумаге вырезать эти этикетки.
Arnold9131 вне форума Ответить с цитированием
Старый 21.04.2015, 16:37   #10
shanemac51
Участник клуба
 
Аватар для shanemac51
 
Регистрация: 12.08.2010
Сообщений: 1,079
По умолчанию

я не об этикетках говорю(и их форме), а о информационной таблице
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание
shanemac51 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ссылки в Word 2010 - макрос Bocul Microsoft Office Word 2 20.12.2013 07:53
SOS! VBA word 1 макрос нужен! Njos Помощь студентам 1 27.12.2012 09:27
VBA макрос Excel to Word groder911 Помощь студентам 0 01.08.2012 16:55
Макрос в Microsoft Word 2010 Евгений581 Microsoft Office Word 3 02.10.2010 21:38
В Word на VBA сделать макрос Генерал_Касетр Фриланс 4 15.06.2009 17:38