Stop multiple pastes at bookmark

chipnputt · #5 07-14-2011, 12:29 PM

I have experience in VBA with Access and Excel, I am a novice with word. I have a routine that updates bookmarks in word from a routine in an excel spreadsheet. I keep getting a compile error "Expecting Function or variable". in the code below

Code:

Sub UpdateBookMark()
Dim BmkNm As String, NewTxt As String, BmkRng As Object
BmkNm = "MondayTeams"
Worksheets("Monday").Range("H1:L2").Select
Selection.Copy
With ActiveDocument
  If .Bookmarks.Exists(BmkNm) Then
    Set BmkRng = .Bookmarks(BmkNm).Range
    BmkRng.Text = .Bookmarks(BmkNm).Range.PasteSpecial(DataType:=wdPasteHTML, Placement:=wdInLine, DisplayAsIcon:=False)
    .Bookmarks.Add BmkNm, BmkRng
  Else
    MsgBox "Bookmark: " & BmkNm & " not found."
  End If
End With
Set BmkRng = Nothing
End Sub

The error highlights ".PasteSpecial" as the problem area. Does anyone know how to correct the error. The reason for using the PasteSpecial is that the formatting and layout remains the same as it is in the spreadsheet.

Thanking you in advance....

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