Creacion For dentro de una macro

[marr]

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?