El editor VB de tabla wps fusiona celdas con formato, ¿cómo realizar operaciones por lotes?

Ejemplo de ejecución:

Código de programa:

El texto del código del programa es el siguiente (el texto es solo de referencia, el navegador puede eliminar algunos símbolos especiales y espacios en blanco de alineación):

Opción explícita

Submacro 1()

Dim arr1, arr2, i&, j&

arr1 = Rango ("a1:c4 ")

ReDim arr2(1 a UBound(arr1), 1 a 1)

For i = 1 a UBound(arr1)

Para j = 1 a 3

arr2(i, 1) = arr2(i, 1) & arr1(i, j)

arr1(i, j) = Len( arr1(i, j ))

Siguiente j

Siguiente i

Rango("d1:d4") = arr2

Para i = 1 a UBound (arr1)

Para j = 1 a Len(arr2(i, 1))

Si j <= arr1(i, 1) entonces

Celdas (i, 4).Caracteres(j, 1).Font.Bold = Celdas(i, 1).Caracteres(j, 1).Font.Bold

ElseIf j <= arr1(i, 1 ) + arr1(i, 2) Entonces

Celdas(i, 4).Caracteres(j, 1).Font.Bold = Celdas(i, 2).Caracteres(j - arr1(i, 1 ), 1).Font.Bold

Else

Celdas(i, 4).Caracteres(j, 1).Font.Bold = Celdas(i, 3).Caracteres( j - arr1(i, 1) - arr1(i, 2), 1).Font.Bold

End If

Siguiente j

Siguiente i

Fin Sub