一月, 2018 | ExcelOffice【微信公众号：水星Excel】

如何用vba判断活动工作表中的单元格是否被其它工作表的公式引用？

2018年1月30日作者：水星Excel

1,007 次浏览暂无评论

工作表中任意单元格都可以输入公式，公式引用的单元格可以是在同一个工作表内，也可以是在不同的工作表内。

excel中提供了一个“公式审核”功能可以查找“追踪引用单元格”和“追踪从属单元格“，如下图所示：[……]

阅读全文>>>

如何用api函数获取窗口或者窗口客户区的长方形尺寸？

2018年1月28日作者：水星Excel

1,007 次浏览暂无评论

首先，api函数获得的窗口的尺寸都是以像素为单位的。

获得窗口的客户区的尺寸可以用GetClientRect，获取窗口的尺寸可以用GetWindowRect。

获得的长方形区域的左上角和右下角的[……]

阅读全文>>>

如何用vba将word文档按照手动分页符拆分？

2018年1月7日作者：水星Excel

1,281 次浏览暂无评论

在一个word文档中插入了多个手动分页符，现在希望将该文档按照手动分页符拆分成若干个子文档，可以使用如下的代码：

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日作者：水星Excel

1,840 次浏览暂无评论

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

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

阅读全文>>>

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

2018年1月7日作者：水星Excel

3,731 次浏览暂无评论

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

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

阅读全文>>>

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

2018年1月6日作者：水星Excel

1,372 次浏览暂无评论

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

在word vba中可以使用range对象或者selection对象的Information属[……]

阅读全文>>>

如何用vba处理word的样式？

2018年1月6日作者：水星Excel

1,733 次浏览暂无评论

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

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

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

阅读全文>>>

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

2018年1月4日作者：水星Excel

876 次浏览暂无评论

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

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

阅读全文>>>

如何用vba判断活动工作表中的单元格是否被其它工作表的公式引用？

如何用api函数获取窗口或者窗口客户区的长方形尺寸？

如何用vba将word文档按照手动分页符拆分？

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

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

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

如何用vba处理word的样式？

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

感谢你的支持，我将持续地写出更好的文章。

热门文章

最近文章

微信公众号