Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=324553&view=findpost&p=2816262 Sun, 30 Jan 2011 22:08:07 +0000 Вставка рисунка в колонтитул ворда https://forum.sources.ru/index.php?showtopic=324553&view=findpost&p=2816262 Old Bat VB for Application https://forum.sources.ru/index.php?showtopic=324553&view=findpost&p=2816231 Sun, 30 Jan 2011 20:57:07 +0000 Вставка рисунка в колонтитул ворда https://forum.sources.ru/index.php?showtopic=324553&view=findpost&p=2816231 Правда я пытался выделить. Попробую без выделения. Спасибо

Блин!! Точно работает.
А я три дня лазил не мог понять, где эта клятая рамка делась.
Остальные в коллекции, а одной там нет:
    DocWord.Frames.Item(1).Range.Paste
]]> Alex77 VB for Application https://forum.sources.ru/index.php?showtopic=324553&view=findpost&p=2816215 Sun, 30 Jan 2011 20:10:55 +0000 Вставка рисунка в колонтитул ворда https://forum.sources.ru/index.php?showtopic=324553&view=findpost&p=2816215
    PIC.Picture = LoadPicture(Лого.Text)
    Clipboard.Clear
    Clipboard.SetData PIC.Picture
    ActiveDocument.Sections(1).Headers(1).Range.Paste
]]> Old Bat VB for Application https://forum.sources.ru/index.php?showtopic=324553&view=findpost&p=2816134 Sun, 30 Jan 2011 18:10:07 +0000 Вставка рисунка в колонтитул ворда https://forum.sources.ru/index.php?showtopic=324553&view=findpost&p=2816134 В рекомендациях говорилось о методе вставки через буфер. Но я не мог найти доступа к рамке в колонтитуле.
Не знал где её искать. В конце концов посказали, где её найти.
Окончательный вариант вполне устраивающий меня:

    PIC.Picture = LoadPicture(Лого.Text)
        Clipboard.Clear
        Clipboard.SetData PIC.Picture
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
     ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes(1).Select
    Selection.Range.Paste
        ActiveWindow.View.Type = wdPrintView


.Sections(1).Headers( - оказались ключевыми словами.
Всем спасибо]]> Alex77 VB for Application https://forum.sources.ru/index.php?showtopic=324553&view=findpost&p=2815956 Sun, 30 Jan 2011 13:26:58 +0000 Вставка рисунка в колонтитул ворда https://forum.sources.ru/index.php?showtopic=324553&view=findpost&p=2815956
    ActiveDocument.Sections(1).Headers(1).Shapes.AddPicture "my_foto.jpg", , True
]]> Old Bat VB for Application https://forum.sources.ru/index.php?showtopic=324553&view=findpost&p=2815888 Sun, 30 Jan 2011 10:45:27 +0000 Вставка рисунка в колонтитул ворда https://forum.sources.ru/index.php?showtopic=324553&view=findpost&p=2815888
    PIC.Picture = LoadPicture(Лого.Text)
        Clipboard.Clear
        Clipboard.SetData PIC.Picture
        Dim asd
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Set asd = Selection.InlineShapes.AddPicture(FileName:=Лого.Text, _
            LinkToFile:=False, SaveWithDocument:=True)
    asd.ConvertToShape
    ActiveWindow.View.Type = wdPrintView
]]> Alex77 VB for Application https://forum.sources.ru/index.php?showtopic=324553&view=findpost&p=2815850 Sun, 30 Jan 2011 09:01:36 +0000 Вставка рисунка в колонтитул ворда https://forum.sources.ru/index.php?showtopic=324553&view=findpost&p=2815850 Вставил в заготовку в нужные места рамки.
И в них вставляю картинки. Так ворд не передёргивает.
Но опять проблема. Вставил 4 рамки. Одна из них в колонтитуле.
В коллекции Frames только три рамки.
Где искать четвёртую? Как к ней обратится?
Перевёл в режим колонтитулов:
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

Вручную(в режиме стопа) щёлкаю по рамке в колонтитуле - выделяется.
Следующий шаг
    Selection.Range.Paste

Вставляет как мне надо.

Если вручную не выделю - вставляет не в рамку, а просто в колонтитул и в формате "В тексте" со всеми вытекающими последствиями]]> Alex77 VB for Application https://forum.sources.ru/index.php?showtopic=324553&view=findpost&p=2815823 Sun, 30 Jan 2011 07:18:19 +0000 Вставка рисунка в колонтитул ворда https://forum.sources.ru/index.php?showtopic=324553&view=findpost&p=2815823 Сюда задаю вопрос - думаю это ближе к VBA чем к VB
Разобрался со всеми вопросами кроме одного:
Вставляю в колонтитул рисунок:
Код:
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
     
        Selection.InlineShapes.AddPicture FileName:=Лого.Text, _
     
            LinkToFile:=False, SaveWithDocument:=True





Но он вставляется с форматом "В тексте". В результате весь многостраничный документ становится раком.
Вопрос: как при вставке указать формат рисунка "Перед текстом"
_________________]]> Alex77 VB for Application