| Alexander |
| Отправлено: 16.06.2006, 21:16 |
|
Не зарегистрирован
|
Подскажите как програмно заполнить адрес получателя в Word
расположеного Сервис->письма и рассылки->Конверты и наклейки
а потом пустить на печать
Если можно пример как это сделать. Данные беруться из поля Memo |
|
| Shagg |
| Отправлено: 17.06.2006, 08:24 |
|
Дежурный стрелочник
Группа: Участник
Сообщений: 69
|
В общем макрос в ворде бует выглядеть так:
| CODE |
ActiveDocument.Envelope.Insert ExtractAddress:=False, OmitReturnAddress:= _
False, PrintBarCode:=False, PrintFIMA:=False, Height:=CentimetersToPoints _
(10.48), Width:=CentimetersToPoints(24.13), Address:="EMAIL", _
AutoText:="ToolsCreateLabels1", ReturnAddress:="", ReturnAutoText:= _
"ToolsCreateLabels2", AddressFromLeft:=wdAutoPosition, AddressFromTop:= _
wdAutoPosition, ReturnAddressFromLeft:=wdAutoPosition, _
ReturnAddressFromTop:=wdAutoPosition, DefaultOrientation:= _
wdCenterLandscape, DefaultFaceUp:=True, PrintEPostage:=False
ActiveDocument.Envelope.PrintOut ExtractAddress:=False, OmitReturnAddress _
:=False, PrintBarCode:=False, PrintFIMA:=False, Height:= _
CentimetersToPoints(10.48), Width:=CentimetersToPoints(24.13), Address:= _
"EMAIL", AutoText:="ToolsCreateLabels3", ReturnAddress:="", _
ReturnAutoText:="ToolsCreateLabels4", AddressFromLeft:=wdAutoPosition, _
AddressFromTop:=wdAutoPosition, ReturnAddressFromLeft:=wdAutoPosition, _
ReturnAddressFromTop:=wdAutoPosition, DefaultOrientation:= _
wdCenterLandscape, DefaultFaceUp:=True, PrintEPostage:=False
|
тебе остается только перекидать его в свой код |
|
| Shagg |
| Отправлено: 17.06.2006, 08:26 |
|
Дежурный стрелочник
Группа: Участник
Сообщений: 69
|
ЗЫ: Используя функции OleProprtyGEt, OlePropertySet и OleFunction |
|
| Guest |
| Отправлено: 17.06.2006, 14:46 |
|
Не зарегистрирован
|
Спасиб |
|
|
