16.12.2019, 08:29 [+3 UTC]
в нашей команде: 4 073 чел. | участники онлайн: 2 (рекорд: 21)

:: РЕГИСТРАЦИЯ

задать вопрос

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.79 (12.12.2019)
JS-v.1.35 | CSS-v.3.36

Общие новости:
28.04.2019, 09:13

Форум:
29.11.2019, 17:59

Последний вопрос:
15.12.2019, 13:14
Всего: 151290

Последний ответ:
15.12.2019, 16:37
Всего: 259583

Последняя рассылка:
16.12.2019, 05:45

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

Отзывы о нас:
22.10.2019, 22:17 »
dar777
Это самое лучшее решение! [вопрос № 196671, ответ № 278939]
18.02.2019, 11:46 »
dar777
Это самое лучшее решение! [вопрос № 194728, ответ № 277489]
12.12.2010, 22:46 »
Наталья Валерьевна
Огромное спасибо! [вопрос № 181182, ответ № 264617]

РАЗДЕЛ • Basic

Создание программ на языке Basic.

[администратор рассылки: Андреенков Владимир (Академик)]

Лучшие эксперты в этом разделе

Gluck
Статус: 10-й класс
Рейтинг: 462
mklokov
Статус: 8-й класс
Рейтинг: 179
solowey
Статус: Бакалавр
Рейтинг: 152

Перейти к консультации №:
 

Консультация онлайн # 187101
Раздел: • Basic
Автор вопроса: Посетитель - 395804
Отправлена: 16.01.2013, 08:18
Поступило ответов: 1

Здравствуйте! У меня возникли сложности с таким вопросом -
При выполнении макроса возникает ошибка: "Ошибка времени выполнения Basic. Переменная типа Object не установлена".

Sub RandomFont()
  Application.ScreenUpdating = False

  Set objDoc = ActiveDocument
  Set objRandom = CreateObject("System.Random")

  Set objRange = objDoc.Range()
  Set colCharacters = objRange.Characters
  
  For Each strCharacter In colCharacters
      'strCharacter.Font.Reset
      strCharacter.Font.Scaling = 100 + objRandom.Next_2(-50, 50) / 8 'разброс ширины шрифта
      strCharacter.Font.Position = objRandom.Next_2(-200, 300) / 700 'разброс позиции относительно базовой линии
      strCharacter.Font.Size = strCharacter.Font.Size + objRandom.Next_2(-300, 400) / 400 'разброс размеров шрифта
      strCharacter.Font.Kerning = 12 + objRandom.Next_2(-10, 40) / 5 'разброс кернинга
      Select Case objRandom.Next_2(1, 5) 'рандомный шрифт
        Case 1
          strCharacter.Font.Name = "Arial Black"
        Case 2
          strCharacter.Font.Name = "Times New Roman"
        Case 3
          strCharacter.Font.Name = "Calibri"
        Case 4
          strCharacter.Font.Name = "Arial"
      End Select
  Next
  
  Application.ScreenUpdating = True
End Sub

Подскажите пожалуйста в чём причина этой ошибки, и какие ошибки есть в коде макроса?

Состояние: Консультация закрыта

Ответ # 272011 от PsySex (Профессионал)

Здравствуйте, Посетитель - 395804!
Чтобы данный код отработал нужно подключить библиотеку System.
Сделать это можно через меню:
Сервис->Макрос->Редактор Visual Basic.
В открывшемся редакторе
Tools->References
Найти в списке System, поставить галочку, нажать ОК, после этого код должен запускаться без ошибок. Проверил в Word 2003.


Консультировал: PsySex (Профессионал)
Дата отправки: 16.01.2013, 09:23

5
нет комментария
-----
Дата оценки: 16.01.2013, 19:30

Рейтинг ответа:

0

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Мини-форум консультации № 187101
Гуревич Александр Львович

# 1

= общий = | 16.01.2013, 09:26

Странно. У меня в Word 2010 все проходит успешно.
Макрос поместил в модуль Project документа.ThisDocument.
Я предполагаю, что ошибка - в каких-то других макросах, имеющихся в программе.
Вы пробовали отладку? Где происходит остановка?

неизвестный

# 2

= общий = | 16.01.2013, 14:56

© Цитата:
Вы пробовали отладку? Где происходит остановка?

Во второй строке.
Application.ScreenUpdating = False

В Microsoft Word 2007 и Libre Office Writer, возникает одна и та же ошибка.

Гуревич Александр Львович

# 3

= общий = | 16.01.2013, 15:25

Попробуйте прикрепленный файл.
У вас работает?

-----
 Прикрепленный файл:  скачать (ZIP) » [29.1 кб]

Гуревич Александр Львович

# 4

= общий = | 16.01.2013, 15:27

Проверьте, установлены ли у вас эти библиотеки (см. рисунок во вложении)?

Вкладка Разработчик - Visual Basic
В открывшемся редакторе Visual Basic выберите:
Tools - References

-----
Последнее редактирование 16.01.2013, 15:32 [неизвестный]

-----
 Прикрепленный файл (кликните по картинке для увеличения):

PsySex
Профессионал

ID: 848

# 5

= общий = | 16.01.2013, 15:40 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер

Получилось ли подключить библиотеку System?
Смог ли макрос нормально отработать?

неизвестный

# 6

= общий = | 16.01.2013, 19:31

© Цитата:
Попробуйте прикрепленный файл.
У вас работает?

- Ошибка времени выполнения Basic. '323'. Не возможно загрузить новый модуль: неверный формат.
© Цитата:
Проверьте, установлены ли у вас эти библиотеки.

Установлены.

© Цитата: PsySex
Получилось ли подключить библиотеку System?
Смог ли макрос нормально отработать?

На компьютере с библиотекой System, макрос работает (Установлен Microsoft Office 2007). Как перенести библиотеку System на другой компьютер?

PsySex
Профессионал

ID: 848

# 7

= общий = | 16.01.2013, 23:02 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер

© Цитата:
На компьютере с библиотекой System, макрос работает (Установлен Microsoft Office 2007). Как перенести библиотеку System на другой компьютер?

Переносить ничего не нужно, это библиотека из .NET Framework. А это обычно уже входит в состав операционной системы Windows.
Если поставить галку в Вашем документе, сохранить, то открывая его на другом компьютере макрос тоже должен выполняться, т.к. состояние подключенных библиотек было сохранено.

-----
Последнее редактирование 16.01.2013, 23:03 PsySex (Профессионал)

 

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Яндекс Rambler's Top100

главная страница | поддержка | задать вопрос

Время генерирования страницы: 0.15626 сек.

© 2001-2019, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.79 от 12.12.2019
Версия JS: 1.35 | Версия CSS: 3.36