为什么 Word 不“出现在前面”？当我们激活它时？

Question

我们的 winforms 应用程序与 MS Word 交互，当生成文档时我们运行此代码，并且我们希望在我们的应用程序前面的 Word 中显示它：

[setup w as a Word interop object]

w.Visible = True
w.Activate()

当推出到运行 Office 2007 的 XP 计算机时，它的工作原理如下故意的。

在运行 Office 2010 的 Win7 计算机上，文档会加载到我们的应用程序后面并在任务栏上闪烁。

有什么想法吗？

Answer 1

我最近偶然发现了类似的问题。我的.NET程序称为COM应用程序，但在Win7上它有时既不会显示在任务栏中，也不会显示在桌面上。我无法真正找出原因，但我编写了以下函数来解决该问题：

[System.Runtime.InteropServices.DllImport("User32.dll")]
private static extern bool SetForegroundWindow(IntPtr hwnd);

private static void BringAppToFront() {
    foreach (var p in System.Diagnostics.Process.GetProcesses().Where(p => p.ProcessName == "COMInstanceName")) {
        if (p.MainWindowHandle.ToInt32() != 0)
            SetForegroundWindow(p.MainWindowHandle);
    }
}

Answer 2

将应用程序从带有 Word 2002&3 的 XP 转换为带有 Word 2010 的 Win 7 时遇到同样的问题。发现您打开的第一个文档出现以下情况，之后任何新文档都会在任务栏中闪烁。

打开Word文档后：

document.Activate();
mWordApplication.Activate();

foreach (Word.Window window in document.Windows)
{
    window.WindowState = Word.WdWindowState.wdWindowStateMinimize;
    window.WindowState = Word.WdWindowState.wdWindowStateMaximize;
}

策略是转到显示文档的窗口。最小化和最大化会将文档的窗口置于最前面。

您可以对应用程序对象执行相同的操作（如此处建议的 http: //www.access-programmers.co.uk/forums/showthread.php?t=173871 注意：如果窗口一开始就最大化，则最大化而不最小化没有帮助），但是如果您有很多Word打开文档，您会认为您已经赢得了 Windows 中的纸牌游戏...

Answer 3

我不是专家，但我遇到了同样的问题并在这里找到了方法。我无法获得任何其他解决方案的工作，但我刚刚在这里找到了我的问题的答案...

http://david.gardiner.net.au/2010/05/bad-old-days-of-vba-and-opening- word.html

我刚刚在我的代码中添加了一行，如下所示（粗斜体行），Word 文档在 Win 7 上的 Excel 前面打开运行 Office 2010 的计算机：

Dim wordApplication

Set wordApplication = CreateObject("Word.Application")

Application.ActivateMicrosoftApp xlMicrosoftWord

有关其工作原理的更多信息，请访问上面的链接。

Answer 4

我发现的最简单的方法是

Word.Application wordInstance = new Word.Application();
...
wordInstance.Visible = true;
SetForegroundWindow(wordInstance.Application.ActiveWindow.Hwnd);

...
[DlImport("User32.dll")]
[return: MarshalAs(UnmanagedType.U4)]
static extern int SetForegroundWindow(int hwnd);

Answer 5

w.Visible = True
w.Activate()

对我来说很好用！

看看其他原因。

例如

 Dim oWord As Microsoft.Office.Interop.Word.Application = New      Microsoft.Office.Interop.Word.Application
 Dim oDoc As Microsoft.Office.Interop.Word.Document =    oWord.Documents.Open(Path)
 Dim range As Microsoft.Office.Interop.Word.Range = oDoc.Range
 range.Find.Execute("[NUM]", False, False, , , , , , , _NUM_, 2, False, )  
 oWord.Visible = True
 oWord.Activate()

文档出现在前面。