Excel教程|Word教程|VBA应用-ExcelOffice

如何用正则表达式查找word文档中的段落分隔符和手动换行符？

2018年6月23日作者：exceloffice

暂无评论

如上图所示，word文档中有手动换行符和段落分隔符（段落标记）。

在编写vba时，有时候需要替换手动换行符或者段落分隔符，这时候需要知道它们的ascii编码。

经过测试发现手动换行符的ASCII编码为11，段落分隔符的ASCII编码为13。

通过查找ASCII编码对应表可以知道11对应的是垂直制表符，13对应的是回车键。

有了以上的知识，如果要用正则表达式查找手动[……]

阅读全文

在vba中文件或文件夹的Attributes属性值有哪些？

2018年6月23日作者：exceloffice

暂无评论

电脑中的每个文件都有对应的文件属性

有些文件是系统文件、有些文件是隐藏文件、有些文件是只读文件。

系统文件、隐藏文件、只读文件这些偶读属于文件的属性。

在用vba遍历文件夹内的所有文件时经常需要过滤掉系统文件、隐藏文件、只读文件等，这时候可以通过判断文件对象的

Attributes属性，Attributes属性的值有以下几种：

常数
值
说明

N[……]

阅读全文

如何用vba移动文件或文件夹？

2018年6月23日作者：exceloffice

暂无评论

vba没有内置移动文件或文件夹的语句或函数。

在vba里面移动文件或文件夹可以使用FileSystemObject对象的MoveFolder方法移动文件夹，使用FileSystemObject对象的MoveFile方法移动文件。

它们的语法都是类似

object.MoveFolder ( source, destination );

1	object.MoveFolder ( source, destination );

object.MoveFile ( source, destination );

1	object.MoveFile ( source, destination );

[……]

阅读全文

如何用vba将word文档的自动编号列表项转换为手动编号文本？

2018年6月23日作者：exceloffice

暂无评论

word文档的列表项可以在输入内容的时候自动变化，有项目符合列表和编号列表两种。

word 文档的列表项并不属于域。

有时候我们希望将自动编号转化为文本状态，不再自动编号，这时候可以使用List对象或者Document对象的ConvertNumbersToText方法。

代码如下：

Sub QQ1722187970()
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    oDoc.ConvertNumbersToText
    Dim oList As List
    Debug.Print oDoc.Lists.Count
    For Each oList In oDoc.Lists
        oList.ConvertNumbersToText
    Next
End Sub

1

2

3

4

5

6

7

8

9

10

Sub QQ1722187970()

Dim oDoc As Document

Set oDoc = Word.ActiveDocument

oDoc.ConvertNumbersToText

Dim oList As List

Debug.Print oDoc.Lists.Count

For Each oList In oDoc.Lists

oList.ConvertNumbersToText

如何用vba批量删除Word文档中的空白页？

2018年6月21日作者：exceloffice

暂无评论

word文档中的空白页，可以是没有任何内容只含有段落分隔符的页面，也可以是含有任意多个无效字符的页面。

为了批量删除Word文档中的空白页，可以使用如下的代码：

Sub QQ1722187970()
    Const wdPageBreak = 7
    Const wdSectionBreakContinuous = 3
    Const wdSectionBreakNextPage = 2
    Const wdGoToPage = 1
    Const wdGoToAbsolute = 1
    Dim oDoc As Document
    Dim oRng As Range
    Set oDoc = Word.ActiveDocument
    Dim iPageNo As Long
    '获取总页数
    With oDoc
    iPageNo = .Range.Information(wdNumberOfPagesInDocument)
        For i = iPageNo To 1 Step -1
            '定位到页开始
            Set oRng = .GoTo(wdGoToPage, Which:=wdGoToAbsolute, Count:=i)
            oRng.Select
            oRng.SetRange oRng.Start, oRng.Bookmarks("\page").End
            sText = oRng.Text
            '判断当前页面是否含有有效的字符
            If Not (sText Like "*[0-9]*" Or sText Like "*[a-z]*" Or sText Like "*[A-Z]*" Or sText Like "*[一-龥]*") Then
                oRng.Delete
            End If
        Next i
    End With
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

Sub QQ1722187970()

Const wdPageBreak = 7

Const wdSectionBreakContinuous = 3

Const wdSectionBreakNextPage = 2

Const wdGoToPage = 1

Const wdGoToAbsolute = 1

Dim oDoc As Document

Dim oRng As Range

Set oDoc = Word.ActiveDocument

Dim iPageNo As Long

'获取总页数

With oDoc

iPageNo = .Range.Information(wdNumberOfPagesInDocument)

For i = iPageNo To 1 Step -1

'定位到页开始

Set oRng = .GoTo(wdGoToPage, Which:=wdGoToAbsolute, Count:=i)

oRng.Select

oRng.SetRange oRng.Start, oRng.Bookmarks("\page").End

sText = oRng.Text

'判断当前页面是否含有有效的字符

If Not (sText Like "*[0-9]*" Or sText Like "*[a-z]*" Or sText Like "*[A-Z]*" Or sText Like "*[一-龥]*") Then

oRng.Delete

End If

Next i

End With

End Sub

如何用vba在word文档的每页结尾插入分节、分页符？

2018年6月21日作者：exceloffice

暂无评论

用vba在word文档中插入分隔符，可以使用Range或者Selection对象的InsertBreak方法。

定位word的每页可以使用Document、Range、Selection对象的GoTo方法。

由于GoTo方法将返回一个Range对象，该对象表示定位的对象的起始位置。

基于以上的知识，用vba在word文档的每页结尾插入分页符、分节符，可以采用以下的算法

从最[……]

阅读全文

word中有哪些隐藏的预定义的书签名？

2018年6月21日作者：exceloffice

暂无评论

word中使用书签可以快速地定位，word中的书签可以分为三类，一类是显示的添加的书签，一类是添加的隐藏书签，最后一类是预定义的书签。

其中预定义的书签在word中显示不出来，但是却可以使用，使用预定义的书签可以实现各种常见的内容的快速定位操作。

下表是word中隐藏的预定义的书签：

书签名
说明

\Sel
当前所选内容或插入点。

\PrevSel[……]

阅读全文

如何用vba在word文档的开头或结尾插入任意的空白页？

2018年6月21日作者：exceloffice

暂无评论

插入空白页可以使用Selection对象的InsertNewPage方法。

定位文档的开头或结尾可以使用Range对象的Start和End属性。

基于以上的知识，可以使用如下的代码在word文档的开头或结尾插入任意的空白页。

Sub QQ1722187970()
    Dim oRng As Range
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    With oDoc
        .Range(.Range.End - 1).Select
    End With
    '在文档的结尾插入2页空白页
    For i = 1 To 2
        Word.Selection.InsertNewPage
    Next i
    With oDoc
        .Range(0).Select
    End With
    '在文档的开头插入2页空白页
    For i = 1 To 2
        Word.Selection.InsertNewPage
    Next i
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

Sub QQ1722187970()

Dim oRng As Range

Dim oDoc As Document

Set oDoc = Word.ActiveDocument

With oDoc

.Range(.Range.End - 1).Select

End With

'在文档的结尾插入2页空白页

For i = 1 To 2

Word.Selection.InsertNewPage

Next i

With oDoc

.Range(0).Select

End With

'在文档的开头插入2页空白页

For i = 1 To 2

Word.Selection.InsertNewPage

Next i

End Sub

如何用vba将形成ab+c+de的数学表达式展开?

2018年6月20日作者：exceloffice

暂无评论

比如将“75*2+90*3+120*1”形式的字符串展开为”75+75+90+90+90+120″形式的字符串。

可以使用如下的自定义函数：

Function GetString(ByVal oRng As Variant) As String
    arr = Split(oRng, "+")
    For i = 0 To UBound(arr)
        k = 0
        arr1 = Split(arr(i), "*")
        If UBound(arr1) > 0 Then
            For j = 1 To arr1(1) * 1
                n = arr1(0)
                ReDim Preserve arrTemp(k)
                arrTemp(k) = n
                k = k + 1
            Next j
            arr(i) = Join(arrTemp, "+")
        End If
    Next i
    sResult = Join(arr, "+")
    GetString = sResult
End Function

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

Function GetString(ByVal oRng As Variant) As String

arr = Split(oRng, "+")

For i = 0 To UBound(arr)

k = 0

arr1 = Split(arr(i), "*")

If UBound(arr1) > 0 Then

For j = 1 To arr1(1) * 1

n = arr1(0)

ReDim Preserve arrTemp(k)

arrTemp(k) = n

k = k + 1

Next j

arr(i) = Join(arrTemp, "+")

End If

Next i

sResult = Join(arr, "+")

GetString = sResult

End Function

如何用vba修改excel单元格区域range的行高和列宽？

2018年6月14日作者：exceloffice

暂无评论

range对象中与高度相关的属性有RowHeight和Height，与宽度相关的属性有Width和ColumnWidth 。

其中Height属性可以返回多个单元格区域的总行高，以points为单位，但是它不能设置多个单元格区域的行高。

如果要统一设置多个单元格区域的行高，只能用RowHeight属性。

列宽也是类似的。

用vba修改excel单元格区域range的行高和列[……]

阅读全文

ExcelOffice

如何用正则表达式查找word文档中的段落分隔符和手动换行符？

在vba中文件或文件夹的Attributes属性值有哪些？

如何用vba移动文件或文件夹？

如何用vba批量删除Word文档中的空白页？

如何用vba在word文档的每页结尾插入分节、分页符？

word中有哪些隐藏的预定义的书签名？

如何用vba在word文档的开头或结尾插入任意的空白页？

如何用vba将形成ab+c+de的数学表达式展开?

如何用vba修改excel单元格区域range的行高和列宽？

分类目录

近期文章

功能

分类目录

近期文章

标签

功能