[求助]下面的代码为何跳过第1个脚注标记？

ssq1109

hoUzgVCS.rar (6.2 KB, 下载次数: 8)

2007-3-13 17:19 上传

点击文件名下载附件
[求助]下面的代码为何跳过第1个脚注标记？

我想用下面的代码改变脚注标记的字体属性（如字体，粗体等），但对附件中的第2个标记起作用，而对第1个（标题后）不起作用。何故？

如何修改代码使之对所有的脚注标记都起作用？

我在WORD中用查找“^f”时也是把第1个跳过了。

Sub FootFont()

   With ActiveDocument.Content.Find
      .ClearFormatting
      .Text = "^f"
      With .Replacement
          .ClearFormatting
          .Font.Name = "宋体"
          .Font.Bold = False
          .Font.Italic = False
          .Font.Underline = wdUnderlineNone
          .Font.StrikeThrough = False
          .Font.DoubleStrikeThrough = False
          .Font.EmphasisMark = wdEmphasisMarkNone
          .Text = "^&"
      End With
      .Execute Format:=True, Replace:=wdReplaceAll
   End With
       
End Sub

守柔

原因我也没有找到，也许脚注更感兴趣的是带有自动编号的段落。

我做了一个，你测试一下：

Sub Example()
    Dim myRange As Range
    Set myRange = ActiveDocument.StoryRanges(wdFootnotesStory)
    myRange.Font.Size = 12
    While Not (myRange.NextStoryRange Is Nothing)
        Set myRange = myRange.NextStoryRange
        myRange.Font.Size = 12
    Wend
End Sub

ssq1109

谢谢守柔大侠！

您的这段代码对脚注内容的确很有效，字号都变过来了。但我的一个小工具中的确就是要规范脚注的字体属性后才能使后续操作无问题，原来一直都无问题，今天第一次遇到，甚是奇怪！也很希望能解决。

ssq1109

我已找到原因，第一个根本不是脚注标记，可能是手工加上去的*，而且是Symbol体的*。当然找不到。

joney_154

很好,学习了...