View previous topic :: View next topic |
Author |
Message |
Gorunuch
Joined: 11 Jan 2007 Posts: 8
|
(Separately) Posted: Thu Jan 11, 2007 14:08 Post subject: Как открыть выделенные файлы "связанной программой" |
|
|
Есть несколько выделеных файлов (документы ворда)...
Как их открыть в Ворде одним действием? ...по Ентеру открывается только один файл... |
|
Back to top |
|
|
CaptainFlint
Joined: 14 Dec 2004 Posts: 6151 Location: Москва
|
(Separately) Posted: Thu Jan 11, 2007 15:25 Post subject: |
|
|
Варианты:
1. Открыть Ворд и перетащить их туда мышой.
2. Вызвать контекстное меню и выбрать пункт Открыть. _________________ Почему же, ё-моё, ты нигде не пишешь "ё"? |
|
Back to top |
|
|
Gorunuch
Joined: 11 Jan 2007 Posts: 8
|
(Separately) Posted: Thu Jan 11, 2007 15:56 Post subject: |
|
|
1. Это понятно... так и пользуюсь... но неудобно
2. Открыть нету... есть Открыть с помощью... токо никакого эфекта... |
|
Back to top |
|
|
Alextp
Joined: 06 Feb 2005 Posts: 4957
|
(Separately) Posted: Thu Jan 11, 2007 16:58 Post subject: |
|
|
Если у Ворда есть параметр ком. строки для открытия неск-х файлов, использовать его с макросами TC: %L и т.д. _________________ UniViewer - CudaText - LogViewer
|
|
Back to top |
|
|
Gorunuch
Joined: 11 Jan 2007 Posts: 8
|
(Separately) Posted: Thu Jan 11, 2007 17:25 Post subject: |
|
|
Спасибо Alextp... Токо ниче не понял...
знаю токо что на ярлык ФотоШопа можно перетащить откроются усе... а с Вордом так неконает... |
|
Back to top |
|
|
StrangeRRor
Joined: 15 Jul 2006 Posts: 214
|
|
Back to top |
|
|
Alextp
Joined: 06 Feb 2005 Posts: 4957
|
(Separately) Posted: Thu Jan 11, 2007 17:38 Post subject: |
|
|
Поясняю:
Можно Ворду в командной строке передавать несколько файлов? Вроде можно, нужно их указать через пробелы.
Только Тотал так передавать пар-ры не умеет.
Так что, кажется, не получится сделать такую кнопку.
StrangeRror дал хороший совет. |
|
Back to top |
|
|
Gorunuch
Joined: 11 Jan 2007 Posts: 8
|
(Separately) Posted: Mon Jan 15, 2007 13:05 Post subject: |
|
|
StrangeRRor, спасибо хотя и не помогло...
ChoiceEditor, или Open File shell For TC
работают только с Англискими символами... максимум 6 файлов...
если б у меня были названия на английском я б их вообще не открывал бы в Ворде...
да и глюк на 7 файле...
AppLoader - только 7 версия... у меня на 6,52 куча настроек... а как перенести на 7 незнаю... |
|
Back to top |
|
|
Yams
Joined: 17 Oct 2005 Posts: 115 Location: Тверь
|
(Separately) Posted: Wed Jul 25, 2007 01:52 Post subject: |
|
|
Насчёт глюка на седьмом файле - посмотрю обязательно, в чём дело (OpenFileTC). Если действительно найду баг, обязательно поправлю, либо встрою какую-нибудь защиту _________________ In Pascal we trust |
|
Back to top |
|
|
BeTeP
Joined: 31 Mar 2005 Posts: 101 Location: Санкт-Петербург
|
(Separately) Posted: Wed Jul 25, 2007 13:57 Post subject: |
|
|
Когда-то mozers™ писал скрипт для открытия нескольких файлов в нужном редакторе. Возможно это то, что нужно.
Code: | ' File: List2Multi.vbs
' Description: Скрипт для загрузки выделенных в Total Commander файлов в заданную программу
' Version: 1.1
' Author: mozers™
' Comments: Предназначен для программ НЕ поддерживающих загрузку нескольких файлов с ком.строки.
' Поэтому скрипт вызывает программу многократно:
' programm.exe file1.ext
' programm.exe file2.ext
' programm.exe file3.ext
' Sample: Создаем кнопку на панели инструментов:
' Команда: %Commander_Path%\Scripts\List2Multi.vbs "c:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE"
' Параметры: %L
' _________________________________________________________
Option Explicit
Dim WshShell, FSO, sEditor, objArgs, FileList, sFile
Set objArgs = WScript.Arguments
Set WshShell = WScript.CreateObject("WScript.Shell")
sEditor = WshShell.ExpandEnvironmentStrings(objArgs(0))
If objArgs.Count < 2 Then
WshShell.Run """" & sEditor & """", 1, False
Else
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FileList = FSO.OpenTextFile(objArgs(1), 1, False)
Do While Not FileList.AtEndOfStream
sFile = FileList.ReadLine
If Right(sFile,1) = "\" Then
WshShell.Run """" & sEditor & """", 1, False
Exit Do
End If
WshShell.Run """" & sEditor & """ """ & sFile & """", 1, False
Loop
End If
WScript.Quit
|
По крайней мере у меня получилось открыть 10 выделенных файлов.
Пути к файлу скрипта и Word'a естественно укажешь свои. |
|
Back to top |
|
|
|