ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Можно ли такое сделать (при печати заменять слово)
14 сообщений из 14, страница 1 из 1
Можно ли такое сделать (при печати заменять слово)
    #33936971
Фотография KiLLun
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KiLLun
Участник
чтобы при отправке документа на печать в нем заменялось скажем слово "начальник" на "упырь"
...
Рейтинг: 0 / 0
23.08.2006, 11:51:29
| Ответить | Цитировать | Написать  
Можно ли такое сделать (при печати заменять слово)
    #33937037
121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
121
Гость
можно.
...
Рейтинг: 0 / 0
23.08.2006, 12:06:32
| Ответить | Цитировать | Написать  
Можно ли такое сделать (при печати заменять слово)
    #33937283
Фотография KiLLun
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KiLLun
Участник
а как
...
Рейтинг: 0 / 0
23.08.2006, 12:58:50
| Ответить | Цитировать | Написать  
Можно ли такое сделать (при печати заменять слово)
    #33937305
Stagiere
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stagiere
Гость
Cильно, видать, Вас достал ваш начальник :))
...
Рейтинг: 0 / 0
23.08.2006, 13:02:58
| Ответить | Цитировать | Написать  
Можно ли такое сделать (при печати заменять слово)
    #33937611
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
Вставь код в объект ThisWorkbook :)

Код: plaintext
1.
2.
3.
4.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Cells.Replace What:="начальник", Replacement:="упырь", LookAt:=xlWhole, _
        SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub
...
Рейтинг: 0 / 0
23.08.2006, 14:21:01
| Ответить | Цитировать | Написать  
Можно ли такое сделать (при печати заменять слово)
    #33937615
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ashton
Гость
Создай в документе Normal.dot модуль класса

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Public WithEvents App As Word.Application

Private Sub App_DocumentBeforePrint( _
  ByVal Doc As Document, _
  Cancel As Boolean)
    With Doc.Content.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "начальник"
        .Replacement.Text = "упырь"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
    End With
End Sub

Там же, но только в модуле документа.

Код: plaintext
1.
2.
3.
4.
Dim a As New Class1

Private Sub Document_Open()
    Set a.App = Application
End Sub

Убедись, что у начальника включена поддержка макросов. :)
...
Рейтинг: 0 / 0
23.08.2006, 14:22:10
| Ответить | Цитировать | Написать  
Можно ли такое сделать (при печати заменять слово)
    #33938155
Фотография KiLLun
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KiLLun
Участник
vbaproВставь код в объект ThisWorkbook :)

Код: plaintext
1.
2.
3.
4.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Cells.Replace What:="начальник", Replacement:="упырь", LookAt:=xlWhole, _
        SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub


так не работает
...
Рейтинг: 0 / 0
23.08.2006, 16:19:03
| Ответить | Цитировать | Написать  
Можно ли такое сделать (при печати заменять слово)
    #33938211
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
попробуй заменить LookAt:=xlWhole на LookAt:=xlPart , т.е. такой вариант

Код: plaintext
1.
2.
3.
4.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Cells.Replace What:="начальник", Replacement:="упырь", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub
...
Рейтинг: 0 / 0
23.08.2006, 16:30:10
| Ответить | Цитировать | Написать  
Можно ли такое сделать (при печати заменять слово)
    #33938820
Фотография KiLLun
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KiLLun
Участник
когда вставляешь этот код в ThisDocument и запускаешь его на выполнение (синий перевернутый треугольник) спрашивается имя макроса, а после того как указал имя создается голая процедура с таким именем без кода и макрос соответсвенно не выполняется. что делать?
...
Рейтинг: 0 / 0
23.08.2006, 20:27:16
| Ответить | Цитировать | Написать  
Можно ли такое сделать (при печати заменять слово)
    #33938859
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
делай как Ashton написал. Его код для Word, а мой для Excel.
...
Рейтинг: 0 / 0
23.08.2006, 21:03:09
| Ответить | Цитировать | Написать  
Можно ли такое сделать (при печати заменять слово)
    #33939391
Фотография KiLLun
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KiLLun
Участник
рассажите подробно как это сделать в Word, у меня ругается на блок

Dim a As New Class1

Private Sub Document_Open()
Set a.App = Application
End Sub
...
Рейтинг: 0 / 0
24.08.2006, 10:47:53
| Ответить | Цитировать | Написать  
Можно ли такое сделать (при печати заменять слово)
    #33939423
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
Все точна как написано...

AshtonСоздай в документе Normal.dot модуль класса

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Public WithEvents App As Word.Application

Private Sub App_DocumentBeforePrint( _
  ByVal Doc As Document, _
  Cancel As Boolean)
    With Doc.Content.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "начальник"
        .Replacement.Text = "упырь"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
    End With
End Sub

Там же, но только в модуле документа.

Код: plaintext
1.
2.
3.
4.
Dim a As New Class1

Private Sub Document_Open()
    Set a.App = Application
End Sub

Убедись, что у начальника включена поддержка макросов. :)
...
Рейтинг: 0 / 0
24.08.2006, 10:55:49
| Ответить | Цитировать | Написать  
Можно ли такое сделать (при печати заменять слово)
    #33940347
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ashton
Гость
Это пример для конкретного документа, а я предложил использовать данный код в модулях файла Normal.dot, чтобы он был применим для всех открываемых документов.
...
Рейтинг: 0 / 0
24.08.2006, 14:27:26
| Ответить | Цитировать | Написать  
Можно ли такое сделать (при печати заменять слово)
    #33940698
Фотография KiLLun
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KiLLun
Участник
все получилось в код нужно было добавить Option Explicit
...
Рейтинг: 0 / 0
24.08.2006, 15:53:09
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Можно ли такое сделать (при печати заменять слово)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=33938211&tid=2184400]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 31ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 60ms
get tp. blocked users:
 2ms
others: 214ms
total:  344ms
созд. / загр.: 344ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]