как дописать параметр

[caute]

имеется макрос:

Sub SearchInChrome()
     Shell """c:\Documents and Settings\Администратор\Local Settings\Application Data\Google\Chrome\Application\chrome.exe"" ""http://www.google.com/search?q=%22" & IIf(Selection.Start = Selection.End, Selection.Words.First.Text, Selection.Text) & "%22"""
End Sub

программу chrome.exe требуется запустить с параметром:
--user-data-dir="h:\chrome"
иначе она не находит мой пользовательский профиль.
Как это прописать в коде? просто дописать параметр не вариант, как выяснилось

[shanemac51]

у вас явно не хватает апострофов

Sub SearchInChrome03()
dim ss,s1,s2,s3
s1="c:\rab\chrome.exe"
s2="http://www.google.com/search?q=%22" & _
 IIf(Selection.Start = Selection.End, _
 Selection.Words.First.Text, Selection.Text) & "%22"
'программу chrome.exe требуется запустить с параметром:
s3="--user-data-dir=""h:\chrome"""

     Shell """%s1"" ""s2"""
End Sub

[caute]

Run-time error '53':
File not found
(путь до Хрома прописал как надо, ессно)

[caute]

..........

[shanemac51]

возможно в s2 надо заменить пробелы на %20

[shanemac51]

отлаживайте по частям
сначала s2=""
запустите
если запустится --s1 сформировано правильно

насчет параметра я не совсем поняла, поэтому s3 не формировала и не вставляла

если первая часть пройдет
сделайте фиксированную (на константах) s2

=======
мелькнула мысля --- не залетел ли в s2 конец параграфа или табулятор
так как Selection.Text ---текст есть текст
как и что вы выделяете

[caute]

ничего не получается
и отладчик из меня тоже

[caute]

............

[shanemac51]

Sub SearchInChrome0703()
Dim ss, s1, s2, s3
     ''s1 = "c:\Documents and Settings\Администратор\Local Settings\Application Data\Google\Chrome\Application\chrome.exe"
 
 
 ''у меня хром находится в Program Files
 s1 = "c:\Program Files\Google\Chrome\Application\chrome.exe    "
     s2 = "http://www.google.com/search?q=%22"
     's2 = s2 & IIf(Selection.Start = Selection.End, Selection.Words.First.Text, Selection.Text)
     s2 = s2 & "235"       '''замена на константу для удобства отладки
     s2 = s2 & "%22"""
Debug.Print s2
ss = """%s1"" ""%s2"""

ss = Replace(ss, "%s1", s1)
ss = Replace(ss, "%s2", s2)


Shell ss
End Sub

[caute]

Галина, вас ист вообще дас?
мало того, что не работает, так и того параметра нету (--user-data-dir="h:\chrome"), из-за которого весь сыр-бор