Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Delphi + MS Word
Форум программистов > Системное программирование > Delphi и Pascal > Delphi - СОМ
Kettel
Как, работая с MS Word из своего приложения, использовать такие его возможности, как:
- верхний и нижний колонтитулы,
- построение оглавлений,
- нумерация страниц,
- разбиение текста на 2 колонки?

Delphi 7, Word 2003
????
попробуй для начала на VBA (макросы), а потом переноси на Delphi.
p.s. оглавление точно можно сделать - я делал, всё остальное тоже (на 99,99999% уверен)
Vagor.ini
Работать через OLE
unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 Buttons, ComCtrls, ExtCtrls, OleCtnrs;

type
 TForm1 = class(TForm)
   OleContainer1: TOleContainer;
   Panel1: TPanel;
   StatusBar1: TStatusBar;
   mbLoad: TSpeedButton;
   mbPrint: TSpeedButton;
   OpenDialog1: TOpenDialog;
   procedure mbLoadClick(Sender: TObject);
   procedure mbPrintClick(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.mbLoadClick(Sender: TObject);
begin
// Покажем диалог, и если он отработал, то загрузим в контейнер
if OpenDialog1.Execute and (OpenDialog1.FileName<>'') then
 OleContainer1.CreateObjectFromFile(OpenDialog1.FileName,false);
// Если загрузилось что-нибудь, то покажем
if OleContainer1.State <> osEmpty then
 OleContainer1.DoVerb(ovShow);
end;

procedure TForm1.mbPrintClick(Sender: TObject);
var
V : Variant;
begin
if OleContainer1.State = osEmpty then Begin
 MessageDlg('OLE не загружен !!', mtError, [mbOk],0);
 exit;
end;
 // Получаем объект, который воплощает в себе WordBasic интерфейс
 V := OleContainer1.OleObject.Application.WordBasic;
 // Командуем до одурения ....
 V.FilePrint;
end;
end.
Barmutik
А что бы узанть как командовать .. сначала создаёш макрос которой делает то что тебе требуется, а дальше смотриш его код и просто переписываеш с использованием Дельфей.
Garick
Привет Мужики, я уже неделю бьюсь с Word'ом через Делфи и ни как не мегу воплатить мечту!!! Вывезти в Делфи номер текущей страницы и количество страниц всего открытого документа, ВЫРУЧАЙТЕ!!! sad.gif
Barmutik
Судя по всему это должно помочь:

WordDocument1.Range.Information(wdActiveEndPageNumber или wdActiveEndAdjustedPageNumber) - активная страница
WordDocument1.Range.Information(wdNumberOfPagesInDocument) - количество страниц в документе
Guest_andrey1
Доброго времени суток.
Подскажите пожалуйста, как из документа Word вытащить часть текста с формулой (MathType) до определённого символа, и дописать или записать в другой документ Word ?
Barmutik
Наверно как самый простой вариант выделить нужную часть текста .. скопировать в буфер обмена и затем в другом документе вставить...
Guest_andrey1
Цитата(Barmutik @ 11:03:2005, 10:43 )
Наверно как самый простой вариант выделить нужную часть текста .. скопировать в буфер обмена и затем в другом документе вставить...

Забыл добавить, что сделать это нужно средствами Delphi
Barmutik
Ну так и в чём проблема ? Создаём Ком сервер у него дёпгаем методы и всё ...

Я имел ввиду что из Дельфи в ворде выделяем требуемый участок текста, затем его копируем, затем вставляем в другой Ворд .. опять же посредством команды из Дельфи...
Nadin
Работа в Delphi с Word через компонент Ekrtf
Отчёт master detail не могу докопаться и розобраться работоть с опцией /noef/ Можно ли группировать по одному Dataset Не получается. Други муж Помогите
Guest
Никак не могу выровнять две колонки - стандартные примемы через разметку страницы работают не всегда. Подскажите, что делать.
Real-Mulik
Нрод, у меня тоже пожар! sad.gif Открываю Ворд след. образом:

Код
ShellExecute(Handle, 'open', PANSICHAR(pathW), nil, nil, SW_ERASE);


Вот только глюков дофига ohmy.gif !
1. При закрытии приложения Делфи - Ворд тоже закрывается
2. Два раза открыть ворд в приложении невозможно!
Что делать? sad.gif
mikola1
Цитата(Real-Mulik @ 21:05:2006, 15:56 ) *
Нрод, у меня тоже пожар! sad.gif Открываю Ворд след. образом:
Вот только глюков дофига ohmy.gif !
1. При закрытии приложения Делфи - Ворд тоже закрывается
2. Два раза открыть ворд в приложении невозможно!
Что делать? sad.gif


Код
ShellExecute(nil, ...);


Читайте значения параметров. А что флаг SW_ERASE обозначает?
ApeX
Ребята, хелп плиз...
Проблема такая: нужно выровнить текст, но не весь, а конкретный кусок.
Выделяю этот кусок текста, присоединяю WordParagraphFormat к нему, выравниваю
WordDocument.Paragraphs.Alignment := wdAlignParagraphRight;
но по правому краю выравнивается весь текст :-(, а остальной текст должен сохранить выравнивание по левому краю...
Как быть?
abv
Для: ApeX
WordDocument.Selection.Paragraphs.Alignment := wdAlignParagraphRight
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.
Форум IP.Board © 2001-2008 IPS, Inc.