VBA字典&Word文档批量处理工具

01

1、字典

(1)、创建字典 

Sub 字典()

Set d = CreateObject('scripting.dictionary') End Sub

 (2)、赋值

分别用两种范式赋值

Sub 字典()

Set d = CreateObject('scripting.dictionary')

For x = 1 To 4

d.Add Cells(x, 'a').Value, Cells(x, 'b')

Next

End Sub

①、蓝色区域相当于字典的条目，这个区域内容不可以重复。红色区域是条目对应的解释

②、直接赋值（赋值的时候 alue一定要带上）

(3)、修改字典

Sub 矩形 1_单击() Worksheets('sheet1').Activate

Set d = CreateObject('scripting.dictionary')

For x = 1 To 4

d(Cells(x, 'a').Value) = Cells(x, 'b') Next

d('男孩') = 'BOY'

MsgBox d('男孩')

End Sub

(4)、输出字典内容 

Sub 单击()

Worksheets('sheet1').Activate

Set d = CreateObject('scripting.dictionary')

For x = 1 To 4

d(Cells(x, 'a').Value) = Cells(x, 'b')

Next

d('男孩') = 'BOY'

Range('d1').Resize(d.Count,1)=Application.Transpose(d.keys) Range('e1').Resize(d.Count, 1) = Application.Transpose(d.items)

Set d = Nothing

End Sub

①、resize重组一个区域，resize(X,Y)，X 是区域的行数，Y 是区域的列数 ②、d.count是 resize 中区域的行数，表示字典中条目的数量，本例为 4

③、transpose 是转置的意思，d.keys 可以将字典第一列提取出来，但提取的结果是横向的，所以要转置，转为列。

④、d.keys和 d.items

02
    主要功能：

  • Word文档合并：将多种类型的多个Word文档合并为一个文档；

  • Word文档类型批量转换：将多种文件类型的多个文档转换为指定类型的文档；

  • Word文档批量打印及页面设置：一次打印多个文档或批量进行（打印）页面设置；

  • Word文档批量改名功能：支持多种更名方式：插入字符、删除字符、替代其中字符、后缀名大小写转换、主名大小写转换；

  • Word文档批量设置页眉、页脚、页码功能：批量为Word文档设置页眉、页脚和页码。

  • Word文档批量内容替换功能：您可以方便的一次将多个文档中的某一个字符串替换为另一个字符串。

  • Word文档批量中文繁简转换功能：批量将简体汉字中文Word文档转为繁体或批量将繁体汉字中文Word文档转为简体。

  • 批量设置Word文档密码：可以为WORD文档批量设置访问密码、修改密码。

  • Word文档批量插入文档功能：将一个文档插入一批Word文档中的指定位置。

  • Word文档批量统计功能：批量统计Word文档页数、字数、段落数、行数等信息。

  • 批量取消所有超级链接、批量取消所有的自动序号（变为普通序号，也就是可以选中，进行任意处理的序号）、批量删除文档所有批注、批量取消所有的(自动)域。

  • 批量设置“属性-摘要”：批量为Word文档设置“属性-摘要”，包括：标题、主题、作者、类别、关键字、备注。

  • 批量删除指定页面。

  • 批量设置文档中的图片和表格，如图像颜色、亮度、对比度、图片对齐位置、表格对齐位置等。

支持对以下格式的文件操作： Word文档（*.doc；*.docx）；Web页（*.htm;*.html）; Rtf格式(*.rtf) 文本文件（*.txt） Word Perfect文件(*.doc)

----------------------------------------------------------------------------

Word文档批量处理工具下载激活方式:

赞 (0)

相关推荐