Форум: "Основная";
Текущий архив: 2004.02.29;
Скачать: [xml.tar.bz2];
ВнизCreateOleObject( Word.Application ) Найти похожие ветки
← →
ИМХО (2004-02-18 15:03) [0]Вопрос про OLE-автоматизацию Ворда. Как можно (после создания объекта) загрузить в него html-файл?
← →
Тимохов (2004-02-18 15:31) [1]НАчни запись макроса. Открой нужный файл. Останови макрос. Посмотри макрос. Там все будет - только что проверил.
← →
ИМХО (2004-02-18 15:36) [2]Кинь примерчик, плиз.
← →
Тимохов (2004-02-18 15:37) [3]
> Тимохов © (18.02.04 15:31) [1]
Ворд уже закрыл - второй раз описанное в 1 делать не буду.
Сделай сам - занимает ровно 40 секунд.
← →
olookin (2004-02-18 15:42) [4]Хотел дать пример но не буду... Потому как солидарен с
"Тимохов © (18.02.04 15:37) [3]
> Тимохов © (18.02.04 15:31) [1]
Ворд уже закрыл - второй раз описанное в 1 делать не буду.
Сделай сам - занимает ровно 40 секунд."
Надо и самому чего то делать.
← →
ИМХО (2004-02-18 15:44) [5]А причем здесь "Ворд уже закрыл"? Нужно программно загрузить HTML-файл в объект, созданный при помощи CreateOleObject("Word.Application").
← →
ИМХО (2004-02-18 15:47) [6]Боже, сколько пафосу. Вы там не лопнули еще на пару, г-да Тимохов и olookin?
← →
Тимохов (2004-02-18 15:49) [7]
> ИМХО © (18.02.04 15:44) [5]
А-а-а-а. Ты просто фишку не просек. Понял.
Значит так. Общий метод изучения ворда и екселя (уверяю тебя, так начинали все) заключается в том, чтобы открыть ворд, запустить запись макроса, сделать нужное действие, остановить запись, посмотреть на созданный макросом код визуал бэйсика, скопировать этот код в дельфи, отредактировать и запустить. Все.
Что не понятно спрашивай.
← →
Тимохов (2004-02-18 15:51) [8]
> ИМХО © (18.02.04 15:47) [6]
Уважаемый - это не хорошо.
Пафос здесь ни причем. См. начало 7 (про фишку). Думаю 7 вам поможет. Т.к. это почти единственный способ изучения ворда и екселя в целях работы через оле.
Еще раз скажу, что не понятно, спрашивайте, отвечу - на 6 я не обиделся.
← →
Amoeba (2004-02-18 15:51) [9]
> ИМХО © (18.02.04 15:47) [6]
Вместо того, чтобы огрызаться, лучше бы использовал потраченное на очередные посты время на то, чтобы последовать данному тебе совету. Кстати, и пользы больше было бы.
← →
ИМХО (2004-02-18 16:02) [10]
Sub Макрос1()
Documents.Open FileName:="faq.htm", ConfirmConversions:=False, ReadOnly:= _
False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
"", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
Format:=wdOpenFormatAuto
End Sub
Тимохову спасибо.
← →
Тимохов (2004-02-18 16:05) [11]
> ИМХО © (18.02.04 16:02) [10]
Спасибо за спасибо.
Думаю вопросы еще будут - обращайтесь.
← →
ИМХО (2004-02-18 16:25) [12]Спасибо.
Вот еще два вопроса:
1. Загрузка происходит подозрительно долго. Полагаю, это из-за Format:=wdOpenFormatAuto. Нет ли параметра, чтобы ускорить процесс?
2. При загрузке локального html-файла программа захотела выйти в Интернет. Как отрегулировать это?
← →
Тимохов (2004-02-18 16:31) [13]
> 2. При загрузке локального html-файла программа захотела
> выйти в Интернет. Как отрегулировать это?
Может в файле есть обращение в интернет?
На такие вопросы уже макросами не ответишь. Нужно копать документацию об объектной модели ворда, которая есть в том же вижуал бейсике, откуда ты брал текст макроса.
Документацию советую прочесть в любом случае.
На эти вопросы, думаю, тебе может ответить тот, кто много занимался с выводом в ворд (это не я). Я лишь хорошо знаю методику выяснения некоторых вопросов (что я и продемонстрировал ранее).
← →
ИМХО (2004-02-18 16:46) [14]По первому пункту: поставил wdOpenFormatWebPages - результат, по-моему, тот же.
По второму:
Самое интересное, что если открыть в офф-лайне тот html-файл в ослике, то выход в Инет не запрашивается. А если через:
WD.Documents.Open(LoadName, False, False, False, "", "", False, "", "",
wdOpenFormatWebPages);
то просит выхода :(
Парадокс?
← →
NAlexey (2004-02-18 17:06) [15]Классика.
procedure TForm1.Button1Click(Sender: TObject);
var
MSWord: Variant;
begin
try
MsWord := CreateOleObject("Word.Basic");
except
ShowMessage("Could not start Microsoft Word.");
Exit;
end;
MsWord.AppShow;
MsWord.FileOpen("C:\f.htm");
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.02.29;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.01 c