Вместо Open Get

@Ципихович Эндрю · Регистрация: 10.04.2009

Студворк — интернет-сервис помощи студентам

В данном конкретном случае, для считывания глобальных переменных с другого документа можно Open заменить на Get??, мне уже поясняли, что это одно и тоже, но всё же хочу попробовать

PureBasic
1
2
3
4
5
6
7
8
9
Dim oDocument As Word.Document
Set oDocument = Documents.Open(Application.StartupPath & "\ЦЭ.dot", , True)
Act = oDocument.Variables("Счётчик").Value
Act1 = oDocument.Variables("Счётчик1").Value
 
'в пошаговом режиме нажимаем Шифт + Эф 8, закрыть файл True - с сохранием, False - без сохранения
oDocument.Close False
'установка объекта в значение Nothing требуется для освобождения памяти, которая была выделена для создания этого объекта
Set oDocument = Nothing

2. Не пойму после выполнения этого скрипта почему то активный документ становится не видимым, почему??

@ironegg · 27.02.2011, 14:12

Сообщение от Ципихович Эндрю

глобальных переменных

каежется, правильно это называется "переменные документа". это один из способов сохранить промежуточные значения между запусками Word.
глобальные переменные - совсем другая сущность.
http://support.microsoft.com/kb/306281/ru

по существу вопроса - запомни активный документ перед выполнением кода, и сделай его видимым после выполнения кода

@Ципихович Эндрю · 27.02.2011, 19:17 **[ТС]**

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

это один из способов сохранить промежуточные значения между запусками Word.

А ещё скольо знаете?? можно поподробней?

Добавлено через 42 минуты
ну всё против меня, даже проверить не могу, чегодня вдруг стало выделять
"ExistVar" и сообщение сокромольное - функция или процедура not defined
То есть вчера всё Ок было а сегодня нот дефинед
Что за ересь??

@ironegg · 28.02.2011, 01:12

Сообщение от Ципихович Эндрю

можно поподробней?

Необходимо сохранить значение между сеансами работы макроса, можно хранить значения, используя любой из следующих способов:

-ИспользованиеPrivateProfileStringсвойств о для хранения значений в файле личных настроек.
Для получения дополнительных сведений о свойстве PrivateProfileString, редактор Visual Basic нажмите кнопкуСправка по Microsoft Visual BasicнаСправкаменю, типСвойство PrivateProfileStringв поле помощника Office или мастера ответов и нажмите кнопкуПоискдля просмотра раздела.

-ИспользованиеПеременныесвойство для хранения значений в документе.
Дополнительные сведения о свойстве переменные, в редакторе Visual BasicСправка по Microsoft Visual BasicнаСправкаменю, типСвойства переменныхв поле помощника Office или мастера ответов и нажмите кнопкуПоискдля просмотра раздела.

-Использование Visual Basic для приложенийВвод и выводинструкции, записываемый в текстовый файл (например, aЗаписьинструкции илиПечатьинструкции).
Дополнительные сведения о записи данных в файлы, в редакторе Visual BasicСправка по Microsoft Visual BasicнаСправкаменю, типзапись данных в файлыв поле помощника Office или мастера ответов и нажмите кнопкуПоискдля просмотра раздела.

-ИспользованиеAutoTextEntryОбъект для хранения значений в элемент списка автотекста. Дополнительные сведения об объекте AutoTextEntry в редакторе Visual BasicСправка по Microsoft Visual BasicнаСправкаменю, типОбъект AutoTextEntryв поле помощника Office или мастера ответов и нажмите кнопкуПоискдля просмотра раздела.

кудаж подробней?

@Ципихович Эндрю · 28.02.2011, 18:39 **[ТС]**

В этом:
ну всё против меня, даже проверить не могу, чегодня вдруг стало выделять
"ExistVar" и сообщение сокромольное - функция или процедура not defined
То есть вчера всё Ок было а сегодня нот дефинед
Что за ересь??
РАЗОБРАЛСЯ!!!!
За сообщение #4 СПАСИБО, изучу

Добавлено через 14 часов 39 минут
я так понял, что возможно мне подойдёт AutoTextEntries Property

Увидел пример как добавлять автотекст с названием "Темп " в шаблоне Normal.dot
не понял туда можно затолкать например 8000 строк, и потом как считывать с автотекста записи?? циклом?
Конечно этот автотекст буду использовать не по назначению

@ironegg · 04.03.2011, 05:18

Сообщение от Ципихович Эндрю

не понял туда можно затолкать например 8000 строк

что то я не слыхал, что эта функция имеет ограничения, но раз уж информации так много, ради скорости работы, может быть стоит подумать о сохранении в отдельном файле... например в MBD и для работы использовать ADO.

Сообщение от Ципихович Эндрю

как считывать с автотекста записи?? циклом?

а вообще, если речь идет о десятке-сотне значений, можно при запуске выгрузить их из списка автозамены в массив, или еще лучше в словарь (объект Dictonaries) и работать уже с ним

@Ципихович Эндрю · 04.03.2011, 17:47 **[ТС]**

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

может быть стоит подумать о сохранении в отдельном файле... например в MBD и для работы использовать ADO.

MBD - это что такое база данных??

@ironegg · 06.03.2011, 00:05

очепятка. имелос в виду MDB (микрософт дата бейс)

Новые блоги и статьи Все статьи Все блоги /
Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .
Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью в КА2. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа в КА2. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию. . .

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,328
	28.02.2011, 18:39 [ТС]
	В этом: ну всё против меня, даже проверить не могу, чегодня вдруг стало выделять "ExistVar" и сообщение сокромольное - функция или процедура not defined То есть вчера всё Ок было а сегодня нот дефинед Что за ересь?? РАЗОБРАЛСЯ!!!! За сообщение #4 СПАСИБО, изучу Добавлено через 14 часов 39 минут я так понял, что возможно мне подойдёт AutoTextEntries Property Увидел пример как добавлять автотекст с названием "Темп " в шаблоне Normal.dot не понял туда можно затолкать например 8000 строк, и потом как считывать с автотекста записи?? циклом? Конечно этот автотекст буду использовать не по назначению 0

@ironegg 1905 / 782 / 31 Регистрация: 11.02.2010 Сообщений: 1,567
	06.03.2011, 00:05
	очепятка. имелос в виду MDB (микрософт дата бейс) 0