| |
|
|
| | Господа, подскажите, пожалуйста.
На сервере есть две версии Word 2000 и 2003.
Мне нужно из Access2000 создать документ в версии Word2000.
Как сделать так чтобы загружался именно Word2000, а не 2003 | |
| |
| |
| |
|
|
| | создавала файл в формате НТМ с нужным расширением и открывала чем надо
нтм-броузер --для начальства или простого просмотра
дос-word --независимо от версии ворда для печати с автоподгоном ширины таблицы, если хвостик (1-3 строки) не влезал в последний лист --по предварительный просмотр, автоуменьшение на лист
xls -открытие в ексель с малой руганью
если надо ввести доработки(увы.....часто требуется) --сначала сохранить так новоеИмя.требуемоеРасширение и уже в нем работать
пользователи освоили быстро и не трепали нервы мелкими А НАМ-БЫ ТО-ТО-ТО | |
| |
| |
| |
|
|
| | Задача стоит в следующем.
Документ, созданный в Word (там есть специальным образом отформатированные поля), будет закачиваться в другую программу, которая понимает документы только формата Word2000. | |
| |
| |
| |
|
|
| | как выгружаете?
если используя OLE то попробуйте
CreateObject с указанием версии
CreateObject("Word.Application.9") | |
| |
| |
| |
|
|
| | Олег спасибо.
Да выгружаю именно так.
Сейчас попробую. | |
| |
| |
| |
|
|
| | У меня "CreateObject("Word.Application.9")" не сработал, 2007 Ворд грузится в любом случае.
Сработал такой вариант
Dim varProgramID
Dim objWord As Object
varProgramID = Shell("C:\Program Files\Microsoft Office\OFFICE9\WINWORD.EXE")
AppActivate varProgramID
Set objWord = GetObject(, "Word.Application.9")
objWord.Selection.TypeText Text:="Хелло Ворд!"
objWord.Visible = True
|
| |
| |
| |
| |
|
|
| | Это была идея... сам проверить не мог.
Твой вариант надежней, к тому же проверен  | |
| |
| |
| |
|
|
| | К сожалению, идея Олега не сработала - грузится Word2003.
Сейчас попробую Ваш вариант. Спасибо.
Упс, отправил не туда | |
| |
| |
| |
|
|
| | К сожалению, идея Олега не сработала - грузится Word2003.
Сейчас попробую Ваш вариант. Спасибо. | |
| |
| |
| |
|
|
| | To АлексейЕ.
Алексей, спасибо, все получилось.
в Set objWord = GetObject(, "Word.Application.9") даже не надо указывать .9
работает и так Set objWord = GetObject(, "Word.Application") | |
| |
| |
