Fórum copiar trecho do word #365118

Amigo procure na Internet por Ole Automation (Automação com Ole Objects) ou WordApplication.
Caso não tenha êxito, volte a postar que eu arrumo um tempo pra fazer um exemplo e te mandar.

Amigo, se você puder e não for incomodar, por favor me ajude:

pesquisei bastante no google e achei varios lugares ensinando a abrir documentos de word.

eu posso abrir, selecionar texto, copiar para o clipboard etc e talz, mas não achei nenhuma forma de copiar o conteudo selecionado para uma variavel em vez de copiar para a clipboard.

tambem não achei uma forma de copiar o conteudo da clipboard para uma variavel.

Pra quê copiar o conteúdo do texto para o Clipboard e depois passar para uma variável?

Ps.: Depois eu posto um exemplo dependendo da sua resposta (ou seja, quando eu entender pra que é o código).

então, como eu disse, eu não consigo copiar um conteudo de um documento de word para outro. Não consigo pegar por exemplo um paragrafo de um documento, copiar para uma variavel e depois jogar esse conteudo para um outro documento.


eu consigo coipar o texto selecionado para a clipboard usando o metodo copy, e depois colar no outro word usando o metodo paste.

O problema em se usar a clipboard está aqui: num loop de 1000 documentos juridicos, onde eu copio um mesmo paragrafo para 1000 documentos que são diferentes, se o usuario minimizar meu programa e copiar alguma outra coisa com clrl-c o loop vai passar a colar nos documentos de word de destino restantes o que o usuario acabou de copiar, que está no clipboard, e não aquilo que eu queria.

Como serão sempre dois documentos abertos ao mesmo tempo você pode utilizar duas variáveis pra gardar o documento original e outra para os 1000 documentos.
Vou elaborar um exemplo e posto aqui mais tarde

o word, a partir do xp, consegue manter multiplos objetos na clipboard.

como ele faz isso? Como eu poderia fazer um gerenciador de clipboard proprio, parecido com isso? Assim eu guardaria um objeto da clipboard numa determinada posição e colaria o conteudo no word a partir deste.

Vc quer só copiar ou substituir uma string no arquivo DOC ?

se quiser só abrir, substituir dê uma olhada neste topico;

[url] http://forum.devmedia.com.br/viewtopic.php?t=97988 [/url]

Ele faz isto abre um doc e altera o conteudo.

emarcolongo, é abrir um documento tipo modelo, selecionar um texto nele. Aí fazer uma iteração numa pasta percorrendo x outros documentos procurando por <#substituaaqui> e substituindo pelo texto copiado no documento modelo.
Seu exemplo pode ser usado como base para ele. Só precisa implementar o loop e o texto a ser substituido. No caso ele está usando Clipboard mas pode-se usar WordApplication1.Selection.Text para jogar o texto selecionado para uma variável do tipo String, por exemplo.

Isso não serve, eu não quero substituir um texto do word por uma string de um edit ou do banco de dados, eu quero substituir por um trecho copiado de outro word. Esse texto pode conter figuras e tabelas

São documentos jurídicos, e as assinaturas dos juízes sempre são figuras.

Eu uso isso para um juiz replicar seus pareceres, anotações e assinaturas em todos os documentos do(s) seu(s) processos ou sob sua custodia.

marcosrocha,

o método que você falou funcionou parcialmente. Consegui copiar de um word para o outro um trecho de texto selecionado, sem passar pelo clipboard. o problema é que não consegui copiar a formatação.

consegui fazer isso aqui:




porem ainda não está copiando a formatação e os demais elementos.

será que não tem jeito?

procurei em tudo quanto é lugar.

Se tem alguma revista clube delphi falando disso deve ser uma edição que eu não tenho.

valew!

Complementando o exemplo citado acima, consegui não utilizar o ClipBoard, utilizando o "FormattedText":

Boa tarde Vitor... Eu tenho esta rotina para imprimir a ordem de serviço dos funcionários.... Aqui está a rotina inteira que roda em meu sistema... Lembre-se de que você tem que ter um modelo com as variáveis dos @textoAserSubstituido...

procedure TfrmFuncionario.sbImprimirOSClick(Sender: TObject);
var
MSWord: OleVariant;
v_dd, v_mm, v_aa, v_TipoRisco, NomeDoc: String;
linha, linhaP, v_Linha, I: integer;
const
wdHeaderFooterPrimary = 1;

begin
if (tbFuncOS.RecordCount > 0) and (tbRiscoFunOS.RecordCount > 0) then
begin
Mdadosempr.Text := tbFuncOSDadosEmpr.Value;
Mresumo.Text := tbFuncOSDados0.Value;

Mrisco.Text := '';
Mlesao.Text := '';
Melimina.Text:='';
NomeDoc:= 'MODELO OS.doc';

MSWord := CreateOleObject('Word.Application');
{ Será aberto seu documento com o parametro a ser substituido }
MSWord.Application.Documents.Open(ExtractFilePath(Application.ExeName) + NomeDoc);
// Inicia aqui
// Limpo os parametros de busca do word
MSWord.Application.Selection.Find.ClearFormatting;
{ Adiciono no find o parametro que quero buscar dentro do word e abaixo esta selecionado as condições }

MSWord.Application.Selection.Find.Text := '@nome';
MSWord.Application.Selection.Find.Replacement.Text := '';
MSWord.Application.Selection.Find.Forward := true;
MSWord.Application.Selection.Find.Format := False;
MSWord.Application.Selection.Find.MatchCase := False;
MSWord.Application.Selection.Find.MatchWholeWord := False;
MSWord.Application.Selection.Find.MatchWildcards := False;
MSWord.Application.Selection.Find.MatchSoundsLike := False;
MSWord.Application.Selection.Find.MatchAllWordForms := False;
// Executo o pesquisa, o parametro se estiver no texto vai ficar selecionado
MSWord.Application.Selection.Find.Execute;
if MSWord.Application.Selection.Find.Found then { verifica se achou }
// Substituo o parametro selecionado pelo texto que esta eu quero
MSWord.Application.Selection.TypeText(frmFuncionario.tbFuncNome.Text);

MSWord.Application.Selection.Find.Text := '@cargo';
MSWord.Application.Selection.Find.Replacement.Text := '';
MSWord.Application.Selection.Find.Forward := true;
MSWord.Application.Selection.Find.Format := False;
MSWord.Application.Selection.Find.MatchCase := False;
MSWord.Application.Selection.Find.MatchWholeWord := False;
MSWord.Application.Selection.Find.MatchWildcards := False;
MSWord.Application.Selection.Find.MatchSoundsLike := False;
MSWord.Application.Selection.Find.MatchAllWordForms := False;
// Executo o pesquisa, o parametro se estiver no texto vai ficar selecionado
MSWord.Application.Selection.Find.Execute;
if MSWord.Application.Selection.Find.Found then { verifica se achou }
// Substituo o parametro selecionado pelo texto que esta eu quero
MSWord.Application.Selection.TypeText(frmFuncionario.tbFuncv_Cargo.Text);

// Salvar Documento
Messagedlg('Se não visualizar a OS, verifique na barra de ferramentas do windows.... Ok!!!',mtWarning,[mbOk],0);
editnome.Text:=frmFuncionario.tbFuncNome.Text + '.doc';
// Deixo o word visivel
MSWord.Visible := true;

MSWord.ActiveDocument.SaveAs(editnome.Text,0);
// MSWord.Quit;
end
else
ShowMessage('Não existe O.S. lançada no funcionário... Lance a O.S. para imprimir... Ok!!!');
end;