嘿，我碰到过类似的问题，来帮你捋一捋！你想让文档模拟打字机的效果，用VBA随机微调每个字符的基线，这个思路挺有意思的，但问题出在Word VBA里Font.Position这个属性的特性上。

先说说你当前代码的问题：
你生成的是-1到1之间的随机小数，但Font.Position实际上是整数类型（Long），当你给它赋值小数时，Word会自动把数值取整——比如0.8会变成0，-0.7也会变成0，只有当随机数接近-1或1时，才会被保留为-1或1。这就是为什么你看不到明显效果，大部分字符的基线偏移都被截断成0了。

而且还要注意，Font.Position的单位是半磅（不是磅），也就是说：

• 1对应0.5磅的向上偏移
• -1对应0.5磅的向下偏移
• 0就是默认基线

所以你之前看到的-1、0、1这三个值，实际偏移幅度是0.5磅的步长，可能还是有点明显，不符合你想要的“超细微调整”需求。

那怎么解决呢？给你两个可行的方案：

方案一：用OpenType字体的精细偏移（推荐） #

如果你的等宽字体是OpenType格式（比如Consolas、Courier New其实也支持），可以用Font.Typography.VerticalPosition属性，它支持小数类型的磅值，能实现更细腻的基线调整。修改后的代码如下：

Sub RandomizeBaseline()
    Dim rng As Range
    Dim char As Variant
    Dim baseline As Double
    
    Set rng = ActiveDocument.Range
    For Each char In rng.Characters
        ' 生成-0.5到0.5磅之间的随机偏移，你可以调整范围来控制幅度
        baseline = Rnd() * 1 - 0.5
        ' 使用Typography.VerticalPosition实现精细调整
        char.Font.Typography.VerticalPosition = baseline
    Next char
End Sub

这个属性的单位是磅，所以你可以直接设置0.1、0.3这种小数值，调整幅度会非常自然，完美模拟打字机的轻微晃动。

方案二：调整整数偏移的步长（兼容非OpenType字体） #

如果你的字体不支持OpenType特性，那可以调整随机数的范围，生成更小步长的整数偏移。比如我们生成-1、0、1这三个整数，对应0.5磅以内的偏移，代码如下：

Sub RandomizeBaseline()
    Dim rng As Range
    Dim char As Variant
    Dim baseline As Long
    
    Set rng = ActiveDocument.Range
    For Each char In rng.Characters
        ' 生成-1到1之间的随机整数，对应-0.5、0、0.5磅的偏移
        baseline = Int(Rnd() * 3) - 1
        char.Font.Position = baseline
    Next char
End Sub

这个方案的调整幅度比你原来的要小，视觉上会更贴近打字机的效果。

最后提醒一下：如果是长文档，遍历每个字符的速度可能有点慢，你可以考虑按段落或者选区来处理，但对于一般长度的文档，当前代码完全够用。

备注：内容来源于stack exchange，提问作者anon5001