vba delete current tables, paste and link new tables in word based on caption

[alexb523]

Hello,

I have a large word document which contains tables and "captions" associated with those tables. The tables are updated annually, so i need to link them and excel document which i can update annually or if a mistake is found etc.

What i am currently thinking, since each of my tables has the necessary caption, is to use vba to find the caption, delete the below table, and then paste a new table with via "html link".

Please let me know what you if this is possible or if there is a better solution.

Thanks,
Alex

 

[Worf]

Hello

Tell me if this code deletes the table under a certain caption, and then we can proceed.

' Word module
Sub Sample()
Dim c As Range, StartWord As String, EndWord$
StartWord = "Start": EndWord = "End"
Set c = ActiveDocument.Content
c.Find.ClearFormatting
c.Find.Replacement.ClearFormatting
With c.Find
    .Text = StartWord & "*" & EndWord
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = True
End With
c.Find.Execute
If c.Find.Found Then
    c.Select
    With Selection
        .GoTo wdGoToTable, wdGoToNext, 1
        .Tables(1).Delete
    End With
End If
End Sub

 

[Macropod]

So why not simply copy the tables and paste them into Word as a link once, then update the link paths each year if necessary?