Início / computer / Perguntas / 1792280
Accepted
anon5001
Asked: 2023-06-28 23:06:46 +0800 CST

Formatação não convencional do MSWord usando linhas de base

  • 772

Eu fiz essa pergunta "ontem" no Graphic Design SE, mas fui informado de que o SuperUser seria mais útil no que estou tentando realizar. Minha dúvida é sobre o uso de linhas de base, mas lembre-se de que tenho uma cópia do MSOffice 2016 Home & Student.

Estou tentando escrever o VBA para realizar o ajuste de caracteres individuais em todo o meu documento:

Sub RandomizeBaseline()
    Dim rng As Range
    Dim char As Variant
    Dim baseline As Double
    Set rng = ActiveDocument.Range
    For Each char In rng.Characters
        baseline = Rnd() * 2 - 1
        char.Font.Position = baseline
    Next char
End Sub

A intenção disso, para começar, é fazer com que um documento pareça ter sido digitado em uma máquina de escrever. Eu já tenho uma fonte monoespaçada para trabalhar, mas com a maneira como o MSWord analisa isso torna os valores de linha de base aleatórios -1, 0 ou 1. Defini-los como valores decimais para tornar a mudança de linha de base menos dramática aparentemente trunca para apenas zero e não muda absolutamente nada. O código analisa cada caractere do documento, visto pelo histórico de edição ao clicar em 'Desfazer', mas não há diferença visível. Como devo corrigir isso para o meu projeto ultra específico pretendido?

vba

1 respostas

  1. Best Answer

    Respondi minha própria pergunta - imagine isso. Não considerei o fato de poder "espaçar" razoavelmente as linhas de base com um randomizador variável. O código para isso é o seguinte:

    Sub RandomizeBaseline()
    Dim rng As Range
    Dim char As Variant
    Dim baseline As Double
    Dim counter As Integer
    
    ' Set the range to the entire document
    Set rng = ActiveDocument.Range
    
    ' Initialize the counter
    counter = 0
    
    ' Loop through each character in the range
    For Each char In rng.Characters
        ' Increment the counter
        counter = counter + 1
        
        ' Check if the counter is a multiple of 10
        If counter Mod 10 = 0 Then
            ' Generate a random baseline value between -1 and 1
            baseline = Rnd() * 2 - 1
            
            ' Apply the baseline position to the character
            char.Font.Position = baseline
        End If
    Next char
End Sub
    • 0

relate perguntas