ホーム
Top.Mail.Ru Yandeks.Metrika
フォーラム: "WinAPI";
現在のアーカイブ:2002.01.08;
ダウンロード:[xml.tar.bz2];

ダウン

Word文書を開く(+) 似ている枝を探す


neverbee   (2001-11-06 12:11) [0]

Дело в том, что нужно открыть вордовый документ(к примеру, c:\test.doc), причем по некоторым причинам пользоваться ShellExecute не хочется, а хочется воспользоваться методом TWordApplication.Documents.Open. Данная ф-ция идет со следующим набором параметров(взято из word97.pas):
function Open(var FileName: OleVariant; var ConfirmConversions: OleVariant; var ReadOnly: OleVariant; var AddToRecentFiles: OleVariant; var PasswordDocument: OleVariant; var PasswordTemplate: OleVariant; var Revert: OleVariant; var WritePasswordDocument: OleVariant; var WritePasswordTemplate: OleVariant; var Format: OleVariant): WordDocument; safecall;
На подбор параметров(по смыслу вроде понятно) оно ругается "Type Mismatch". Если кто работал через данную ф-цию подскажите плз что и как туда передовать:)



Dimka Maslov   (2001-11-06 12:29) [1]


uses ..., OleServer, Word97;


function RepairText(Ws: WideString): String;
var
i: Integer;
Ch1, Ch2: Char;
S: String;
begin
S:=Ws;
Result:="";
Ch2:=#13;
for i:=1 to Length(S)-1 do begin
Ch1:=S[i];
Ch2:=S[i+1];
Result:=Result+Ch1;
if (Ch1 = #13) and (Ch2 <> #10) then Result:=Result+#10;
end;
Result:=Result+Ch2;
if Ch2 = chEnter then Result:=Result+#10;
AnsiToOEM(PChar(Result), PChar(Result));
OEMToAnsi(PChar(Result), PChar(Result));
end;

function ImportWordFile(const FileName: String): String;
var
WordApp: TWordApplication;
Doc: Variant;
begin
WordApp:=TWordApplication.Create(nil);
try
WordApp.ConnectKind:=ckNewInstance;
WordApp.Connect;
try
Doc:=WordApp.Documents;
Doc.Open(FileName);
Doc:=Unassigned;
WordApp.Selection.SetRange(0, $7FFFFFFF);
Result:=RepairText(WordApp.Selection.Text);
finally
WordApp.WindowState:=1;
WordApp.Quit;
WordApp.Disconnect;
end;
finally
WordApp.Free;
end;
end;



ページ: 1 全枝

フォーラム: "WinAPI";
現在のアーカイブ:2002.01.08;
ダウンロード:[xml.tar.bz2];

2階









メモリ:0.55 MB
時間:0.023 c
1-22188
アート
2001-12-14 13:09
2002.01.08
大きなファイルの読み方???


4-22477
アート
2001-10-31 12:17
2002.01.08
すべてのプログラムを実行しているすべてのプロセスを確認する方法


1-22057
アレクセイV
2001-12-19 03:34
2002.01.08
対話を引き起こす方法


7-22442
アレクセイ
2001-09-26 15:20
2002.01.08
モデムの可用性を判断する方法は?


3-21948
andre_polt
2001-12-04 16:22
2002.01.08
DB





アフリカーンス語 アルバニア語 Arabic アルメニア語 アゼルバイジャン語 バスク ベラルーシ Bulgarian カタロニア語 中国語(簡体字) 中国語(繁体字) クロアチア チェコ語 デンマーク語 Dutch 英語 エストニア語 タガログ語 Finnish フランス語
ガリシア語 ジョージアン ドイツ語 ギリシャ語 ハイチ語 ヘブライ語 ヒンディー語 ハンガリー語 アイスランド語 Indonesian アイリッシュ イタリア語 日本語 Korean ラトビア語 リトアニア マケドニア語 Malay マルタ語 Norwegian
ペルシア語 ポリッシュ ポルトガル語 ルーマニア ロシア語 セルビア Slovak スロベニア語 スペイン語 スワヒリ語 Swedish Thai トルコ語 ウクライナ語 ウルドゥー語 ベトナム語 ウェールズ語 イディッシュ語 ベンガル語 ボスニア語
セブアノ語 エスペラント グジャラート語 ハウサ語 モン族 イボ ジャワ語 カンナダ語 クメール語 ラオ語 ラテン マオリ語 マラーティー語 モンゴル語 ネパール語 パンジャブ語 ソマリ タミル語 テルグ語 ヨルバ語
ズールー語
Английский Французский Немецкий Итальянский ポルトガル語 Русский Испанский