记一次VBA实现word文档latex公式批量转mathtype

网上找到了md格式的文档，想要将其整理到word文档中，使用pandoc转换后得到的公式都不是mathtype格式，为此搞了半天吧（太菜了），在VBA模拟键盘发送这里卡了半天，终于有所结果。

主要的思路是先通过python遍历当前目录下所有的md文件，读取之后将其合并到txt文件，将txt文件的内容复制到word。接下来通过VBA编程：由于在latex公式中前后都有$符号，且在$之间通过alt+可以实现快速将latex格式转换为mathtype，因此在VBA编程中的主要流程就是先查找$所在的位置，然后将光标移动到$之后，模拟键盘输入alt+。在网上找到的相关代码组合在一起就成功了。

由于本人没有专门学过VBA编程，代码可能有些low，还有大量可以优化之处，功能已经实现就不再完善。下面是VBA代码

Sub delay(T As Single)
    Dim time1 As Single
    time1 = Timer
    Do
        DoEvents
    Loop While Timer - time1 < T
End Sub
Sub move_cursor_with_find()

For i = 1 To 2906 / 2
With Selection.Find
.Text = "$"
.Forward = True
.Wrap = wdFindContinue
.MatchWildcards = True
End With
Selection.Find.Execute
Selection.MoveRight Unit:=wdCharacter, Count:=1
SendKeys "%",true
delay (2)
Next
End Sub