这个事怎么个自定义法啊

楼上朋友说的是从1381行开始改的吗？

   If TitleType = "[图文]" Then
    .Write "                    <option selected>[图文]</option>"
   Else
    .Write "                    <option>[图文]</option>"
   End If
   If TitleType = "[视频]" Then
    .Write "                    <option selected>[视频]</option>"
   Else
    .Write "                    <option>[视频]</option>"
   End If
   If TitleType = "[推荐]" Then
    .Write "                    <option selected>[推荐]</option>"
   
   Else
    .Write "                    <option>[推荐]</option>"
   End If
   If TitleType = "[注意]" Then
    .Write "                    <option selected>[注意]</option>"
   Else
    .Write "                    <option>[注意]</option>"

我把上面的组图改为“视频”了，在添加文章时，的确有视频的选项，但没用啊，在调用标题时，前面不会出现“视频”两字的，但是换成是没改的”推荐”或“注意”，就可以显示，是啥原因啊