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.

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

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