Можно ли макросы преобразовать в программу

[kminas]

Я написал макросы для Worda (для автоматичесого заполнения таблицы. Можно ли с помощью VB или VBA написать программку, чтобы она работала БЕЗ Worda, т.е. при его отсутствии на компе. Если да, то где можно этому научиться

[RayShade]

А в чем она будет автозаполнять таблицы, если Worda не будет?

[kminas]

Я так представлял, что разные символы: буквы русские и английские, знаки препинания и т.д. это не собственность Worda, они принадлежат системе Widows?

[GSerg]

Только помещены в файл в закрытом формате .doc.


ЗЫ: то, что алфавиты принадлежат windows (т.е. microsoft) - это мысль

[RayShade]

GSerg

Читай внимательнее - не windows, а widows.

То есть, вдовам програмистов, которые полегли, безуспешно пытаясь заставить автозаполняться таблицы word при его отсутствии.

То есть типа "если был бы word то таблица была бы тут"....

[kminas]

Все смеетесь?! Конечно я начинающий. И все-ж, что в VB нельзя с помощью команд прочертить те же линии и набрать те же буквы с запятыми? Кстати, буквы спокойно ставятся и в WordPadе...

[kminas]

Тогда другой вопрос. Как перетащить эти макросы, панели и шаблоны на другой комп подключить их, не меняя нормал.дот. Макросы перетаскиваются, шаблоны я подключаю, панели включаю. Хочу, чтобы пользователь не задумыывался об этих хитростях, а включал программку в автомате, а обычно Word должон работать как настроен на компе

[GSerg]

Засунуть все эти макросы в некий дополнительный .dot и поместить указанный dot в папку, которая для текущего ворда является папкой автозагрузки (application.startuppath).

[kminas]

Дополнительный .dot у меня есть. Как сделать так, чтобы он загружался когда нужно заполнять таблицу, а, в остальных случаях загружался нормал.dot?

И еще. Вот что мне ответили на мои вопросы другом сайте: http://www.guti.ru/forum/viewtopic.php?p=2969#2969
1. Можно ли на VB написать таблицы в которые автоматически вставляется заранее подготовленный текст, и, чтобы эта программа была не связана с офисом?

2. Я написал макросы в Worde, как перетащить их, панели и шаблоны на другой комп, не меняя нормал.дот. Макросы перетаскиваются, шаблоны я подключаю, панели включаю. Хочу, чтобы пользователь не задумывался об этих хитростях, а включал программку в автомате, а обычно Word должон работать как настроен на компе.

Mario

1. Конечно можно! Пишешь на VB а не на VBA. Создаешь текстовый файл, а в программе считываешь его!

2. Макросы твои это же дополнительные возможности! И значит устанавливать их отдельно надо! Попробуй сделать для установочный файл...

Как прокомментируете?

[GSerg]

Комментирую.

1. Конечно можно! Пишешь на VB а не на VBA. Создаешь текстовый файл, а в программе считываешь его!

Считываешь куда? Ворда нет, и открыть документ ты не можешь.

2. Макросы твои это же дополнительные возможности! И значит устанавливать их отдельно надо! Попробуй сделать для установочный файл...

Чем это отличается от сказанного мной?
Сделал dot, поместил. Создал панель инструментов один раз. Указал каждой кнопке имя макроса.

[kminas]

Панель я создал, макросы туда натягал, а вот хочу включать эту панель кнопкой или из меню и, чтобы вместе с этим загружался мой шаблон, но не получается. Он запускается, но там нет кнопок и пунктов меню, которые я назначил (только отсутствуют те, которые я убрал).

А из книжек по VB я понял, что на нем можно писать программы, запускаемые без имеющихся в офисе. С помощью него можно вставлять объекты, например: рисунки, текст и т.д. Возможно я что-то не так понял?!

[GSerg]

Ты не сможешь открыть файл doc без наличия word. Прими это. Это первое.

Второе. Панель ты создаёшь 1 раз. Потом сам пользователь решает, отображать её где-то или нет. Решать это за пользователся не нужно. Я бы такую решающую программу снёс бы нафиг.

[kminas]

Спасибо все понял, но почему обязательно doc

[GSerg]

А txt будет достаточно?

[kminas]

Вот что мне предложил Марио
http://www.guti.ru/forum/viewtopic.php?p=2969#2969

1.В своей программе!!!!

Код:
Dim FileNo As Integer
Dim GetString() as string

FileNo = FreeFile
Open "..." For Input As FileNo
Do Until EOF(FileNo)
ReDim Preserve GetString(countRemind)
Line Input #FileNo, GetString(countRemind)
...
Loop
Close FileNo



НУ а потом а вернее в процессе считывания подставляешь все в таблицу...

[GSerg]

Отвратительный код с точки зрения скорости работы.

Только причём здесь word? Это работа с txt.

[kminas]

Спасибо, теперь все ясно