Страница 1 из 1

Копирование в буфер обмена.

Добавлено: 22 авг 2009, 18:28
Busine2009
Никто не в курсе, как с помощью VBA копировать в буфер обмена Office? Мне надо туда копировать колонтитулы, поэтому надо, чтобы было много скопировано, а не один элемент.
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Вот так можно скопировать в буфер обмена Office все верхние колонтитулы. Только при этом должен быть открыт Буфер обмена:

Код: Выделить всё

Sub CopyHeadersFooters()
Dim oSec As Section, oHeadr As HeaderFooter
For Each oSec In ActiveDocument.Sections
For Each oHeadr In oSec.Headers
oHeadr.Range.Copy
Next oHeadr
Next oSec
End Sub
А никто не в курсе, как копировать только видимые колонтитулы? Т.е. каждый раздел имеет колонтитул первой страницы и основной колонтитул. Если раздел состоит из одной страницы, то мы видим лишь только один колонтитул: или колонтитул первой страницы или же основной колонтитул.
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Вот насочинял (только делается при открытом буфере обмена):

Код: Выделить всё

Sub HeaderCopy()
On Error GoTo footercopy
Selection.HomeKey Unit:=wdStory
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Do
    Selection.WholeStory
    Selection.Copy
    ActiveWindow.ActivePane.View.NextHeaderFooter
    Loop
footercopy:
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    Application.Run "footercopy"
End Sub
Sub footercopy()
On Error GoTo ExitSub
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
    Do
    Selection.WholeStory
    Selection.Copy
    ActiveWindow.ActivePane.View.NextHeaderFooter
    Loop
ExitSub:
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

Копирование в буфер обмена

Добавлено: 27 авг 2009, 17:49
KarpovSergei
пожалуйста, как можно скопировать средствами JavaScript выделенный на странице текст в буфер обмена?

Именно не из формы, не предопределенный, а текст, который пользователь сам выделит на странице...

Браузер: Internet Explorer

P.S. Нужно для того, чтобы заменить стандартное контекстное меню на свое, при этом оставив возможность копирования текста...

Заранее благодарен.

Re: Копирование в буфер обмена.

Добавлено: 27 авг 2009, 19:54
Busine2009
Здесь вообще-то про Word речь.
То есть нужно с помощью JavaScript из документа Word скопировать что-то?
Честно говоря, не знаю.

Копирование в буфер обмена

Добавлено: 07 сен 2009, 21:04
Synccece
На 6210n есть возможность передачи кликабельной ссылки по СМС,Э/П,в сетьна Ovi и пр.,также можно,если покапаться,скопировать интернет-закладку в буфер обмена.Я что-то никак не найду,где этот буфер?И вообще возможно ли со смартфона вставить ссылку в сообщение на этом форуме?
однако не хочу казаться неудачником но умоляю кто-то помогите что нажимать в http://netassault.ru - злая галактическая онлайн игра, имено куда нажимать?