Компьютерная помощь

[hana no ko]

Угаки, Бери принтер + сканер в одном флаконе)
Я тоже себе такой хотел, но когда получил зарплату его уже в магазине не было(((

[hana no ko]

У меня возник один вопрос, хочу установить paint.net.
На сколько хороша эта программа и не уступает фотошопу и sai?

[ANGEL]

конечно уступает. paint.net. заменитель обычного paint

[hana no ko]

конечно уступает. paint.net. заменитель обычного paint

В простом paint нету эффектов.

[Хатхор]

Нужен совет форумчан. У меня лежала пара тысяч, да еще ко дню рождения подкинули. Так что я могу купить к своему ноуту какую-то серьезную периферию. Что скажете насчет лазерного принтера "Самсунг" ценой около 3-х тысяч? Вроде бы не громоздкий, есть во всех магазинах: "Техносила", "Эльдорадо", "М-видео". Так что проблем с картриджами, ремонтом и прочим долго быть не должно. Но вот что убило все настроение, так это то, что сменный картридж стоит всего на 100 руб. дешевле самого принтера.

У меня лазерный принтер Самсунг с 2007 г. Покупала как раз к курсовым и диплому. За это время в ремонте ни разу не был, картридж не покупала, а только доставала старый и заново заряжали мне его в разных фирмах. Стоило это около 200-300 р, делала так всего два раза, а печатала я много, особенно в годы учебы в универе, да и на работу тоже в качестве раздаточного материала. Но в этом появились проблемы - при печатании зажевывает бумагу. Пора менять, все-таки 5 лет для компьютерной техники - срок немалый, но за это время принтер зарекомендовал себя только с положительной стороны

[hana no ko]

Поставил paint.net, практически не отличается от фотошопа который стоял на старом компе.
Но разных фильтров маловато((((
Может кто знает где для него можно качнуть разные фильтры и плагины?

[Элинне]

Поставил paint.net, практически не отличается от фотошопа который стоял на старом компе.
Но разных фильтров маловато((((
Может кто знает где для него можно качнуть разные фильтры и плагины?

Смотреть тут http://paint-net.ru/forum/viewtopic.php?f=5&t=623

[hana no ko]

Смотреть тут http://paint-net.ru/forum/viewtopic.php?f=5&t=623

Спасибо) Пару эффектов уже скачал.

[Угаки]

Купил себе все-таки простой сканер. Хоть с этим делом теперь нет проблем. Начал устанавливать с диска, там столько всякой ерунды ставить и кроме драйвера. Попробовал и через ихнюю программу, и через фотошоп - не идет. Потом попробовал через обычный Paint и тут все путем: сразу появилось окошко со всеми полагающимися настройками: разрешение, яркость, контрастность, просмотр и т.д., а не какое-то непонятное с кучей закладок и десятками настроек в каждой. В общем, все пошло нормально. Уже кое-что для темы "неизвестный мир" через свой сканер сделал.

[ANGEL]

Просто сканер? не понимаю таких покупок... Надо тогда было МФУ брать

[Угаки]

Ну, струйное МФУ отпадало сразу, не так уж много я печатаю. Будет перерыв в неделю - и головка засохнет. Самое дешевое лазерное МФУ от "Ксерокса" нам в магазине отсоветовали. Остальные слишком дороги, да и громоздки. Посмотрели - выходит, что принтер и сканер по отдельности даже меньше места занимают. Вот так решил брать один сканер, с ним-то хоть никаких дальнейших расходов не предвидется, а работа ему находится. Кстати, я теперь могу без проблем еще одну мангу сделать (если будет время)

[ANGEL]

Тебе кто такое сказал, что головка через неделю засохнет? У меня по 2-3 месяца без работы стоял, и ничего не сохло. Canon у меня был.

[Чёрный Ветер]

Решил выложить макрос, написанный мной недавно для Word'а. Он меняет выделенный текст, который ошибочно набран не в той раскладке клавиатуры. Т.е. например, неправильно набранный "X`hysq Dtnth" превращается в "Чёрный Ветер". Надеюсь, что кому-нибудь пригодится.
А вот собственно и сам макрос:

Sub Изменить_ошибочно_набранный_текст()

If Documents.Count = 0 Then Exit Sub

Dim Раскладка_1 As String, Раскладка_2 As String
Dim Текст As String, Текст_ As String
Dim Символ As String, Номер As Long

With Selection
Текст = .Text ' кэш
If Текст = "" Or Текст = vbCr Then Exit Sub

Раскладка_1 = "йцукенгшщзхъфывапролджэячсмитьбю.ёЁХЪЖБЮ,№;:?/Э" + Chr(34)
Раскладка_2 = "qwertyuiop[]asdfghjkl;'zxcvbnm,./`~{}:<>?#$^&|" + Chr(34) + "@"
Символ = Раскладка_1 ' буфер
Раскладка_1 = Раскладка_1 + Раскладка_2
Раскладка_2 = Раскладка_2 + Символ
Раскладка_1 = Раскладка_1 + UCase(Раскладка_1)
Раскладка_2 = Раскладка_2 + UCase(Раскладка_2)

For Номер = 1 To Len(Текст)
Символ = Mid(Текст, Номер, 1)
Текст_ = Текст_ + Mid(Раскладка_2 + Символ, InStr(Раскладка_1 + Символ, Символ), 1)
Next

If Right(Текст_, 1) <> vbCr Then .Text = Текст_: Exit Sub
Selection.MoveLeft wdCharacter, 1, wdExtend
.Text = Left(Текст_, Len(Текст_) - 1)
End With
Selection.MoveRight wdCharacter, 1, wdExtend

End Sub

[Neo_Sereniti]

На какую винду можно ставить MS Office 2013?

[ANGEL]

На 7