Creacion For dentro de una macro

marr — Fri, 15 Nov 2024 21:39:16 GMT

Buenas.

Tengo el siguiente código:
ActiveDocument.Fields("imagen").SelectPossible
set TxSel = ActiveDocument.Fields("imagen").GetSelectedValues
'msgbox TxSel.item(0 ).texto

strNewText = Reemplazar(strNewText, "#t1i", pathImagenes&TxSel.item(0).text&".jpg")
strNewText = Reemplazar(strNewText, "#i10i",pathImagenes&TxSel.item (10).text&".jpg")
strNewText = Reemplazar(strNewText, "#i11i",pathImagenes&TxSel.item(11).text&".jpg")
strNewText = Reemplazar( strNewText, "#i12i",pathImagenes&TxSel.item(12).text&".jpg")
strNewText = Replace(strNewText, "#i13i",pathImagenes&TxSel.item(13).text&" .jpg")
strNewText = Reemplazar(strNewText, "#i14i",pathImagenes&TxSel.item(14).text&".jpg")
strNewText = Reemplazar(strNewText, "#i15i", pathImagenes&TxSel.item(15).text&".jpg")
strNewText = Replace(strNewText, "#i16i",pathImagenes&TxSel.item(16).text&".jpg")
strNewText = Reemplazar(strNewText, "#i17i",pathImagenes&TxSel.item(17).text&".jpg")

strNewText = Reemplazar(strNewText, "#i1i", pathImagenes&TxSel .item(1).text&".jpg")
strNewText = Reemplazar(strNewText, "#i2i", pathImagenes&TxSel.item(2).text&".jpg")
strNewText = Reemplazar(strNewText, "#i3i", pathImagenes&TxSel.item(3).text&".jpg")
strNewText = Replace(strNewText, "#i4i", pathImagenes&TxSel.item(4).text&amp ;".jpg")
strNewText = Reemplazar(strNewText, "#i5i", pathImagenes&TxSel.item(5).text&".jpg")
strNewText = Reemplazar(strNewText, "#i6i ", pathImagenes&TxSel.item(6).text&".jpg")
strNewText = Replace(strNewText, "#i7i", pathImagenes&TxSel.item(7).text&".jpg") < br />strNewText = Reemplazar(strNewText, "#i8i", pathImagenes&TxSel.item(8).text&".jpg")
strNewText = Reemplazar(strNewText, "#i9i", pathImagenes&TxSel.item (9).texto&".jpg")

strNewText = Reemplazar(strNewText, "#d10i", pathImagenes&TxSel.item(27).text&".jpg")
strNewText = Reemplazar(strNewText, "#d11i", pathImagenes&TxSel.item(28).text&".jpg")
strNewText = Reemplazar(strNewText, "#d12i", pathImagenes&TxSel. item(29).text&".jpg")
strNewText = Reemplazar(strNewText, "#d13i", pathImagenes&TxSel.item(30).text&".jpg")
strNewText = Reemplazar (strNewText, "#d14i", pathImagenes&TxSel.item(31).text&".jpg")
strNewText = Replace(strNewText, "#d15i", pathImagenes&TxSel.item(32).text& ".jpg")
strNewText = Reemplazar(strNewText, "#d16i", pathImagenes&TxSel.item(33).text&".jpg")
strNewText = Reemplazar(strNewText, "#d17i" , pathImagenes&TxSel.item(34).text&".jpg")

strNewText = Reemplazar(strNewText, "#d1i", pathImagenes&TxSel.item(18).text&".jpg")
strNewText = Reemplazar(strNewText, "#d2i", pathImagenes&TxSel.item (19).text&".jpg")
strNewText = Reemplazar(strNewText, "#d3i", pathImagenes&TxSel.item(20).text&".jpg")
strNewText = Reemplazar( strNewText, "#d4i", pathImagenes&TxSel.item(21).text&".jpg")
strNewText = Replace(strNewText, "#d5i", pathImagenes&TxSel.item(22).text&" .jpg")
strNewText = Reemplazar(strNewText, "#d6i", pathImagenes&TxSel.item(23).text&".jpg")
strNewText = Reemplazar(strNewText, "#d7i", pathImagenes&TxSel.item(24).text&".png") 'consulta entidades certificadas
strNewText = Replace(strNewText, "#d8i", pathImagenes&TxSel.item(25).text&".png" ) 'ranking
strNewText = Replace(strNewText, "#d9i", pathImagenes&TxSel.item(26).text&".jpg")

En el html lee esto de la siguiente formato:
<table cellpadding="0" cellpacing="0" style="width:338px; alineación de texto: izquierda; color:#000; borde: 1px sólido #ccc; relleno: 2px; margin-top:8px;" >
<tbody>
<tr style="border: 1px; ancho:320px;">
<td valign="ARRIBA">
<img src="#i1i" ancho="180"
alt="#i1" < br />title="#i1"style="float:izquierda; borde: 0px sólido # 666; margen derecho:8px;" />
</td>
<td>
<p style="margen:0; relleno: 1px; tamaño de fuente:12px;">
#i1
</p>
</td>
</tr>
<tr estilo ="borde:1px sólido #ccc; ancho:320px;">
<td style="text-align: right;font-size:12px; color: #000;" colspan="2">

<span style="color:#000; bloqueo de pantalla; peso de fuente:normal; margen: 1px; flotar derecho; relleno:2px 0px"></span>
<a href="#i1e" style="color:#000; bloqueo de pantalla; peso de fuente:normal; margen: 3px; flotar derecho; padding:2px" title="Ampliar noticia (abre en nueva ventana)" target="_blank">
<span style="text-decoration:none;">[+] </span> ver más
</a>
</td>
</tr>
</tbody>
</table&gt ;
<table cellpadding="0" cellpacing="0" style="width:338px; alineación de texto: izquierda; color:#000; borde: 1px sólido #ccc; relleno: 2px; margin-top:8px;" >
<tbody>
<tr style="border: 1px; ancho:320px;">
<td valign="TOP">
<img src="#i2i" ancho="180"
alt="#i2" < br />title="#i2"style="float:izquierda; borde: 0px sólido # 666; margen derecho:8px;" />
</td>
<td>
<p style="margen:0; relleno: 1px; tamaño de fuente:12px;">
#i2
</p>
</td>
</tr>
<tr estilo ="borde:1px sólido #ccc; ancho:320px;">
<td style="text-align: right;font-size:12px; color: #000;" colspan="2">

<span style="color:#000; bloqueo de pantalla; peso de fuente: normal; margen: 1px; flotar derecho; relleno:2px 0px"></span>
<a href="#i2e" style="color:#000; bloqueo de pantalla; peso de fuente: normal; margen: 3px; flotar derecho; padding:2px" title="Ampliar noticia (abre en nueva ventana)" target="_blank">
<span style="text-decoration:none;">[+] </span> ver más
</a>
</td>
</tr>
</tbody>
</table&gt ;
....
así describiendo todo los ii* y todos los di* pero me gustaría automatizarlo ya que cada vez que se modifica la cantidad de imágenes lado derecho o lado izquierdo tengo que hacerlo todo a mano .
¿Habría alguna forma de crearlo con un bucle tanto en el HTML como en la macro de qlikview?

topic Creacion For dentro de una macro in QlikView

Creacion For dentro de una macro