随笔分类 - OFFICE技巧

摘要：答案　[A-D]*^13解析*^13 使用替换功能，删除答案和解析两段阅读全文

posted @ 2024-01-08 16:50 沭水之虾阅读(71) 评论(0) 推荐(0) 编辑

摘要：\([0-9]{4}·*\) \(：代表"（" [0-9]{4}:代表四位年份 ·:代表点号 \):代表")" 点选下方通配符阅读全文

posted @ 2024-01-08 15:43 沭水之虾阅读(13) 评论(0) 推荐(0) 编辑

摘要：Sub 删除分节符和分页符1() ActiveDocument.Content.Find.Execute FindText:="^b", ReplaceWith:="", Replace:=wdReplaceAll '删除分节符 ActiveDocument.Content.Find.Execute 阅读全文

posted @ 2023-07-09 09:24 沭水之虾阅读(651) 评论(0) 推荐(0) 编辑

学科网格式修正 sections find

摘要：Sub 学科网格式修正() '删除第二节内容 'MsgBox ActiveDocument.Sections.Count ActiveDocument.Sections(2).Range.Delete '删除节符号"^b"，用替换功能实现 Set wd = ActiveDocument.Conten 阅读全文

posted @ 2023-01-31 23:28 沭水之虾阅读(27) 评论(0) 推荐(0) 编辑

vba word另存为PDF

摘要：Sub 另存为PDF() s = ActiveDocument.Name i = InStrRev(s, ".") - 1 ActiveDocument.SaveAs2 filename:=ActiveDocument.Path & "\" & Left(s, i) & ".PDF", FileFo 阅读全文

posted @ 2023-01-27 22:12 沭水之虾阅读(506) 评论(0) 推荐(0) 编辑

Sub 插入强化训练()

摘要：Sub 插入强化训练() ' ' 插入强化训练宏 ' ' Selection.TypeText Text:="【】" Selection.MoveLeft unit:=wdCharacter, Count:=1 Selection.TypeText Text:="强化训练" '选择当前行 Sele 阅读全文

posted @ 2022-12-14 22:41 沭水之虾阅读(48) 评论(0) 推荐(0) 编辑

WORD VBA 办公助手

摘要：Sub 设置页面() ' ' 设置页面和页码宏 ' ' With Selection.PageSetup .LineNumbering.Active = False .Orientation = wdOrientPortrait .TopMargin = CentimetersToPoints(2 阅读全文

posted @ 2022-11-28 01:52 沭水之虾阅读(147) 评论(0) 推荐(0) 编辑

WORD VBA 设置页面

摘要：Sub 设置页面() ' ' 设置页面和页码宏 ' ' With Selection.PageSetup .LineNumbering.Active = False .Orientation = wdOrientPortrait .TopMargin = CentimetersToPoints(2 阅读全文

posted @ 2022-11-28 00:23 沭水之虾阅读(231) 评论(0) 推荐(0) 编辑

WORD VBA 插入页码

摘要：Sub 插入页码() ActiveDocument.PageSetup.OddAndEvenPagesHeaderFooter = False '关闭奇偶页相同（防止上回启用奇偶页不同后没有关闭此项设置） With ActiveWindow.ActivePane.View .SeekView = w 阅读全文

posted @ 2022-11-28 00:21 沭水之虾阅读(1228) 评论(0) 推荐(0) 编辑

[WORD办公]设置图片四周环绕快捷键

摘要：1、打开WORD选项，自定义 >所以命令 >FormatDrawingObjectWrapSquare 2、按照下图操作即可阅读全文

posted @ 2022-04-27 11:38 沭水之虾阅读(846) 评论(0) 推荐(0) 编辑

【WORD办公】自动添加页码及快捷键

摘要：1、WORD视图中添加宏，代码如下 Sub 插入普通页码() ActiveDocument.PageSetup.OddAndEvenPagesHeaderFooter = False '关闭奇偶页相同（防止上回启用奇偶页不同后没有关闭此项设置） With ActiveWindow.ActivePa 阅读全文

posted @ 2022-04-27 11:32 沭水之虾阅读(1254) 评论(0) 推荐(0) 编辑