zoukankan      html  css  js  c++  java
  • Word 宏代码:将页下脚注提取到正文,放在〖〗中

    Sub 快速提取脚注内容()
    Dim oFootNote As Footnote, myRange As Range
    Dim BeforeName As String, BeforeSize As Single
    On Error Resume Next
    Application.ScreenUpdating = False
    For Each oFootNote In ActiveDocument.Footnotes
    With oFootNote
    Set myRange = ActiveDocument.Range(.Reference.Start, .Reference.End)
    .Range.Copy
    With myRange
    .Text = "〖〗"
    BeforeName = .Font.Name
    BeforeSize = .Font.Size
    myRange.SetRange .Start + 1, .Start + 1
    .Paste
    .Font.Name = BeforeName
    .Font.Size = BeforeSize
    End With
    End With
    Next
    Application.ScreenUpdating = True
    End Sub
  • 相关阅读:
    视图集
    子类视图
    Mixin扩展类
    GenericAPIView
    APIView
    ModelSerializer使用
    序列化和反序列化
    合并购物车
    pyplot基本绘制
    STL sort “invalid operator <”
  • 原文地址:https://www.cnblogs.com/yanghao2008/p/10878692.html
Copyright © 2011-2022 走看看