Casa
Top.Mail.Ru Yandeks.Metrika
Fórum: "WinAPI";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

Para baixo

Abrindo documento do Word. (+) Encontre agências semelhantes


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

O fato é que você precisa abrir um documento do Word (por exemplo, c: \ test.doc) e, por algum motivo, não deseja usar o ShellExecute, mas deseja usar o método TWordApplication.Documents.Open. Esta função vem com o seguinte conjunto de parâmetros (extraído de word97.pas):
função 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; chamada segura;
Ele repreende "Tipo incompatível" na seleção de parâmetros (o que parece ser compreensível). Se alguém trabalhou com esse recurso, me diga o que e como transferir para lá :)



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

usa ..., OleServer, Word97; função RepairText (Ws: WideString): String; var i: Inteiro; Ch1, Ch2: Char; S: String; começar S: = Ws; Resultado: = ""; Ch2: = # 13; para i: = 1 em Comprimento (S) -1 começa Ch1: = S [i]; Ch2: = S [i + 1]; Resultado: = Resultado + Ch1; if (Ch1 = #13) e (Ch2 <> #10), então Resultado: = Resultado + # 10; fim; Resultado: = Resultado + Ch2; se Ch2 = chEnter, então Resultado: = Resultado + # 10; AnsiToOEM (PChar (resultado), PChar (resultado)); OEMToAnsi (PChar (resultado), PChar (resultado)); fim; função ImportWordFile (const FileName: String): String; var WordApp: TWordApplication; Doc: Variante; começar WordApp: = TWordApplication.Create (nulo); tentar WordApp.ConnectKind: = ckNewInstance; WordApp.Connect; tentar Doc: = WordApp.Documents; Doc.Open (FileName); Doc: = Não atribuído; WordApp.Selection.SetRange (0, $ 7FFFFFFF); Resultado: = RepairText (WordApp.Selection.Text); finalmente WordApp.WindowState: = 1; WordApp.Quit; WordApp.Disconnect; fim; finalmente WordApp.Free; fim; fim;



Страницы: 1 filial inteira

Fórum: "WinAPI";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

em cima





Memória: 0.55 MB
Hora: 0.021 c
3-21898
Delírio
2001-11-30 18:56
2002.01.08
É possível executar de forma assíncrona o procedimento armazenado?


6-22316
dmur
2001-09-24 20:58
2002.01.08
Intercepção de erros na conexão por meio de soquetes


1-22235
DDDeN
2001-12-17 06:47
2002.01.08
Protetor de tela


1-22173
Petyun
2001-12-20 19:33
2002.01.08
Instalação de componentes


4-22463
Dmitry Alferev
2001-11-01 23:38
2002.01.08
FindResource não pode encontrar um recurso





afrikaans albanês Arabic armênio azerbaijano basco belarusian Bulgarian catalão Chinês simplificado) Chinês tradicional) croata checo dinamarquês Dutch Inglês estoniano filipino Finnish French
Galego georgiano German grego crioulo haitiano hebraico hindi húngaro islandês Indonesian irlandês Italian Japanese Korean letão lituano macedónio Malay maltês Norwegian
persa polonês Portuguese Romeno Russa sérvio Slovak esloveno Espanhol swahili sueco tailandês turco ucraniano urdu vietnamita galês ídiche bengali bósnio
cebuano esperanto gujarati hausa hmong igbo javanês kannada khmer lao latino maori marata mongol Nepali punjabi somali tâmil telugu yoruba
zulu
Английский francês Alemão Italiano Португальский russo Espanhol