templatebuilding

That will not be possible with the arrangement that you now have.

That does not however mean that it cannot be done. One way would be to have the tables in another document, identified by their bookmarks, and have code access that the relevant table in that document and copy and paste it into the required position in the host document.

Doug_Robbins_Word_MVP 

Here is a screenshot of what it looks like

Magnus_Edstrm 

You need to check for discrepancies between the items in the dropdown list (as parsed) and the bookmark names.

For example there is nothing in the dropdown list that correspondes to the bookmark highlighted in yellow

 When "välj ärende" is selected with hidden text not displayed, the items highlighted in yellow

no longer appear

Magnus_Edstrm The entries in the list can contain those characters, but the bookmark names cannot ad therefore, the code removes those characters so that the resulting strings matchs the bookmark names

Magnus_Edstrm To get it to work, I had to remove the check mark from the MISSING: Ãrendemall MBL samfak.dotm under Tools>References in the Visual Basic Editor.  I have attached the amended file.

Doug_Robbins_Word_MVP 

I have tried to make the bookmarks as instructed and no joy I´m affraid. I can´t seem to grasp what I am doing wrong. I´ll attach the file to this reply so you can see where I´ve gone wrong. 

Thank you so much for your patience Doug

/Magnus

Magnus_Edstrm There needs to be a way of matching the bookmark names to the items in the dropdown list.

In the code posted below, the following commands:

      BMName = Replace(Mid(.DropdownListEntries(i).Text, 5), " ", "")
      BMName = Replace(BMName, "§", "")
      BMName = Replace(BMName, "-", "")
      BMName = Replace(BMName, "/", "")

1. strip the first four characters (shaded in yellow in the screenshot) from each item in the list and remove all of the spaces from the remainder of the item
2. remove the §
3. remove the -
4. remove the /

so that an item such as:

     §19 Information Om undantag från utlysning AF § 6

would be reduced to:

     InformationOmundantagfrånutlysningAF6

which complies with the limitations for the names of bookmarks

So, if you delete all of the existing bookmarks and replace them with bookmark names such as

      InformationOmundantagfrånutlysningAF6

the code will work as required.

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Dim BMName As String
With ContentControl
    If .Title = "ärende" Then
        For i = 1 To .DropdownListEntries.Count
            BMName = Replace(Mid(.DropdownListEntries(i).Text, 5), " ", "")
            BMName = Replace(BMName, "§", "")
            BMName = Replace(BMName, "-", "")
            BMName = Replace(BMName, "/", "")
            If ActiveDocument.Bookmarks.Exists(BMName) Then
                ActiveDocument.Bookmarks(BMName).Range.Font.Hidden = True
            End If
        Next i
        For i = 1 To .DropdownListEntries.Count
            If .DropdownListEntries(i) = .Range.Text Then
                BMName = Replace(Mid(.DropdownListEntries(i).Text, 5), " ", "")
                BMName = Replace(BMName, "§", "")
                BMName = Replace(BMName, "-", "")
                BMName = Replace(BMName, "/", "")
                If ActiveDocument.Bookmarks.Exists(BMName) Then
                    ActiveDocument.Bookmarks(BMName).Range.Font.Hidden = False
                End If
            End If
        Next i
    End If
End With
End Sub

You can add anything that is required within each bookmark.

Doug_Robbins_Word_MVP 

I have completed the template as I would like it to be. Can it work like this or are there issues that make it impossible to run the script correctly?

/Magnus