Preencher célula com espaços

[FMolon]

Olá!
Estou criando uma planilha para importar para um otimizador de corte. O problema é que esse otimizador requer que cada campo tenha uma quantidade específica de caracteres.
Já consegui configurar os campos que são preenchidos com números para usarem espaços em branco nos espaços para caracteres vazios formatando as células para usarem o formato “???”, porém o mesmo não funciona em células que recebem texto.
É possível configurar tais células de forma parecida, preenchendo com espaços os campos faltantes?

[LeroyG]

@FMolon

preenchendo com espaços os campos faltantes

preencher com espaços LeroyG.ods (12.5 KB)

[schiavinatto]

Ola @FMolon , segue uma sugestão, por intermédio do ChatGPT,
ligar ao Evento de Planilhas, conteúdo alterado.

Sub CompletarComEspacos(oEvento As Object)
    Dim oDoc As Object
    Dim oCelula As Object
    Dim Conteudo As String
    
    ' Objeto da célula que sofreu alteração
    oCelula = oEvento
    
    ' Verifica se a célula não está vazia
    If Not IsNull(oCelula.getString()) Then
        Conteudo = oCelula.getString()
        
        ' Só aplica se for texto
        If Conteudo <> "" Then
        
            ' Verifica se o comprimento é menor que 6
            If Len(Conteudo) < 6 Then '<=============================
            
                ' Preenche com espaços até 6 caracteres
                Conteudo = Conteudo & String(6 - Len(Conteudo), " ")
                oCelula.setString(Conteudo)
            End If
        End If
    End If
End Sub