Word VBA+API: 获取和设置屏幕分辩率,该怎么处理

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