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.

WordDocument1.Range.Information(wdActiveEndPageNumber или wdActiveEndAdjustedPageNumber) - активная страница
WordDocument1.Range.Information(wdNumberOfPagesInDocument) - количество страниц в документе

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

ShellExecute(nil, ...);