一月, 2018 | ExcelOffice

Sub QQ1722187970()
    Const wdReplaceAll = 2
    Dim oRng As Range
    Dim oRng1 As Range
    Dim oRngT As Range
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    Dim oDoc1 As Document
    sPath = oDoc.Path
    Set oRng = Word.Selection.Range
    '先判断是否有选中区域，没有选中则表示整个文档
    If oRng.Start = oRng.End Then
        Set oRng = Word.ActiveDocument.Content
    End If
    '获取要执行操作的区域的起点和终点，用于查找替换时判断是否超出了选定区域
    iStart = oRng.Start
    iEnd = oRng.End
'    Debug.Print oRng.Text
    Set oRng1 = oRng
    With oRng1.Find
        i = 1
        j = 0
        .ClearFormatting
        .MatchWildcards = False
        .Text = "^m"
        '每执行一次查找，只要找到了结果，oRng对象会自动变成被找到的内容所在的区域
        Do Until .Execute() = False Or oRng1.Start > iEnd Or oRng1.End < iStart
            
            Set oDoc1 = Word.Documents.Add
            
            k = oRng1.Start
            Set oRngT = oDoc.Range(j, k)
            oRngT.Copy
            oDoc1.Content.Paste
            j = k + 1
            oDoc1.SaveAs2 sPath & "\" & i & ".doc"
            oDoc1.Close
            i = i + 1
        Loop
    End With
    Set oDoc1 = Word.Documents.Add
    k = oDoc.Content.End
    Set oRngT = oDoc.Range(j, k)
    oRngT.Copy
    oDoc1.Content.Paste
    oDoc1.SaveAs2 sPath & "\" & i & ".doc"
    oDoc1.Close
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

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

Sub QQ1722187970()

Const wdReplaceAll = 2

Dim oRng As Range

Dim oRng1 As Range

Dim oRngT As Range

Dim oDoc As Document

Set oDoc = Word.ActiveDocument

Dim oDoc1 As Document

sPath = oDoc.Path

Set oRng = Word.Selection.Range

'先判断是否有选中区域，没有选中则表示整个文档

If oRng.Start = oRng.End Then

Set oRng = Word.ActiveDocument.Content

End If

'获取要执行操作的区域的起点和终点，用于查找替换时判断是否超出了选定区域

iStart = oRng.Start

iEnd = oRng.End

' Debug.Print oRng.Text

Set oRng1 = oRng

With oRng1.Find

i = 1

j = 0

.ClearFormatting

.MatchWildcards = False

.Text = "^m"

'每执行一次查找，只要找到了结果，oRng对象会自动变成被找到的内容所在的区域

Do Until .Execute() = False Or oRng1.Start > iEnd Or oRng1.End < iStart

Set oDoc1 = Word.Documents.Add

k = oRng1.Start

Set oRngT = oDoc.Range(j, k)

oRngT.Copy

oDoc1.Content.Paste

j = k + 1

oDoc1.SaveAs2 sPath & "\" & i & ".doc"

oDoc1.Close

i = i + 1

Loop

End With

Set oDoc1 = Word.Documents.Add

k = oDoc.Content.End

Set oRngT = oDoc.Range(j, k)

oRngT.Copy

oDoc1.Content.Paste

oDoc1.SaveAs2 sPath & "\" & i & ".doc"

oDoc1.Close

End Sub

如何用vba在word中删除所有手动分页符或者分节符?

2018年1月7日作者：exceloffice

暂无评论

在word vba 中 Break 对象可以用来表示分页符、分栏符、分节符等各种分隔符，但是它没有提供判断分隔符的类型的属性和删除分隔符的方法。

如果要用vba删除手动分页符可以使用查找替换的方法。

代码所示：

Sub QQ1722187970()
    Const wdReplaceAll = 2
    Dim oRng As Range
    Set oRng = Word.ActiveDocument.Content
    With oRng.Find
        .ClearFormatting
        .MatchWildcards = False
        '手动分页符
        .Text = "^m"
        .Execute ReplaceWith:="", Replace:=wdReplaceAll
    End With
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

Sub QQ1722187970()

Const wdReplaceAll = 2

Dim oRng As Range

Set oRng = Word.ActiveDocument.Content

With oRng.Find

.ClearFormatting

.MatchWildcards = False

'手动分页符

.Text = "^m"

.Execute ReplaceWith:="", Replace:=wdReplaceAll

End With

End Sub

如果要[……]

阅读全文

如何在word中用IncludePicture域插入图片？

2018年1月7日作者：exceloffice

暂无评论

在word中可以通过插入IncludePicture域来链接图片。

在“插入”选项卡下的“文本”组中单击“文档部件”，选中“域”可以弹出“域”对话框，在“请选择域”中可以找到IncludePicture域，如下图所示：

field

其中IncludePicture域的域代码语法如下所示：[……]

阅读全文

如何用vba判断内容是否在word表格内？

2018年1月6日作者：exceloffice

暂无评论

在编写word vba时，经常涉及到word表格的处理，其中一项任务就是要判断是否内容位于word表格内。

在word vba中可以使用range对象或者selection对象的Information属性来判断是否位于表格内。

代码如下：
[crayon-5ba362275e95e13[……]

阅读全文

如何用vba处理word的样式？

2018年1月6日作者：exceloffice

暂无评论

样式是word的文档的格式基础，学好word的最关键的是要掌握样式的使用。

word vba 中样式的对象为Style，接下来介绍用vba处理word的样式的方法

一、遍历当前文档中的word样式

Sub QQ1722187970()
    Dim oStyle As Style
    For Each oStyle In Word.ActiveDocument.Styles
        With oStyle
            '遍历获取样式的名称
           Debug.Print .NameLocal
        End With
    Next
End Sub

1

2

3

4

5

6

7

8

9

Sub QQ1722187970()

Dim oStyle As Style

For Each oStyle In Word.ActiveDocument.Styles

With oStyle

'遍历获取样式的名称

Debug.Print .NameLocal

End With

二、设置样式
[c[……]

阅读全文

如何在vba中应用错误处理程序？

2018年1月4日作者：exceloffice

暂无评论

编写vba代码，不可避免的会遇到运行错误，有些运行错误是可以通过调整代码来消除的，有些运行错误是需要忽略的。

为了让程序运行顺畅，有时候需要应用错误处理程序使程序在遇到运行错误时选择处理的方式。

接下来介绍几种错误处理方式

一、使用On Error Resume Next 语句遇[……]

阅读全文

近期文章

关键字

功能