摘要：
答案 [A-D]*^13解析*^13 使用替换功能，删除答案和解析两段 阅读全文
摘要：
\([0-9]{4}·*\) \(：代表"（" [0-9]{4}:代表四位年份 ·:代表点号 \):代表")" 点选下方通配符 阅读全文
摘要：
from pylab import mpl# 设置显示中文字体mpl.rcParams["font.sans-serif"] = ["SimHei"]#不显示fu负号问题plt.rcParams['axes.unicode_minus']=False以下内容chatgpt提供通过将plt.rcPar 阅读全文
摘要：
Sub 删除分节符和分页符1() ActiveDocument.Content.Find.Execute FindText:="^b", ReplaceWith:="", Replace:=wdReplaceAll '删除分节符 ActiveDocument.Content.Find.Execute 阅读全文
摘要：
' 以下是按键精灵录制的内容 Rem kaishi'MessageBox "开始"Delay 1000FindPic 0,0,1780,300,"Attachment:\还剩余.bmp",0.9,intX,intYIf intX > 0 And intY > 0 Then 'MessageBox " 阅读全文
摘要：
Sub 学科网格式修正() '删除第二节内容 'MsgBox ActiveDocument.Sections.Count ActiveDocument.Sections(2).Range.Delete '删除节符号"^b"，用替换功能实现 Set wd = ActiveDocument.Conten 阅读全文
摘要：
Sub 另存为PDF() s = ActiveDocument.Name i = InStrRev(s, ".") - 1 ActiveDocument.SaveAs2 filename:=ActiveDocument.Path & "\" & Left(s, i) & ".PDF", FileFo 阅读全文
摘要：
Sub 插入强化训练() ' ' 插入强化训练 宏 ' ' Selection.TypeText Text:="【】" Selection.MoveLeft unit:=wdCharacter, Count:=1 Selection.TypeText Text:="强化训练" '选择当前行 Sele 阅读全文
摘要：
Sub 设置页面() ' ' 设置页面和页码 宏 ' ' With Selection.PageSetup .LineNumbering.Active = False .Orientation = wdOrientPortrait .TopMargin = CentimetersToPoints(2 阅读全文
摘要：
Sub 设置页面() ' ' 设置页面和页码 宏 ' ' With Selection.PageSetup .LineNumbering.Active = False .Orientation = wdOrientPortrait .TopMargin = CentimetersToPoints(2 阅读全文