Word VBA+API: 获取和设置屏幕分辩率
求一段VBA+API，用在Word的一个按钮里，要求功能：获取和设置屏幕分辩率
我要的是在Word里能运行的。
回答此问题的高手，可以同时回答下面的这个雷同帖得两次分。
http://topic.csdn.net/u/20120303/07/e54f2afd-8b5f-40d8-9a13-b1314b25d24b.html?08936443507976747
[解决办法]
获取分辨率很简单
Option Explicit
Private Sub Command1_Click()
Dim lngW As Long '分辨率的宽
Dim lngH As Long '分辨率的高
lngW = Screen.Width / 15
lngH = Screen.Height / 15
Debug.Print "屏幕分辨率是：" & lngW & " * " & lngH
End Sub
