狂自私

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

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

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

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

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

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

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

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

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