【excel vba】在excel中激活并置前word窗口

Sub ActivateWordAndBringToFront()
    Dim wdApp As Object

    Set wdApp = GetObject(, "Word.Application") ' 尝试获取已经打开的 Word 应用
    If wdApp Is Nothing Then
        MsgBox "未找到打开的word文件!"
    Else
        ' 激活 Word 应用
        With wdApp
            .Visible = True ' 设置 Word显示属性
            .application.WindowState = 1 ' 激活窗口 表示窗体是最小化2、 最大化1,还是正常0
            AppActivate .Caption ' 激活窗口
        End With
    End If
End Sub

 

 

 

Dim wrdapp As Object
    Set wrdapp = GetObject(, "Word.Application")
            wrdapp.Visible = True
            wrdapp.Activate 'bring word visiable so erros do not get hidden.
wrdapp.WindowState = wdWindowStateMaximize
Set wrdapp = Nothing

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值