vba替换指定内容

作者：夏天的风你会懂

在公文处理和办公自动化的领域，文档的格式化和排版是一项耗时而繁琐的工作。传统的手动排版不仅效率低下，而且容易出错。今天，我们要介绍的是一种通过VBA（Visual Basic for Applications）代码实现的自动化公文排版方式，它能极大地提高工作效率和文档的专业性。

功能一览：

1.自动设置页面（版芯尺寸）和字体格式

2.自动去除所有空格

3.自动替换英文标点为中文标点（包括但不限于头疼的六角括号【】[]转换为〔〕，单书名号<>转换为〈〉，包括数字序号1、2、3、自动转换成1.2.3.）

4.自动识别并设置各级标题格式（包括自动识别正文主标题，一级、二级，三级、四级标题，并按标准进行设置格式）

5.自动识别主送单位后左对齐

6.自动识别并加粗“一是”“二是”等关键词

7.设置页码格式（奇数页在右，偶数页在左），页码离版芯下沿7mm。

8.删除页眉横线

9.自动设置公文落款（日期右空4个字符，发文机关署名自动根据字数对中发文日期）

10.自动识别附件并按要求设置格式（头疼的附件调整全部自动识别并调整好缩进，有序号（1.2.）的附件也完美缩进）

11.可选项目符号转换为文本，方便编辑

在快节奏的工作环境中，效率和准确性是至关重要的。通过智能化的VBA排版脚本，我们不仅能节约宝贵的时间，还能提升公文的整体质量。如此，我们便可以将更多的精力投入到真正需要深思熟虑和创造力的工作中去。

网盘下载

查看文章精彩评论，请前往什么值得买进行阅读互动

昌项星2663excel vba特定字符替换 -
叔疤阎13522578495 ______ Sub xxx() Dim c For Each c In Range(＂c4:g9＂).Cells c = Replace(c, ＂ADFGS＂, ＂ZXG＂) Next c End Sub

昌项星2663Excel VBA 字符替换 -
叔疤阎13522578495 ______ Sub LKJL() SS = ＂x+1=3-x+2y＂ Set reg = CreateObject(＂VBSCRIPT.REGEXP＂) reg.Global = True reg.Pattern = ＂[/+-/*///^=]＂ Set mc = reg.Execute(SS) bb = Split(reg.Replace(SS, ＂|＂), ＂|＂) For i = 0 To UBound(bb) If Len(bb(i)) = 1 And ...

昌项星2663vba中数据替换 -
叔疤阎13522578495 ______ Public Sub Test() Dim sPath As String Dim iFile As Long Dim t As Integer Dim strTemporary As String t = 5 ' 计算出t的具体数值 strTemporary = ＂(10,＂ & CStr(t) & ＂,5)＂ sPath = ＂D:\Temporary.txt＂ iFile = FreeFile() Open sPath For Append As #iFile Print #iFile, strTemporary Close #iFile End Sub

昌项星2663vba 替换所有表格中固定数据 -
叔疤阎13522578495 ______ Sub test() Application.ScreenUpdating = False Dim sht As Worksheet Dim rng As Range For Each sht In ThisWorkbook.Worksheets For Each rng In sht.UsedRange If InStr(rng, ＂2011年7月＂) > 0 Then rng = Replace(rng, ＂2011年7月＂, ＂2011年8月＂) Next Next Application.ScreenUpdating = True End Sub

昌项星2663Excel VBA中,如果全局替换已经设定好的字符? -
叔疤阎13522578495 ______ sub rpAll() Dim str1 As String Dim str2 As String str1 = Sheets(＂Sheet1＂).Range(＂A1＂).Value str2 = Sheets(＂Sheet1＂).Range(＂B1＂).Value Sheets(＂Sheet2＂).Cells.Replace What:=str1,Replacement:=str2,LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False End Sub

昌项星2663VBA怎样使表格的内容替换为其它的内容速度更快
叔疤阎13522578495 ______ Sub clean(ByVal a As Long,ByVal b As Long)'a,b表示所要替换的单元格的横纵坐标Dim tmp as stringDim ids as longtmp=＂＂ids=Instr(1,sheet1.Cells(a,b),＂/＂)if ids=0 thenelsetmp=mid(sheet1.Cells(a,b),1,ids)end ifids=Instr(1,sheet1.Cells(a,b),...

昌项星2663Excel VBA 怎么对数组的内容进行替换 ,附图 -
叔疤阎13522578495 ______ 更改Pattern和 arr(n)赋值语句: .Pattern = ＂(\d{1,2}).(\d{3})＂ For Each Rng In [a1] Set qzzh = .Execute(Rng) For Each m In qzzh n = n + 1 arr(n) = .Replace(Rng, ＂$1.$2＂) 其余不变

昌项星2663word vba 批量替换(标记)
叔疤阎13522578495 ______ Set myRange = ActiveDocument.Content myRange.Find.Execute FindText:=＂2＂, ReplaceWith:=＂1＂, Replace:=wdReplaceAll Set myRange = ActiveDocument.Content myRange.Find.Execute FindText:=＂2＂, ReplaceWith:=＂1＂, Replace:...

昌项星2663excel vba 替换
叔疤阎13522578495 ______ 以下宏将所有A1:A4之间的单元格中,值为12月1日进12箱,共360支的,360全改为红色和加下划线. Sub 宏2() For Each c In Worksheets(＂Sheet1＂).Range(＂A1:a4＂) If c.Value = ＂12月1日进12箱,共360支＂ Then With c.Characters(Start:...

昌项星2663excel vba删除固定字符,(并在指定范围内) -
叔疤阎13522578495 ______ 这个也有必要用vba么?简单的工作为什么要复杂化?莫非在政府部门工作?!呵呵! 直接查找替换就可以了.问题: 你的这个数据有规律没有,就是红色的字是不是在特定的位置? 要解决的话,只有先去掉(替换掉)短横线,再把固定(或相对固定)的位置的字符颜色换掉.这个用vba倒是比较快.Sub 宏1()'' 宏1 宏' Dim i For i = 1 To 9 Cells(i, 1).Select With ActiveCell.Characters(Start:=3, Length:=1).Font .Color = -16776961 End With Next End Sub