0

当我单击 Excel 电子表格中的按钮时，我正在尝试使用 VBA 打开特定的 Word 文档。我想真正进入文档。然后我想将窗口的大小更改为“还原”。本质上，单词窗口应该是弹出框的大小。当我运行 VBA 时，我只是有时会被带到 word 文档。其余时间 Word 图标只是显示在我的 Windows 菜单栏上并闪烁。我在 Word 中的 VBA 完全没有任何作用。我在下面显示了我的 Word 和 Excel VBA。

My VBA in Excel

Private Sub CommandButton3_Click()
Set wordapp = CreateObject("word.Application")
wordapp.documents.Open "C:\Users\rossy\OneDrive\Work In Progress\Payroll and Billing 
Spreadsheet\Newest 148\Code\1.docx"
wordapp.Visible = True
wordapp.Application.Activate
End Sub

My VBA In Word

Private Sub Document_Open()
With Application
.WindowState = wdWindowStateNormal
.Resize Width:=InchesToPoints(5), Height:=InchesToPoints(5)
End With
End Sub
4

1 回答 1

1

如果您只想调整 Word 窗口的大小，我会删除 Word 文档中的 vba 代码，并将其添加到 Excel vba 代码中，如下所示：

Private Sub CommandButton3_Click()
    Set wordapp = CreateObject("word.Application")

    On Error GoTo OpenedErr

    Set doc = wordapp.documents.Open("C:\Users\rossy\OneDrive\Work In Progress\Payroll and Billing Spreadsheet\Newest 148\Code\1.docx")
   
    wordapp.Application.WindowState = wdWindowStateNormal
    wordapp.Application.Resize Width:=400, Height:=400
    
    wordapp.Visible = True
    wordapp.Application.Activate

OpenedErr:
    ' Don´t forget to clean memory once done
    Set doc = Nothing
    Set wordapp = Nothing
End Sub

请试试这个，看看它是否在没有闪烁的情况下正确打开（在我的电脑中它打开 Word 应用程序并激活它，我无法重现你提到的闪烁行为）。

如果这解决了您的问题，请将其标记为答案。

于 2022-02-12T08:31:29.793 回答