bxm78-CSDN博客

原创 Word VBA 画一个带刻度的数轴

nTemp = InputBox("请输入数据:" & vbCr & "数据格式：数据起点，数据终点，数据间隔，每间隔长度(以厘米为单位)", , "0.3,1.1,0.1,1")leftPos = Selection.Information(wdHorizontalPositionRelativeToPage) + 10 ' 数轴左侧位置(磅)topPos = Selection.Information(wdVerticalPositionRelativeToPage) + 10 ' 数轴顶部位置(磅)

2025-05-23 15:25:42 312

原创 Word VBA生成方格纸

Begin_x = Selection.Information(wdHorizontalPositionRelativeToPage) '返回所选内容的水平位置。Begin_y = Selection.Information(wdVerticalPositionRelativeToPage) '返回所选内容的垂直位置。strTemp = InputBox("请输入需要的方格的宽与高(如8,6表示8×6):", , "20,20")MsgBox "您输入的数量有误,程序将退出."

2025-01-09 12:47:38 549

原创 Word VBA 生成田字格

Begin_x = Selection.Information(wdHorizontalPositionRelativeToPage) '返回所选内容的水平位置。Begin_y = Selection.Information(wdVerticalPositionRelativeToPage) '返回所选内容的垂直位置。nTemp = InputBox("请输入需要的田字格数量:", , 2)'横线实线数,竖线实线数,竖线虚线数。For i = 0 To ShuXShi - 2 '画竖虚线。

2025-01-09 12:45:25 477

原创 WordVba-古诗文自动变填空(前半部分或后半部分)

'以标点符号为分界线，前半句或后半句划线。如果后面有出处，以空格、－、-、—为分界线。Dim CurPNo As Integer '当前段号。Dim pCnt As Integer '段数。'先选择需要的段落，再运行此过程。'把所有标点符号字体颜色改为黑色。Sub 诗文自动画线()

2024-05-15 13:30:38 365

原创 Word Vba生成除法竖式

用Word VBA生成除法的竖式

2023-10-28 16:20:59 545

原创定时截屏软件1.0版

功能：可以设置自动截屏时间1到60分钟；图像保存时间为1到7天，截屏的文件保存在与此程序的同一文件夹下。使用说明：第一次启动时，显示程序界面，一旦单击设置以后，下次再运行时就隐藏了。隐藏与显示的快捷键为ctrl+alt+q。如要开机自动启动，可以把此程序的快捷方式放入“启动”组。下载地址：http://www.dbank.com/download.action?t=40

2010-02-06 19:16:00 436

苏教版小学数学口算出题与评分程序（整数部分）

与苏教版小学数学教材配套，一至四年级的口算题相对应，能够实现自动出题与评分。每次出20题。

2010-09-10

定时截屏代码并保存为JPEG格式

功能：可以设置自动截屏时间1到60分钟；图像保存时间为1到7天，截屏的文件保存在与此程序的同一文件夹下。使用说明：第一次启动时，显示程序界面，一旦单击设置以后，下次再运行时就隐藏了。隐藏与显示的快捷键为ctrl+alt+q。如要开机自动启动，可以把此程序的快捷方式放入“启动”组。

2010-02-06

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人