Stop multiple pastes at bookmark

macropod · #6 07-14-2011, 03:28 PM

Hi chipnputt,

That's not how you're supposed to do it! You don't need to select anything, and you don't need to copy & paste. Try:

Code:

Sub UpdateBookMark()
Dim BmkNm As String, NewTxt As String, BmkRng As Object
BmkNm = "MondayTeams"
NewTxt = Worksheets("Monday").Range("H1:L2").Value
With ActiveDocument
  If .Bookmarks.Exists(BmkNm) Then
    Set BmkRng = .Bookmarks(BmkNm).Range
    BmkRng.Text = NewTxt
    .Bookmarks.Add BmkNm, BmkRng
  Else
    MsgBox "Bookmark: " & BmkNm & " not found."
  End If
End With
Set BmkRng = Nothing
End Sub

PS: When posting material relating to a discussion already under way, please use the same thread.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
VBA to insert Bookmark	rockwellsba	Word VBA	2	05-31-2011 01:07 AM
Help with PPT AddIn that pastes slides into another presentation	matt.wilson	PowerPoint	0	01-05-2011 03:28 PM
Controlling Style when a user pastes into a form	Cris0205	Word	0	08-05-2010 04:33 PM
Can you stop multiple calendars from fading?	JohnGalt	Outlook	2	08-05-2010 09:06 AM
Word only pastes plain text	seskanda	Word	6	02-19-2010 10:01 AM