&& Description of a piece of land var_a = "Lote com 250,00 metros quadrados com 10,00 metros de frente para a Rua Projetada 01, " + : "do lado direito com 25,00 metros, confrontando com o lote 09, do lado esquerdo com 25,00" + ; "metros, confrontando com o lote 11 e nos fundos com 6,91 metros confrontando com o Jd. " + ; "Nossa Senhora do Amparo e com 3,09 metros, confrontando com Francelino Camargo ou " + ; "Sucessores" #INCLUDE "MSWord9.h" LOCAL oWord AS "Word.Application" * Cria instancia se não existir IF TYPE("oWord") <> "O" oWord = CREATEOBJECT("Word.Application") ENDIF . oWord.VISIBLE = .F. . oWord.Documents.ADD(template) . . . loSelection.FIND.ClearFormatting() * @@VAR_A oRange = oWord.ActiveDocument.RANGE(0,0) #DEFINE wdReplaceAll 2 WITH oRange.FIND .ClearFormatting .TEXT ="@@VAR_A" .FORMAT = .F. WITH .Replacement .ClearFormatting .TEXT = var_a ENDWITH lFound = .Execute( , , , , , , , , , , wdReplaceAll ) ENDWITHIt returns this error message:
"OLE IDispatch exception code 0 from Microsoft Word: The parâmeters of the character sequence is to long..."
Problem: