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

ダウン

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


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

実際、Word文書(たとえば、c:\ test.doc)を開く必要があり、何らかの理由でShellExecuteを使用したくないが、TWordApplication.Documents.Openメソッドを使用したい場合があります。 この関数には、次の一連のパラメーターが付属しています(word97.pasから取得)。
関数Open(var FileName:OleVariant; var ConfirmConversions:OleVariant; var ReadOnly:OleVariant; var AddToRecentFiles:OleVariant; var PasswordDocument:OleVariant; var PasswordTemplate:OleVariant; var Revert:OleVariant; var WritePassVlewordFile :OleVariant):WordDocument; safecall;
パラメーターの選択について「タイプの不一致」をscります(つまり、理解しやすいようです)。 誰かがこの機能を使用して作業した場合、そこで何をどのように転送するか教えてください:)



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

...、OleServer、Word97を使用します。 関数RepairText(Ws:WideString):文字列; var i:整数; Ch1、Ch2:Char; S:ストリング; 始める S:= Ws; 結果:= ""; Ch2:=#13; for i:= 1から長さ(S)-1開始 Ch1:= S [i]; Ch2:= S [i + 1]; 結果:=結果+ Ch1; if(Ch1 = #13)and(Ch2 <> #10)then結果:=結果+#10; 終わり; 結果:=結果+ Ch2; Ch2 = chEnterの場合、結果:=結果+#10; AnsiToOEM(PChar(結果)、PChar(結果)); OEMToAnsi(PChar(結果)、PChar(結果)); 終わり; function ImportWordFile(const FileName:String):文字列; var WordApp:TWordApplication; Doc:バリアント; 始める WordApp:= TWordApplication.Create(nil); 試してみる WordApp.ConnectKind:= ckNewInstance; WordApp.Connect; 試してみる Doc:= WordApp.Documents; Doc.Open(FileName); Doc:=未割り当て; WordApp.Selection.SetRange(0、$ 7FFFFFFF); 結果:= RepairText(WordApp.Selection.Text); ついに WordApp.WindowState:= 1; WordApp.Quit; WordApp.Disconnect; 終わり; ついに WordApp.Free; 終わり; 終わり;



ページ: 1 全枝

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

2階





メモリ:0.54 MB
時間:0.021 c
6-22316
dmur
2001-09-24 20:58
2002.01.08
ソケットによる接続時のエラーの遮断


14-22340
ユラズ
2001-11-06 10:09
2002.01.08
人々、クッキーがW2Kに保存されている場所と、それらを強打する方法を教えてください


3-21990
スカイ
2001-12-04 03:58
2002.01.08
LookUpフィールドの問題


1-22129
アレクサンドル
2001-12-19 16:04
2002.01.08
スクロールバーのちらつきを取り除くには?


4-22494
ガリフフ
2001-11-05 12:35
2002.01.08
難しいグラフィック印刷





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