Как изменить браузер на Chrome / Firefox (или по умолчанию) в этом коде VBA? - PullRequest
Новая
       9

Как изменить браузер на Chrome / Firefox (или по умолчанию) в этом коде VBA?

0 голосов
/ 02 марта 2020

Я нашел / изменил этот код VBA для поиска в Google, выбрав текст в Word. Однако я действительно не знаю, как изменить браузер на Chrome / Firefox или Default. Может ли кто-нибудь помочь мне здесь?

Кроме того, возможно ли изменить это так, чтобы новые запросы открывались в новых вкладках вместо новых windows? Спасибо! 

  Dim objIE As Object

  '  Create and set the object settings.
  Set objIE = CreateObject("InternetExplorer.Application")

  With objIE
    .Visible = False
    .Width = nWidth
    .Height = nHeight
    .Menubar = Menubar
    .Visible = True
    .resizable = varResizable
    .Navigate strAddress
  End With

End Sub

Sub SearchOnGoogle()
  Dim strText As String
  Dim strButtonValue As String


      If Selection.Type <> wdSelectionIP Then
        strText = Selection.Text
        strText = Trim(strText)
      Else
        MsgBox ("Please select text first!")
        Exit Sub
      End If

      '  Search selected text on Google with browser window opened in set size.
      OpenBrowser "<insert google link here>", True, 550, 650, True

End Sub
...