Оффтопик

Немного оффтопа :) Здесь сосредоточены различные записи, которым не нашлось места в категориях. Это могут быть какие-то сообщения, новости, эксперименты со звуком или графикой, а, возможно, просто записки о чем-то или вовсе ни о чем :)

Разное

 

Проба пера в фотошопе

 

Разные фото (в основном, авторские)

    Так же, если что-то интересует, можно спросить в комментариях на этой странице Что знаю — скажу, чем владею — поделюсь :)

22 комментария: Оффтопик

  1. EvgeniSilin говорит:

    @ Памирыч:

    Вот еще один Финт. Вроде работает
    Imports System.IO
    Imports Microsoft.Office.Interop
    Imports System.Runtime.InteropServices
    Sub CopyPasteThroughWord(rtb As RichTextBox)
    rtb.Cursor = Cursors.WaitCursor
    Dim curDoc As New Word.Application
    Dim rng As Word.Range
    curDoc.Documents.Add()
    Try
    curDoc.Selection.Paste()
    Catch ex As Exception
    rtb.Cursor = Cursors.Default
    Exit Sub
    End Try
    rng = curDoc.ActiveDocument.Content
    rng.Copy()
    rtb.Paste()

    rtb.Cursor = Cursors.Default
    IsNothing(curDoc.ActiveDocument.Content)
    curDoc.Quit(False)
    Marshal.ReleaseComObject(rng)
    Marshal.ReleaseComObject(curDoc)
    End Sub

  2. Памирыч говорит:

    @ EvgeniSilin:
    Благодарю, кому-то пригодится.


Добавить комментарий



Рекомендовано к просмотру

Числа файла, кратные сумме квадратов своих цифр (Июль 31, 2016)
Вывод на экран строк, начинающихся с цифры (Август 5, 2016)
Программно нажать кнопку (имитировать нажатие) (Декабрь 4, 2015)
Проект программы «Семейный бюджет 2015» (Декабрь 27, 2015)
Получить физический адрес сетевой карты (Декабрь 4, 2015)