Использование в качестве замены информации из буфера

[mjpv]

Можно ли в окошке "Найти и заменить" в макросе в качестве строки замены использовать то, что предварительно скопировано в буфер обмена? Проблема в том, что копирование в буфер будет различным в процессе работы макроса, только эту информацию надо заменить вместо определенных символов. Пример ниже.

    With Selection.Find
        .Text = "3100,"
        .Replacement.Text = "4200"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With

      В этом блоке вместо 4200 надо вставить информацию из буфера обмена?
Это возможно или нет. Поделитесь пожалуйста, кто знает.

[Ципихович Эндрю]

Dim Data1 As New DataObject, Буфер1$
Data1.GetFromClipboard
Буфер1$ = Data1.GetText(1)
 With Selection.Find
        .Text = "3100,"
        .Replacement.Text = Буфер1$
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With

До сих пор не пойму где теги выделения скрипта брать???

[Алексей++]

Ципихович Эндрю,

[code]
[/code]


или в полной форме ответа есть кнопки

[Ципихович Эндрю]

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

Код:

а почему бы и не написать ? Или ты куда-то торопишься ? ))

[Алексей++]

Ципихович Эндрю, внизу есть кнопка "ОТВЕТ"

[Ципихович Эндрю]

Код:

Dim Data1 As New DataObject, Буфер1$
Data1.GetFromClipboard
Буфер1$ = Data1.GetText(1)
 With Selection.Find
        .Text = "3100,"
        .Replacement.Text = Буфер1$
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With

Это ещё запомнть нужно, что решётка это код

[Алексей++]

Ципихович Эндрю, ок, разобрались. А вопрос то ты забыл задать )) Отредактируй пост Ответ #1  , потом всё лишнее удалю

[Ципихович Эндрю]

>А вопрос то ты забыл задать
Какой вопрос??? Могу задать, как вставить не последний, а предпоследний объект из буфера обмена  эту строку
.Replacement.Text = Буфер1$
И как поставить условие, в вдруг в буфере обмена не текст, а файл или изображение???

[Джон]

Совершенно очевидно, что надо сначала спросить буфер какого типа информация в нём находится, и, в соответствии с этим, принимать решение.

[Ципихович Эндрю]

> надо сначала спросить буфер какого типа информация в нём находится
согласен, скрипт условия подскажите

[Джон]

Зависит от версии Васика. Например, в 6.0:

Код:

If Clipboard.GetFormat(vbCFText) Then
   Text1.Text = Clipboard.GetText(vbCFText)
End If

[Ципихович Эндрю]

Еще бы ремарки добавить

Код:

'условие, если ...
If Clipboard.GetFormat(vbCFText) Then
'тогда ...
   Text1.Text = Clipboard.GetText(vbCFText)
End If

Заремарчьте пожалуйста

[Ципихович Эндрю]

и как Ваш скрипт работает сам по себе

Код:

'условие, если ...
If Clipboard.GetFormat(vbCFText) Then
'тогда ...
   Text1.Text = Clipboard.GetText(vbCFText)
End If

или вот так

Код:

Dim Data1 As New DataObject, Буфер1$
Data1.GetFromClipboard
Буфер1$ = Data1.GetText(1)
'условие, если ...
If Clipboard.GetFormat(vbCFText) Then
'тогда ...
   Text1.Text = Clipboard.GetText(vbCFText)
End If

Что-то ни так ни так не работает, поясните пжл

[baldr]

Я так понимаю, разговор идет не про VisualBasic а про VBA? В VBA не уверен что есть объект Clipboard.
http://word.mvps.org/faqs/macrosvba/ManipulateClipboard.htm
http://www.google.ru/search?source=ig&hl=ru&rlz=&q=Clipboard+VBA

[Ципихович Эндрю]

Ну есть скрипт

Код:

'требуется установить ссылку на "Microsoft Forms 2.0 Object Library"
'получить текст из буфера обмена в строку переменной
On Error Resume Next
Dim MyData As DataObject
Dim strClip As String
Set MyData = New DataObject
MyData.GetFromClipboard
strClip = MyData.GetText 'то что находится в буфере обмена, последний объект
Debug.Print Err.Number & Err.Description 'ошибка происходит если в буфере обмена файл
MsgBox$ Err.Number & " " & Err.Description

В зависимости от номера ошибки будем узнавать, что там в буфере файл или что другое
И какие номера этих ошибок??
Можно самому испробовать но сколько таких вариантов получения ошибки?

[baldr]

Ципихович Эндрю, существует функция CStr(), которая переводит объект в строку (как может). С ней ты ошибку не получишь.

[Ципихович Эндрю]

не понял, так:strClip = CStr(MyData.GetText)
Всё равно получаю ошибку -2147221404DataObject:GetText Ошибка в структуре FORMATETC
Но дело в том, что получить ошибку наооборот интересно, если знать сколько таких вариантов получения ошибки??
Чтобы по той полученной ошибки ориентироваться

[Dale]

Но дело в том, что получить ошибку наооборот интересно

"Ошибка наоборот" - это, пожалуй, правильная программа.

сколько таких вариантов получения ошибки??

Видимо, если ошибки нумеруются начиная с -1, то не менее двух миллиардов.

Кстати, в интернете можно искать информацию. Поиск приводит на страничку маленькой, но гордой софтверной компании: http://support.microsoft.com/kb/186063/ru?spid=2484&sid=639

[Ципихович Эндрю]

Я согласен, что это:Но дело в том, что получить ошибку наооборот интересно
глупо, но Вы можете подсказать условия, если ... тогда в буфере файл и т. д.

[Dale]

У  DataObject есть метод для определения формата данных:

GetFormat Determines if a specified data format is available in the DataObject object.

Вот эти форматы:

Constant	Value	Meaning
vbCFText	1	Text
vbCFBitmap	2	Bitmap (.bmp)
vbCFMetafile	3	Metafile (.wmf)
vbCFEMetafile	14	Enhanced metafile (.emf)
vbCFDIB	8	Device-independent bitmap (.dib or .bmp)
vbCFPalette	9	Color palette
vbCFFiles	15	List of files
vbCFRTF	-16639	Rich text format (.rtf)

Текст из буфера можно забирать только при условии, что формат в нем vbCFText.

[Ципихович Эндрю]

Спасибо, уже теплее
подскажите скрипт, как у DataObject определить формат данных.

[Dale]

Ципихович, а зачем самому напрягаться-то? Вы тогда уж нам откройте удаленный доступ к своему компьютеру, чтобы мы сами сразу готовые программы набирали. А то мы сейчас скрипт подскажем, а его еще придется на клавишах набрать, мороки столько...

[Ципихович Эндрю]

в этой строке
sStr = oDataObj.GetText() 'присваиваем переменной значение из буфера
это последнее значение буфера, можно узнать сколько их там объектов???
каждому объекту циклом или в массив присвоить переменную???