поиск команды/софта для винды 7, ткните
Mar. 12th, 2014 12:45 pm![[identity profile]](https://www.dreamwidth.org/img/silk/identity/openid.png)
![[community profile]](https://www.dreamwidth.org/img/silk/identity/community.png)
Приветствую!
Ищу удобство:
хочу выделять текст (неважно где, в файле, или на веб-странице), далее правая кнопка и выбор:
сохранить в новый текстовый файл (с названием по первым символам выделенного текста), либо, в уже выбранный заранее текстовый файл.
такое существует?
нашел что-то подобное в виде аддона для файрфокса,( https://addons.mozilla.org/ru/firefox/addon/save-text-to-file/ )
но хотелось бы на уровне OS
Как по правой кнопке мыши сохранить в текстовый файл список файлов в папке - я уже знаю. (если в каментах проявится интерес - повешу тут.)
Ищу подобную хрень для выделенного текста.
Всем спасибо!
UPD
нашел вот такой совет, пост с форума за 2002 год :
Add this code to a module and run it. The code will ask you to select the range to save and then ask you for the folder to save to. JSW
Sub myTSave()
Dim myFolder As String
'By Joe Was.
'Save Range as Text File.
ActiveSheet.Activate
'Ask user to select range for text file.
Set myRange = Application.InputBox(prompt:="Please select a range!", _
Title:="Text File Range!", Type:=8)
myRange.Select
Selection.Copy
'This temporarily adds a sheet named "Test."
Sheets.Add.Name = "Test"
Sheets("Test").Select
ActiveSheet.Paste
'Ask user for folder to save text file to.
myFolder = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
'Save selected data as text file in users selected folder.
ActiveWorkbook.SaveAs Filename:=myFolder, FileFormat:=xlText, CreateBackup:=False
'Remove temporary sheet.
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
'Indicate save action.
MsgBox "Text File: " & myFolder & "Saved!"
'Go to top of sheet.
Range("A1").Select
End Sub
я ни разу не программист, выглядит привлекательно, но я не знаю, что значит "Add this code to a module and run it".
Что значит добавить в модуль?
Кто-нибудь может прокомментировать, может оно работает именно так, как я и хотел?
Ищу удобство:
хочу выделять текст (неважно где, в файле, или на веб-странице), далее правая кнопка и выбор:
сохранить в новый текстовый файл (с названием по первым символам выделенного текста), либо, в уже выбранный заранее текстовый файл.
такое существует?
нашел что-то подобное в виде аддона для файрфокса,( https://addons.mozilla.org/ru/firefox/addon/save-text-to-file/ )
но хотелось бы на уровне OS
Как по правой кнопке мыши сохранить в текстовый файл список файлов в папке - я уже знаю. (если в каментах проявится интерес - повешу тут.)
Ищу подобную хрень для выделенного текста.
Всем спасибо!
UPD
нашел вот такой совет, пост с форума за 2002 год :
Add this code to a module and run it. The code will ask you to select the range to save and then ask you for the folder to save to. JSW
Dim myFolder As String
'By Joe Was.
'Save Range as Text File.
ActiveSheet.Activate
'Ask user to select range for text file.
Set myRange = Application.InputBox(prompt:="Please select a range!", _
Title:="Text File Range!", Type:=8)
myRange.Select
Selection.Copy
'This temporarily adds a sheet named "Test."
Sheets.Add.Name = "Test"
Sheets("Test").Select
ActiveSheet.Paste
'Ask user for folder to save text file to.
myFolder = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
'Save selected data as text file in users selected folder.
ActiveWorkbook.SaveAs Filename:=myFolder, FileFormat:=xlText, CreateBackup:=False
'Remove temporary sheet.
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
'Indicate save action.
MsgBox "Text File: " & myFolder & "Saved!"
'Go to top of sheet.
Range("A1").Select
End Sub
я ни разу не программист, выглядит привлекательно, но я не знаю, что значит "Add this code to a module and run it".
Что значит добавить в модуль?
Кто-нибудь может прокомментировать, может оно работает именно так, как я и хотел?
no subject
Date: 2014-03-12 10:49 am (UTC)no subject
Date: 2014-03-12 03:15 pm (UTC)no subject
Date: 2014-03-12 10:57 am (UTC)А вообще лет 10 назад я такую себе писал, когда интернета было мало, и я сидел в осн. на рассылках с анекдотами,самые интересные из которых хотелось себе удобным образом копировать. Не помню, чем дело тогда у меня закончилось )
no subject
Date: 2014-03-12 11:10 am (UTC)no subject
Date: 2014-03-12 10:57 am (UTC)no subject
Date: 2014-03-12 11:29 am (UTC)