Question

就在前面，我不是一个真正的程序员。我从事编辑工作，我们公司使用许多宏来简化我们的流程和功能（很多findReplace，识别不一致的拼写/间距约定等）。话虽如此，我已经开始了解VBA编辑器如何在Microsoft Word上运行。

我们有一个Fetch宏（最初由Paul Beverley创建），它对所有使用PC的员工都非常有效。它采用文档中突出显示的术语，自动打开Web浏览器，并执行谷歌搜索。但是，我们有几名员工使用Office for Mac 2011，他们无法使用与PC用户相同的功能。我真的很想调整宏以便它可以在Mac上运行，但是我缺乏训练严重妨碍了我。

以下是我们公司用于PC的原始脚本：

Sub GoogleFetch()
' Version 08.05.12
' Launch selected text on Google

useExplorer = False

runBrowser = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"

mySite = "http://www.google.com/#q="

If Len(Selection) = 1 Then Selection.Words(1).Select
mySubject = Trim(Selection)
mySubject = Replace(mySubject, "&", "%26")
mySubject = Replace(mySubject, " ", "+")

If useExplorer = True Then
  Set objIE = CreateObject("InternetExplorer.application")
  objIE.Visible = True
  objIE.navigate mySite & mySubject
  Set objIE = Nothing
Else
  Shell (runBrowser & " " & mySite & mySubject) 'ERROR HERE
End If
End Sub

（我可能会删除useExplorer函数。）

我尝试过使用Macscript和OpenURL来解决runBrowser问题（错误会弹出Shell ...行，因为我无法获得正确的路径），但它会导致更让人头痛。

是否有一些我想要解决的简单修复？在此先感谢您的帮助！

Answer 1

您可以使用onBlur以不同方式对待这两个系统（Mac和PC），请注意开头的Select。这将在编译时运行，具体取决于系统，只留下在运行时执行的合适代码。

我可以使用#If ... #End If轻松打开Safari，我在此处发现：http://www.officeonemac.com/vba/open_url.html

所以你的代码看起来像这样：

从Mac上的VBA Macro启动Google搜索

1 个答案: