word判断页边距

ylp345213 · 发表于 2019-10-23 16:16

If Me.Application.ActiveDocument.PageSetup.LeftMargin = CentimetersToPoints(2.5) Then

MsgBox "操作成功"
Else
MsgBox "错误"
End If
为什么一直返回错误，求助各位哪里没有设置正确

ming0018 · 发表于 2019-10-23 17:09

自己Debug.print出来看一下
PointsToCentimeters
CentimetersToPoints
转换是有误差的

413191246se · 发表于 2019-10-23 18:50

Sub test()
If Round(ActiveDocument.PageSetup.LeftMargin / 28.36, 2) = 2.5 Then
MsgBox "操作成功！", 0 + 48, "页边距"
Else
MsgBox "错误！", 0 + 16, "页边距"
End If
End Sub

ylp345213 · 发表于 2019-10-24 10:20

谢谢

ylp345213 · 发表于 2019-10-24 10:25

测试了也是不成功

daibao88 · 发表于 2019-10-24 11:09

If VBA.Abs(ActiveDocument.PageSetup.LeftMargin - CentimetersToPoints(2.5)) <= 0.01 Then
MsgBox "操作成功"
Else
MsgBox "错误"
End If

daibao88 · 发表于 2019-10-24 11:10

数据转换（磅厘米）会有误差产生

ylp345213 · 发表于 2019-10-24 11:31

测试了判断语句左边结果是9999928,明显>0.01.我把<=0.01改为>=0.01就正确。但是这个值相差好大啊

		自动登录	找回密码
密码			免费注册