Valeu a dica Eduardo, achei o exemplo, mas quando fui testar, na seção USES
tem um tal de OLEAUTO que está faltando e não me permite compilar. Você já
fez algo parecido ? Segue o código do exemplo abaixo:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Db, DBTables;
type
TForm1 = class(TForm)
btIniciar: TButton;
Query1: TQuery;
Query1Cid_Codigo: TIntegerField;
Query1Cid_Descricao: TStringField;
Query1Cid_UF: TStringField;
procedure btIniciarClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses OleAuto;
{$R *.DFM}
procedure TForm1.btIniciarClick(Sender: TObject);
var Word : Variant;
NumCol,I : Integer;
begin
NumCol := Query1.FieldCount;
Word := CreateOleObject('Word.Basic');
word.appshow;
word.filenew;
While not Query1.EOF do
Begin
For I:=1 to Query1.fieldcount-1 do
word.Insert(Query1.fields[i].AsString+#9);
Query1.Next;
End;
Word.editselectall;
Word.TextToTable(ConvertFrom := , NumColumns := NumCol);
word.TableSelectTable;
Word.TableSelectRow;
Word.TableHeadings(1);
Word.TableAutoFormat(Format:=16,HeadingRows:=1);
Word.edit;
end;
end.
-----Mensagem original-----
De: Eduardo Silva ® [mailto:[EMAIL PROTECTED]
Enviada em: segunda-feira, 7 de março de 2005 10:44
Para: delphi-br@yahoogrupos.com.br
Assunto: [Norton AntiSpam] RES: [delphi-br] Link Word / Paradox
Thomaz, tem sim, no Clube Delphi tem um link que explica como fazer isso
direitinho.
Não sei o link, mas da uma procurada lá.
-----Mensagem original-----
De: Thomaz Henrique Pulschen [mailto:[EMAIL PROTECTED]
Enviada em: segunda-feira, 7 de março de 2005 09:38
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Link Word / Paradox
Pessoal,
Há uma forma de inserir campos do Paradox dentro do Word: Por exemplo:
quero ter um texto feito no Word e inserir os clientes de uma tabela Paradox
para enviar uma carta para cada à partir do Word.
Abraço...
---------------------------------
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do
Yahoo! agora.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
----------------------------------------------------------------------------
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
<http://br.rd.yahoo.com/SIG=12aobcvpe/M=264379.5078783.6203979.1588051/D=brc
lubs/S=2137111264:HM/EXP=1110289786/A=2191897/R=0/SIG=10vqa2grn/*http://br.d
iversao.yahoo.com/>
<http://br.rd.yahoo.com/SIG=12aobcvpe/M=264379.5078783.6203979.1588051/D=brc
lubs/S=2137111264:HM/EXP=1110289786/A=2191897/R=1/SIG=10vqa2grn/*http://br.d
iversao.yahoo.com/>
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília
_____
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo! <http://br.yahoo.com/info/utos.html> .
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
