摘要:
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.... 阅读全文
摘要:
Sub 脚注转换() Dim myRange As Range, NtRange As Range, strNT As String Application.ScreenUpdating = False Set myRange = ActiveDocument.Content NF: With myRange.Find .Text = "〖*〗" .MatchWildcards = True D... 阅读全文
摘要:
def pad(text): while len(text) % 4 != 0: text = '0'+text return text def Unicode2HexChar(Unicde_Char):#Unicode转16进制 Hex_Char = "" for i in range(0, len(Unicde_Char)): ... 阅读全文