主页 / computer / 问题 / 1792280
Accepted
anon5001
Asked: 2023-06-28 23:06:46 +0800 CST

使用基线的非常规 MSWord 格式

  • 772

我“昨天”在 Graphic Design SE 上问过这个问题，但有人提示我超级用户对于我想要完成的任务会更有用。我的问题是关于基线的使用，但请记住，我有一份 MSOffice 2016 Home & Student。

我正在尝试编写 VBA 在整个文档中执行单个字符调整：

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

这样做的最初目的是使文档看起来就像是在打字机上打字的一样。我已经有了一个可以使用的等宽字体，但是 MSWord 解析的方式使随机基线值变为 -1、0 或 1。将这些值设置为十进制值可以使基线偏移不那么剧烈，显然会截断为仅零并且根本不会改变任何东西。该代码确实解析了文档中的每个字符，单击“撤消”时可以从编辑历史记录中看到，但没有明显的差异。我应该如何为我想要的超具体项目解决这个问题？

vba

1 个回答

  1. Best Answer

    回答了我自己的问题 - 想象一下。我没有考虑到我可以使用变量随机化器合理地“间隔”基线这一事实。其代码如下：

    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

相关问题