Hi Sarah,

I suspect the problem is that you're putting the bookmark within the LINK
field that was created when you inserted the Excel Worksheet. What you need to
do in this case is to bookmark the corresponding LINK field, not the table.
That should survive any link updates.

Cheers

--
macropod
[MVP - Microsoft Word]


"hornbecky83" wrote in message
ups.com...
| Hi-
|
| I decided to use the bookmark techinique. The advice everyone gave me
| was great, the bookmark method seemed the better approach for my
| project. However, now I am having a problem with the bookmarks. I was
| able to bookmark my tables in excel for when they are put into my word
| document. I need my tables linked, so I pasted the tables in word
| linked to the excel. When I save my document and then re-open it and
| agree to updating my links to my tables, the bookmark goes away. If I
| don't update then everything still works. How can I make it so the
| bookmark will be maintained when I update my table links? Is this
| possible? Below is a summed up version of my code. Thank you!
|
| Sarah
|
|
| Dim Wdoc As Word.document
| Dim Wapp As Word.Application
| Dim rng As Word.Range
| Dim xlMissionDesign As Excel.Workbook
| Dim x As Integer
| Dim y As Integer
| Dim BtnName As String
| Dim shp As Word.InlineShape
| Dim scode As String
| Dim TableID As String
| Dim ParagID As String
|
| Set Wapp = CreateObject("Word.Application")
| Wapp.Visible = True
| Wapp.Documents.Add
| Set Wdoc = Wapp.ActiveDocument
|
| Set rng = Wdoc.Paragraphs.Last.Range
|
| For i = 1 To x
|
| For i = 1 to y
|
| 'copies my table from excel
| rng.Style = "Normal"
| Worksheets("Report Tables").Activate
| Worksheets("Report Tables").Range("MissionOrbitParams").Select
| Workbooks.Application.CutCopyMode = False
| Workbooks.Application.Selection.Copy
|
| 'this paste my table into word, linked. It also creates the table
| bookmark.
| ParagID = "ParagBookMark" & i & j
| TableID = "TableBookMark" & i & j
| rng.InsertParagraphAfter
| Set rng = Wdoc.Paragraphs.Last.Range
| rng.PasteExcelTable linkedtoexcel:=True, wordformatting:=False,
| RTF:=False
| rng.Tables(1).Range.Select
| Wdoc.Bookmarks.Add Name:=TableID,
| Range:=Wdoc.Application.Selection.Range
|
| BtnName = "OrbitButton" & i & j
|
| 'This creates my button.
| Set shp = rng.document.InlineShapes.AddOLEControl _
| (ClassType:="Forms.Commandbutton.1",
| Range:=Wdoc.Paragraphs.Last.Range)
| shp.OLEFormat.Object.Caption = "Add Orbit"
| shp.OLEFormat.Object.Name = BtnName
|
| 'This puts code behind my button, where it calls the bookmarks I
| created and works with them
| 'in the word document
| scode = "Private Sub " & shp.OLEFormat.Object.Name & "_Click()" &
| vbCrLf & _
| "If Not ActiveDocument.Bookmarks.Exists( " & Chr(34) & ParagID &
| Chr(34) & ") Then" _
| & vbCrLf & _
| "MsgBox Prompt:=""Bookmark Paragraph not found"", Title:=
| ""Error""" & vbCrLf & _
| "Exit Sub" & vbCrLf & _
| "End If" & vbCrLf & _
| "If Not ActiveDocument.Bookmarks.Exists(" & Chr(34) & TableID & Chr(34)
| & ") Then" _
| & vbCrLf & _
| "MsgBox Prompt:=""Bookmark Table not found"", Title:= ""Error""" &
| vbCrLf & _
| "Exit Sub" & vbCrLf & _
| "End If" & vbCrLf & _
| vbCrLf & _
| "ActiveDocument.Bookmarks(" & Chr(34) & TableID & Chr(34) & ").Select"
| & vbCrLf & _
| "Selection.Copy" & vbCrLf & _
| vbCrLf & _
| "ActiveDocument.Bookmarks(" & Chr(34) & ParagID & Chr(34) &
| ").Select" & vbCrLf & _
| "ActiveDocument.Application.Selection.MoveUp Unit:=wdLine,
| Count:=1" & vbCrLf & _
| vbCrLf & _
| "Selection.InsertParagraphAfter" & vbCrLf & _
| "Selection.Paste" & vbCrLf & _
| "Selection.InsertParagraphAfter" & vbCrLf & _
| vbCrLf & _
| "Selection.MoveRight Unit:=wdCharacter, Count:=1" & vbCrLf & _
| vbCrLf & _
| "End Sub"
|
| Application.ActivateMicrosoftApp xlMicrosoftWord
|
| 'this applys my code
|
| Wdoc.VBProject.VBComponents("ThisDocument").CodeMo dule.AddFromString
| scode
|
| Next j
| Next i
|
|
| macropod wrote:
| Hi Sarah,
|
| If you assign a bookmark to the table, you can always find the table again
via
| the bookmark - provided you're careful about putting another table within
the
| bookmark range and not moving/deleting the bookmark.
|
| Another way would be to put the table inside a text box. Being a shape
object,
| a textbox can be named (best done when created). Again, you'd have to be
| careful about putting another table into the same textbox.
|
| Cheers
| --
| macropod
| [MVP - Microsoft Word]
|
|
| "hornbecky83" wrote in message
| ups.com...
| | Hi-
| |
| | I am working remotely in word vba through excel vba. Basically I have
| | programed in excel to create a new word document, add a button, and
| | then add code to the word document for when the button in excel is
| | clicked. The code I am adding to the word document needs to copy a
| | table and paste it (right above the button). I figured out how to copy
| | a table if you give it an index number, but with the other code I am
| | running the number of tables always changes. Therefore hardcoding an
| | index number is a bad idea. I will end up copying different tables
| | each time and not the one I want. Is it possible to add a name or
| | range to that table, so I can just copy the table name or range?
| |
| | If this is not possible, I wanted to know if its possible to code
| | adding an excel reference library in word. If I have the word document
| | button code remote access excel to get the named table range that way,
| | I need to figure out how to code an excel reference library into the
| | button code. I do not know how or if this is possible. Manually
| | setting it is not an option. I really hope someone can help me! Thank
| | you so much in advance.
| |
| | sarah
| |
|