VBS如何调节指定窗口的大小？

Cameron

调节为***×***的形式，不知可不可以实现？有劳各位了！

rat

1. Option Explicit
   
2. 
   
3. ResizeWindow "Windows 任务管理器", 300, 300
   
4. 
   
5. 
   
6. 
   
7. Sub ResizeWindow(sWindowName, iWidth, iHeight)        '窗体名称、宽度和高度（需要安装 Microsoft Word）
   
8.         Dim oWord, oTasks, oTask
   
9.         Const wdWindowStateNormal = 0
   
10.         Set oWord = CreateObject("Word.Application")
    
11.         Set oTasks = oWord.Tasks
    
12.        
    
13.         If oTasks.Exists(sWindowName) Then
    
14.                 Set oTask = oTasks(sWindowName)
    
15.                 With oTask
    
16.                         If .WindowState <> wdWindowStateNormal Then
    
17.                                 .Activate
    
18.                                 .WindowState = wdWindowStateNormal
    
19.                         End If
    
20.                         .Resize iWidth, iHeight
    
21.                 End With
    
22.         End If
    
23.        
    
24.         oWord.Quit
    
25.        
    
26.         Set oTask = Nothing
    
27.         Set oTasks = Nothing
    
28.         Set oWord = Nothing
    
29. End Sub

复制代码

Cameron

啊！我是深度精简版，没有office，不知注册那个文件就能用了？