Paste number from memory.

donlincolnmsof · #1 08-19-2021, 04:56 PM

Hello

I have the following macro where it searched for the number "213-709-8116". This number is hard coded in the macro.

I’m looking for a macro where when I copy the number to the memory and when I press the hot key to run the macro, then it SHOULD PASTE WHAT’S IN THE MEMORY and then search for that number.

How can this be done

Any help will greatly appreciated.

Thanks.

Sub Macro3()
'
' Macro3 Macro
' Macro recorded 8/19/2021 by don
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = "213-709-8116"
.Replacement.Text = "RECORD BEGINS"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.HomeKey Unit:=wdLine
Selection.MoveUp Unit:=wdScreen, Count:=1
End Sub

Guessed · #2 08-19-2021, 05:41 PM

I found this link to help late-bind the clipboard object Office VBA Tips: Late Binding MSForms.DataObject to access the ClipBoard from VBA.

Adapting your code to incorporate this as a function results in the following. I'm not sure what you think your replace code is meant to do but it doesn't actually replace anything.

Code:

Sub FindReplaceClip()
  Dim sFind As String
  sFind = funClipText
  With Selection.Find
    .ClearFormatting
    .Text = sFind
    .Replacement.Text = "RECORD BEGINS"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute
  End With
  Selection.HomeKey Unit:=wdLine
  Selection.MoveUp Unit:=wdScreen, Count:=1
End Sub

Function funClipText() As String
  Dim MyClip As Object, sFind As String
  Set MyClip = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
  MyClip.GetFromClipboard
  funClipText = MyClip.GetText(1)
End Function

donlincolnmsof · #3 08-19-2021, 06:38 PM

That worked!!

Thanks.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Paste number only	suresh_070379	Excel	2	09-29-2016 04:56 AM
Tab 'muscle memory'?	markg2	Excel	1	01-09-2015 09:12 AM
Speed dial Copy & Paste Keyboard Memory	foneunlocker	Word	5	03-12-2014 08:39 PM
Old Age = Loss Of Memory	oldtrout	PowerPoint	0	01-02-2012 12:50 PM
Power Point copy-paste number list to RTF editor	himanshu	PowerPoint	0	02-22-2010 12:56 AM