Casa
Top.Mail.Ru Yandeks.Metrika
Foro: "WinAPI";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

abajo

Abrir un documento de Word. (+) Encontrar ramas similares


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

El hecho es que necesita abrir un documento de Word (por ejemplo, c: \ test.doc) y, por alguna razón, no desea usar ShellExecute, pero desea usar el método TWordApplication.Documents.Open. Esta función viene con el siguiente conjunto de parámetros (tomado de word97.pas):
función Abrir (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; llamada segura
Regaña "No coinciden los tipos" en la selección de parámetros (lo que significa que parece comprensible). Si alguien trabajó a través de esta función, dígame qué y cómo transferir allí :)



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;



Páginas: 1 rama entera

Foro: "WinAPI";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

arriba





Memoria: 0.54 MB
Tiempo: 0.024 c
1-22191
Stalker_boss
2001-12-16 02:50
2002.01.08
sonar


1-22035
contrabandista
2001-12-18 14:02
2002.01.08
Editor de texto2


6-22271
Víctor
2001-10-04 20:15
2002.01.08
No hubo conexión remota durante la conexión ????


14-22331
vasco
2001-10-26 17:57
2002.01.08
¿Hay muchos zurdos entre los programadores?


6-22297
Interrogador
2001-10-10 17:09
2002.01.08
Aconsejar a quien puede





africaans albanés Arabic armenio Azerbaiyán vasco Bielorruso Bulgarian Catalán Chino (simplificado) Chino (tradicional) Croata Checo Danés Dutch Inglés Estonia filipina Finnish French
gallego georgiano Alemán Griego criollo haitiano Hebreo hindi Húngaro islandés Indonesian irlandés Italiano Japonés Korean letón lituano macedonio Malay maltés Noruego
persa polaco Portuguese Rumano Ruso Serbio Slovak Esloveno Español swahili Sueco Thai turco ucranio Urdu vietnamita galés yídish bengalí bosnio
cebuano esperanto gujarati hausa hmong igbo javanés kannada khmer lao latín maorí marathi mongol nepali punjabi somalí Tamil telugu yoruba
zulú
Английский Francés Alemán Italiano portugués Русский Español