Tempetes de Softmaster...

[adolforios]

Utilizo el templete de sofmaster para conectar clarion con word, me gustaria saber si alguien sabe como construir tablas en word desde clarion con estos templetes, o si tienen una idea mejor se los agradacere bastante saludos

[Manuel]

Hola,

Te copio algo que está hecho con C5.

?Word{'Application.WordBasic.Insert("' & clip(DMP:desmer) & CHR(9) &|
format(DMP:porder,@n6`2) & CHR(9) &|
format(DMP:porest,@n6`2) & CHR(9) &|
format(DMP:valmer,@n12`2) & CHR(13) &'")'}
canlin# += 1
end
?Word{'Application.Selection.Font.Bold'} = 9999998
?Word{'Application.Selection.Font.Size'} = 10
if PTO:tipmon = 'P' then
?Word{'Application.WordBasic.Insert("Pase a pesos: ' & CHR(9) &|
format(PTO:tippas,@n9`6) & CHR(9) &|
'Total (div.):' & CHR(9) &|
format(PTO:impfob,@n12`2) & CHR(13) &'")'}
else
?Word{'Application.WordBasic.Insert("Pase a dólares: ' & CHR(9) &|
format(PTO:tippas,@n9`6) & CHR(9) &|
'Total (div.):' & CHR(9) &|
format(PTO:impfob,@n12`2) & CHR(13) &'")'}
end
canlin# += 1
?Word{'Application.Selection.MoveLeft(1,1)'} !Volver un carácter hacia atras
?Word{'Application.Selection.HomeKey(5,1)'} !Seleccionar toda la linea
?Word{'Application.Selection.MoveUp(5,'& canlin# &',1)'} !Seleccionar todas las lineas anteriores
?Word{'Application.Selection.ConvertToTable(,' & canlin# &',4,,23)'} !Convertir las lineas seleccionadas a una tabla
?Word{'Application.Selection.ParagraphFormat.Alignment'} = 1 !Centrar todas las líneas
?Word{'Application.Selection.MoveDown(5,1)'} !Deseleccionar la tabla

?Word{'Application.WordBasic.Insert("'&CHR(13)&'")'}


Saludos
Manuel

[adolforios]

ml gracias por tu tiempo, lo pruebo en seguida, solo una pregunta el simbolo que aparece es una amperson?(&) saludos y mil gracias

[Manuel]

Sí

Sds
Manuel