Fórum o parametro da sequencia de caracteres é muito longo #502204

Cadê os programadores delphi?
Me ajudem aí gente!

Essa é uma limitação do word, que só permite 255 caracteres para substituição.

Você pode substituir pelo conteúdo que está na área de transferência: http://gregmaxey.mvps.org/word_tip_pages/find_replace_long_string.html

Por favor, eu preciso resolver esse problema de limitação com esse erro:
"o parametro da sequencia de caracteres é muito longo"
Pelo vb.net consegui fazer fazer uma aplicação semelhante a do delphi e não tem limite de caracteres.
Ele roda normal.
Segue o código usado no delphi:

procedure TF_teste_button1Click(Sender: TObject);
var

findtext:string;
ReplaceWith:string;
Replace:string;
WApp: variant; // variável associada ao aplicativo Microsoft Word
WDoc: variant; // variável associada ao documento criado no Word
path: WideString;
begin

// verifica se o Microsoft Word já está aberto
if (VarIsEmpty(WApp))
then WApp := CreateOleObject('Word.Application');

path := ExtractFilePath(Application.ExeName);

begin

WDoc := WApp.Documents.open('C:\documentos\teste.dotx');
WApp.Visible := True;
end;


// move os componentes de entrada da aplicacao Delphi
// para os campos de texto do recibo no Microsoft Word
wdoc.Content.Find.Execute(FindText := '@nome', ReplaceWith := edtnome.Text,Replace :=2);

Por favor, eu realmente estou precisando muito da ajuda de vocês!

Olá Clecio, tudo bem?

Eu fiz um artigo há muito tempo em Delphi 2009/2010 onde isso estava funcionando, infelizmente não trabalho mais com Delphi, você poderia tentar analisar no meu artigo, veja o link:

Artigo Delphi com Word

Um abraço e até mais.

Bom di Clecio,

fiz um programa em Delphi 7, que faz o que você quer, ele busca o arquivo 'Teste.docx' no diretório do executável e substitui a palavra 'teste' com o conteúdo do edit1.

Verifique a uses (ComObj, Word97, Clipbrd).

Espero que resolva.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComObj, Word97, Clipbrd;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
MSWord : Variant;
begin
MSWord := CreateOleObject('Word.Application');
MSWord.Documents.Open(ExtractFilePath(Application.ExeName) + 'Teste.docx');
MSWord.Visible := True;
Clipboard.asText := Edit1.Text;
MSWord.ActiveDocument.Content.Find.Execute(FindText := 'teste', ReplaceWith := '^c', Replace := 2);

end;

end.