文章分类 -  Word PowerPoint

复杂条件下的文档生成
摘要：from docxtpl import DocxTemplate with open('dat.txt', 'r', encoding='utf-8') as f: dat = [i.strip() for i in f.readlines()] dat = [dat[i:i+5] for i in 阅读全文
posted @ 2025-06-10 14:13 汉学 阅读(6) 评论(0) 推荐(0)
用 Excel 表格中的数据批量替换 docx 模板中的标记（原创）
摘要：# 修改模板文件后，DOC中段落受格式影响，可能导致占位标记被分割成两个段落，出现这种情况可以将模板中 # 全部内容以“无格式文本”粘贴到新文档中，重新设置格式，可纠正错误的段落分割 import docx import xlwings as xw import sys import time im 阅读全文
posted @ 2025-04-11 10:54 汉学 阅读(15) 评论(0) 推荐(0)
word方框里面加个勾怎么打出来
摘要：在Word文档中创建一个包含勾选的方框可以通过多种方法实现： 使用快捷键法 在文档中输入数字“2611”，然后同时按下键盘上的Alt+X键，即可将数字转换为带有勾选的对号方框。如果需要输入带叉的方框，可以输入数字“2612”后按Alt+X键。 使用插入符号法 在Word中，选择“插入”菜单，然后点击 阅读全文
posted @ 2024-07-11 16:44 汉学 阅读(297) 评论(0) 推荐(0)
分数录入（原创）
摘要：Sub FS() ' ' FS Macro ' 宏在 2013-6-28 由 微软用户 创建 ' ' 分数起始标志 Const SignBegin = "《" ' 分数结束标志 Const SignEnd = "》" ' 分数线标志 Const SignSplit = "、" Dim sf As B 阅读全文
posted @ 2024-06-08 08:22 汉学
VBA向表格中插入图片并设置其环绕格式为环绕型
摘要：Sub 宏1() ' ' 宏1 宏 ' ' Application.ScreenUpdating = False Dim oTbl As Table, i As Long, j As Long, k As Long 'Select and insert the Pics With Applicati 阅读全文
posted @ 2024-04-15 08:29 汉学 阅读(47) 评论(0) 推荐(0)
VBA选中文档的全部表格
摘要：当文档中存在大量表格，手动设置格式比较繁琐，可以使用下面的VBA代码，一次选中文档中的全部表格 Sub SelectAllTables() Dim tempTable As Table Application.ScreenUpdating = False '判断文档是否被保护 If ActiveDo 阅读全文
posted @ 2020-03-16 10:05 汉学 阅读(847) 评论(0) 推荐(0)
Word无格式粘贴及与周围格式相匹配粘贴
摘要：官方Selection.PasteAndFormat () 方法介绍-链接: WdRecoveryType参数. a.无格式粘贴 宏 这一类适用于从各处复制过来的文本，粘贴时只想保留无格式文本。 b.格式与周围文本格式匹配粘贴 宏 无格式文本粘贴有一个缺陷，在进行表格覆盖的时候，格式会与原来的格式不 阅读全文
posted @ 2019-12-10 06:38 汉学 阅读(877) 评论(0) 推荐(0)
使用VBA向幻灯片中插入大量图片做背景
摘要：有一次需要做一份幻灯片，大约要向其中插入30多张图片，使用“插入－图片”有可能因源文件像素过大而超出页面范围，需要重新调整尺寸。经查询，使用“背景－图像填充”的方式插入图片可以自动适应页面尺寸，但是此操作需要点击鼠标的动作太多了，于是想到了VBA。 第二个问题是PowerPoint中的宏是不能指定快 阅读全文
posted @ 2019-12-04 10:49 汉学 阅读(758) 评论(0) 推荐(0)