2024 年 5月 26 日随笔档案 - 狂自私 - 博客园

nginx-端口复用，不同域名映射到不同服务中

摘要： a56爆大奖在线娱乐使用docker容器运行NGINX，并将主机的80端口映射到容器的8080端口中。 [root@harbor 20240526]# docker ps CONTAINER ID IMAGE COMMAND CREATED STATUS PORTS NAMES 2e110b2f2572 goharb 阅读全文

posted @ 2024-05-26 11:09 狂自私阅读(21) 评论(0) 推荐(0) 编辑

select_range

摘要： Function select_range(start_title_str As String, end_title_str As String, Optional style_str As String = "标题 1") As Boolean '选择范围，通过指定本标题字符串（start_tit 阅读全文

posted @ 2024-05-26 08:47 狂自私阅读(5) 评论(0) 推荐(0) 编辑

创建超链接

摘要： Sub 创建超链接() ' ' 创建超链接宏 ' 为所选择的表格的第一列的cmdlet命令创建对应的超链接（前提是已经存在对应的命令说明内容） ' 只处理第一个表格 ' Application.ScreenUpdating = False '关闭同步调整更新 Dim my_table As Tab 阅读全文

posted @ 2024-05-26 08:47 狂自私阅读(2) 评论(0) 推荐(0) 编辑

标题查询

摘要： Sub 标题查询() ' ' 标题查询宏 ' 用来查询样式为标题n（1≤n≤9）的标题 ' Dim title_n Dim find_str As String find_str = InputBox("请输入要查找的内容：", "标题内容查询：输入查询内容") '做简单的合法性判断 If (Le 阅读全文

posted @ 2024-05-26 08:47 狂自私阅读(8) 评论(0) 推荐(0) 编辑

cmdlet_命令查询

摘要： Sub cmdlet_命令查询() ' ' 查找宏 ' ' Result = select_range("cmdlet 命令", "Server 2016 core") Selection.Find.ClearFormatting Selection.Find.Style = ActiveDocu 阅读全文

posted @ 2024-05-26 08:46 狂自私阅读(4) 评论(0) 推荐(0) 编辑

调整cmdlet命令的顺序

摘要： Sub 调整cmdlet命令的顺序() ' ' 调整about标题的顺序宏 ' ' Result = select_range("cmdlet 命令", "Server 2016 core") If (Result) Then Selection.SortByHeadings wdSortFiel 阅读全文

posted @ 2024-05-26 08:45 狂自私阅读(1) 评论(0) 推荐(0) 编辑

调整about标题的顺序

摘要： Sub 调整about标题的顺序() ' ' 调整about标题的顺序宏 ' ' Result = select_range("about配置文件", "实战：远程巡检希沃一体机的运行信息") If (Result) Then Selection.SortByHeadings wdSortFiel 阅读全文

posted @ 2024-05-26 08:44 狂自私阅读(2) 评论(0) 推荐(0) 编辑

调整表格为自己喜欢的样式

摘要： Sub 调整表格为自己喜欢的样式() ' ' 表格左对齐宏 ' 且文字环绕 Application.ScreenUpdating = False '关闭同步调整更新 Dim mytable As Table, i As Long For Each mytable In ActiveDocument 阅读全文

posted @ 2024-05-26 08:43 狂自私阅读(2) 评论(0) 推荐(0) 编辑

自适应/调整图片大小为页面大小

摘要： Sub ResizeImagesToPageWidth() Application.ScreenUpdating = True ' 获取当前文档 Set doc = ActiveDocument ' 获取页面宽度并减去页边距 With doc.PageSetup pgWidth = .PageWid 阅读全文