Quick Tips : Parametro do Delphi para Word sem limite de tamanho

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Veja nesta Quick como passar mais de 200 caracteres para um parametro via Delphi para o Word

Olá galera, nesta Quick Tips, irei mostrar como enviar como parâmetro um texto para o Word com mais de 200 caracteres, uma dica muito útil que foi montada com a ajuda do amigo Jorge Roberto Trento. Encontramos um problema onde os parâmetros que contém mais de 200 caracteres não são aceitos, porém com esta rotina podem ser passados quantos caracteres for preciso, um exemplo de onde usar isso é na montagem de contratos dinâmicos.

Veja o código abaixo

Dar uses em ComObj;

procedure TFrmPrincipal.Button1Click(Sender: TObject);
var
  MSWord: OleVariant;
begin
  if not OpenDialog1.Execute then
    Exit;
  MSWord := CreateOleObject('Word.Application');
  { Será aberto seu documento com o parametro a ser substituido }
  MSWord.Application.Documents.Open(OpenDialog1.FileName);
  // Deixo o word visivel
  MSWord.Visible := true;
  // 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 := '@parametro1';
  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;
  //Formatar o parametro mudado:
  MSWord.Application.Selection.Font.Name := '';
  MSWord.Application.Selection.Font.Size := 14;
  MSWord.Application.Selection.Font.Bold := False;
  MSWord.Application.Selection.Font.Color := wdColorRed;

  if MSWord.Application.Selection.Find.Found then { verifica se achou }
    // Substituo o parametro selecionado pelo texto que esta eu quero
    MSWord.Application.Selection.TypeText(Memo1.Lines.Text);
  end;
end.

Fico por aqui ate à próxima Quick Tips.

Um abraço

Wesley Y

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?