BorlandTalk.com

J. Baltisser · Guest

Hallo, kann jemand weiter helfen?

Habe ein Problem seit ich OfficePartner auf die neuste Version
geupdaqted habe. Ich erhalte nun vom Compiler einen Fehler da
anscheinend unklar ist welche Unit ich verwenden will (OPwrd97
oder OPwrdXP). Ich müsste eine Versions-spezifische-Methode aufrufen,
habe aber keine Ahnung wie das gehen soll. Der Code sieht in etwa
wie folgt aus (-> siehe weiter unten...)

Die Funktion OpWord.Server.Documents.Add(...) und
OpWord.Server.Documents.AddOld(...)
ergibt im Compiler dann die Fehler-Meldung:
Incompatible Types: 'OpwrdxP_Document' and 'Opwrd97_Document'

Kann mir jemand weiter helfen oder hat jemand eine Idee wie man dies
lösen
könnte? Besten Dank für Hilfe.

mailto: [email]jb (AT) jbaltisser (DOT) ch[/email]

Source Beispiel, das den Fehler erzeugt (OfficePartner 1.64 auf
Word97):

procedure TForm1.Button1Click(Sender: TObject);
var sVers, s, SAdresse: String;
BookmarkName, What, Which, Count : OleVariant;
iDoc : OpWrd97.Document;
begin
OpWord.Free;
OpWord := Nil;
OPWord := TOPWord.Create(OPWord);
OPWord.Connected := True;

OpWord.Visible := False;
WordSave := 'c:TestWordSave.doc';
aTemplate := 'c:Brf.dot';
OleFileFormat := integer(wdFormatDocument);
aDocumentType := wdNewBlankDocument;

sVers := OpWord.Server.Version;
if Copy(sVers, 1,3) = '8.0' Then
begin
iDoc := OpWord.Server.Documents.Add(aTemplate, EmptyParam,
aDocumentType, EmptyParam);
iDoc := OpWord.Server.ActiveDocument;
end;
OpWord.DisplayScrollBars := True;
OpWord.DisplayRecentFiles := True;

// s := iDoc.Get_FullName;
sAdresse := 'test Text Adresse';

BookmarkName := 'TM_Adresse';
What := wdGoToBookmark;
Which := unAssigned;
Count := unAssigned;
With OpWord.Server do // TOpWord
Begin
If IDoc.Bookmarks.Exists('TM_Adresse') Then
Begin
Selection.GoTo_(What, Which, Count, BookmarkName);
Selection.TypeText(sAdresse);
End;
End;
end;