VBA WORD 段落前加空行

Private Function isBlankLine(s1 As String) As Boolean ‘判断是否为空白行
‘9 TAB 32 空格 13 换行
l1 = Len(s1)

For i = 1 To l1
ch = Asc(Mid(s1, i, 1))If (ch <> 9 And ch <> 32 And ch <> 13) ThenisBlankLine = FalseGoTo exit1End If
Next i

isBlankLine = True

exit1:
End Function

Private Sub CommandButton1_Click()
Open “D:\SAV.TXT” For Output As #1

pcount = Word.ActiveDocument.Paragraphs.Count
Label1 = pcount
Dim p1 As String
Dim pup As String

With Word.ActiveDocument

For i = 3000 To pcount
DoEvents
Label2 = i

p0 = ActiveDocument.Paragraphs(i).Range.Text
p1 = Left(p0, 5)
If InStr(1, p1, "、") <> 0 Or InStr(1, p1, ".") <> 0 Or InStr(1, p1, "．") <> 0 Or InStr(1, p1, ".") <> 0 Then'判断是否含有 、 . ．
If InStr(1, p1, "、") <> 0 Thenps = Split(p1, "、")(0)
ElseIf InStr(1, p1, ".") <> 0 Thenps = Split(p1, ".")(0)
ElseIf InStr(1, p1, "．") <> 0 Thenps = Split(p1, "．")(0)
'ElseIf InStr(1, p1, ".") <> 0 Then'  ps = Split(p1, ".")(0)
End If'判断、 . .号前面是否为数字
If (IsNumeric(ps)) Then'判断前一段是否为空行pup = ActiveDocument.Paragraphs(i - 1).Range.TextIf (Not isBlankLine(pup)) ThenListBox1.AddItem (p0)Write #1, "P" & i & "   " & p0ActiveDocument.Paragraphs(i - 1).Range.InsertAfter (vbCrLf) '插入换行符DoEventsEnd If
'TypeParagraphEnd IfEnd If

Next i
End With

Close #1
End Sub

Private Sub CommandButton2_Click() ‘去段前段后空格
Label1 = ActiveDocument.Paragraphs.Count
For i = 1 To ActiveDocument.Paragraphs.Count
DoEvents
Label2 = i
s1 = ActiveDocument.Paragraphs(i).Range.Text
If (Asc(Left(s1, 1)) = 32) Then
ActiveDocument.Paragraphs(i).Range.Text = Trim(s1)
End If

Next i
End Sub

VBA WORD 段落前加空行相关推荐

php文章段落之间没有空行,Word中段落之间空行怎么去掉？
Word中去掉段落之间空行的方法:1.一行一行的删除:2.先使用[Ctrl+H]打开[查找和替换]中的[替换]选项卡,再点击[特殊格式],选择里面的[段落标记]:3.在[替换为]选项中什么也不填,直接 ...
Microsoft.Office.Interop.Word 在某一段落前插入新的段落
试过两种方法: 第一种: 变量sig是段落类型,改变其text就可以了,换行添加一个\r: sig.Range.Text = "段落前插入一个新的段落\r" + sig.Range ...
在所有样式为“标题 1”的段落前插入分页型分节符
上一篇文章在文档中所有页面的页眉添加节标题并且链接到自动生成的目录,其中要求在所有样式为"标题 1"的段落前插入分页型分节符,如果碰上没有这样做的文章怎么办?可以用以下代码一次性插 ...
(VBA)Word中对选中的行（代码行）自动编号并修改注释的颜色
说实话,CSDN的这个插入代码的控件很好用,特别是自动添加行号的功能. 下面这段VBA代码就是在Word中,对你编辑的代码添加行号和对"//"以后的注释部分加上颜色. 用法:选中你 ...
word段落居中的快捷键_word里段落的快捷键 WORD中段落的快捷键是什么
WORD中段落的快捷键是Alt+O+P 1.电脑打开Word2019版本文档. 2.打开Word2019后,输入要编辑的文字内容. 3.输入文字后,按段落的快捷键Alt+O+P,就可以直接调出段落管理 ...
计算机实验word,实验六计算机基础——word段落设置
实验六计算机基础--word段落设置 (5页) 本资源提供全文预览,点击全文预览即可全文预览,如果喜欢文档就下载吧,查找使用更方便哦! 14.90 积分 WORD编辑排版实验六 WORD段落设置一．实 ...
Microsoft Word 段前距设置和页眉设置
在毕设论文整理中,段前距的设置和页眉的设置不起作用,这着实让我脑袋疼.网上搜索了几种方式,搭配一下还是起了作用. 一. 段前距设置 1. 各级标题在首页,段前距设置不起作用. 选择要段前分页的段落,右 ...
word段落间距调整：格式刷/取消对齐网格/分节符/擦除格式都无效的应对方法
找遍全网,段落格式无法调整无非下列5种: 1 段落选项中取消对齐到网格 2 段前未赋予数值(早期word文档) 3 段落前打一行,设置间距都为0 4 设置段前分页(针对标题段落无法修改的问题) 5 ( ...
计算机段落格式解释,职称计算机考试Word教程：Word段落格式
职称计算机考试Word教程:Word段落格式导语:段落格式是指控制段落外观的格式设置.例如,缩进.对齐.行距和分页.Word中设置行距和段间距行距和段间距是最常用的段落格式之一. 一.内置段落样式 ...

VBA WORD 段落前加空行

VBA WORD 段落前加空行相关推荐

最新文章

热门文章