| |
|
|
| | У меня сейчас ворд не стоит ((
Как там стандартными кнопками добавить фоновый рисунок, что бы он на всех страницах ставился автоматом? | |
| |
| |
| |
|
|
| | Видимо: Формат-Фон-Подложка-Рисунок | |
| |
| |
| |
|
|
| | а рисунок нужен заведомо прозрачный, или он там сам становится таковым?(средствами ворда) | |
| |
| |
|
|
|
|
| |
|
|
| | вот word 2010 чего записал
(это вставка подложки - автоматом распространяется на все создаваемые листы)
ActiveDocument.Sections(1).Range.Select
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.HeaderFooter.Shapes.AddPicture(FileName:= _
"E:\Фото\Новый год 2012\1-18 декабря\DSC01986.JPG", LinkToFile:=False, _
SaveWithDocument:=True).Select
Selection.ShapeRange.Name = "WordPictureWatermark1033475"
Selection.ShapeRange.PictureFormat.Brightness = 0.5
Selection.ShapeRange.PictureFormat.Contrast = 0.5
Selection.ShapeRange.LockAspectRatio = True
Selection.ShapeRange.Height = CentimetersToPoints(10.97)
Selection.ShapeRange.Width = CentimetersToPoints(16.46)
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapNone
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeVerticalPositionMargin
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionMargin
Selection.ShapeRange.Left = wdShapeCenter
Selection.ShapeRange.Top = wdShapeCenter
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument | |
| |
| |
| |
 23 Кб. |
|
| | туплю по полной...
как убрать фон у строк??? 
картинку не видно. | |
| |
| |
| |
|
|
| | а так
Options.DefaultHighlightColorIndex = wdNoHighlight
Selection.Range.HighlightColorIndex = wdNoHighlight
(тоже ворд2010 написал) | |
| |
| |
| |
|
|
| | у тебя у строчки стоит цвет (маркер) - его надо убрать код выше | |
| |
| |
| |
118 Кб. |
|
| | ты думаешь??? | |
| |
| |
