注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

phperwuhan的博客

记载一个phper的历程!phperwuhan.blog.163.com

 
 
 

日志

 
 

word文档后控制word窗口的大小和位置  

2009-11-06 23:01:17|  分类: VBA |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

来源:http://topic.csdn.net/t/20060630/11/4852506.html

Private   Declare   Function   FindWindow   Lib   "user32"   Alias   "FindWindowA"   (ByVal   lpClassName   As   String,   ByVal   lpWindowName   As   String)   As   Long  
  Private   Declare   Function   MoveWindow   Lib   "user32"   (ByVal   hwnd   As   Long,   ByVal   x   As   Long,   ByVal   y   As   Long,   ByVal   nWidth   As   Long,   ByVal   nHeight   As   Long,   ByVal   bRepaint   As   Long)   As   Long  
   
  Private   Sub   Command1_Click()  
          Dim   wdApp   As   Object  
          Dim   wdBook   As   Object  
          Set   wdApp   =   CreateObject("Word.Application")  
          Set   wdBook   =   wdApp.Documents.Open("c:\test.doc")  
          wdApp.Visible   =   True  
           
          If   ActiveWindow.View.SplitSpecial   =   wdPaneNone   Then  
                  ActiveWindow.ActivePane.View.Type   =   wdMasterView  
                  'ActiveWindow.ActivePane.View.Type   =wdNormalView  
                  'ActiveWindow.ActivePane.View.Type   =wdOutlineView  
                  'ActiveWindow.ActivePane.View.Type   =wdPrintPreview  
                  'ActiveWindow.ActivePane.View.Type   =wdPrintView  
                  'ActiveWindow.ActivePane.View.Type   =   wdWebView  
          Else  
                  ActiveWindow.View.Type   =   wdMasterView  
                  'ActiveWindow.View.Type   =   wdNormalView  
                  'ActiveWindow.View.Type   =   wdOutlineView  
                  'ActiveWindow.View.Type   =   wdPrintPreview  
                  'ActiveWindow.View.Type   =   wdPrintView  
                  'ActiveWindow.View.Type   =   wdWebView  
          End   If  
          Application.ActiveWindow.DocumentMap   =   True         '显示文档结构  
           
          Dim   wHwnd   As   Long  
          wHwnd   =   FindWindow("OpusApp",   "Word窗体的标题")  
          MoveWindow   wHwnd,   100,   100,   400,   300,   True  
  End   Sub  
   
  -----------------  
  wdMasterView  
  wdNormalView  
  wdOutlineView  
  wdPrintPreview  
  wdPrintView  
  wdWebView  
   
  这是些Word的几种显示模式,自己一个合适的

  评论这张
 
阅读(664)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017