多功能excel表格/word文档操作类源码

.子程序 表格文本对齐, , 公开, 注意先激活该表格
.参数 整表, 整数型, , 0表示整表，1表示当前行，2表示当前列,3表示当前单元格
.参数 水平对齐方式, 整数型, , 0，左对齐 1居中 2，右对齐 默认是水平方式
.参数 垂直对齐方式, 整数型, , 0顶部,1中间,3底部
.参数 行列, 文本型, , 行几,列几,如"3,2"表示第3行,第二列
.局部变量 文本组, 文本型, , "2"

' WORD对象.读对象型属性 (“Selection”, ).读对象型属性 (“ParagraphFormat”, ).写属性 (“Alignment”, 对齐方式)
' 当前表格.查看 ()
' Selection.SelectCell
' Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify
' Selection.Cells.VerticalAlignment = wdCellAlignVerticalBottom
.如果真 (整表 ≠ 0)
文本组 ＝ 分割文本 (行列, “,”, 2)
选中单元格 (到整数 (文本组 [1]), 到整数 (文本组 [2]))
.如果真结束
.判断开始 (整表 ＝ 0)
' WORD对象.读对象型属性 (“Selection”, ).读对象型属性 (“Cells”, ).写属性 (“VerticalAlignment”, )
全选表格 ()
.判断 (整表 ＝ 2)
' 当前表格.读对象型属性 (“rows”, ).查看 ()
' 当前表格.读对象型属性 (“rows”, ).方法 (“Item”, 行列)
' Selection.SelectColumn
WORD对象.读对象型属性 (“Selection”, ).方法 (“SelectColumn”, )
.判断 (整表 ＝ 1)
' 当前表格.读对象型属性 (“Columns”, 行列)
WORD对象.读对象型属性 (“Selection”, ).方法 (“SelectRow”, )
.默认

.判断结束
WORD对象.读对象型属性 (“Selection”, ).读对象型属性 (“Cells”, ).写属性 (“VerticalAlignment”, 垂直对齐方式)
WORD对象.读对象型属性 (“Selection”, ).读对象型属性 (“ParagraphFormat”, ).写属性 (“Alignment”, 水平对齐方式)
' VBA语句集100句 (Word VBA)
' ==========================
' Application对象
' - - - - - - - - - - - - - - - - - - - -
' (301) Application.ActivePrinter ‘获取当前打印机
' (302) Application.Height '当前应用程序文档的高度
' (303) Application.Width ‘当前应用程序文档的宽度
' (304) Application.Build ‘获取Word版本号和编译序号
' (305) Application.Caption ‘当前应用程序名
' (306) Application.DefaultSaveFormat '返回空字符串，表示Word文档
' (307) Application.DisplayRecentFiles '返回是否显示最近使用的文档的状态
' (308) Application.Documents.Count '返回当前打开的文档数
' (309) Application.FontNames.Count ‘返回当前可用的字体数
' (310) Application.Left ‘返回当前文档的水平位置
' (311) Application.MacroContainer.FullName '返回当前文档名，包括所在路径
' (312) Application.NormalTemplate.FullName '返回文档标准模板名称及所在位置
' (313) Application.RecentFiles.Count '返回最近打开的文档数目
' (314) Application.System.CountryRegion '返回应用程序所在的地区代码
' (315) Application.System.FreeDiskSpace ‘返回应用程序所在磁盘可用空间
' (316) Application.System.HorizontalResolution '返回显示器的水平分辨率
' (317) Application.System.VerticalResolution '返回显示器的垂直分辨率
' (318) Application.System.LanguageDesignation '返回系统所使用的语言
' (319) Application.System.MathCoprocessorInstalled ‘返回系统是否安装了数学协处理器
' (320) Application.System.OperatingSystem ‘返回当前操作系统名
' (321) Application.System.ProcessorType '返回计算机处理器名
' (322) Application.System.Version ‘返回操作系统的版本号
' (323) Application.Templates.Count '返回应用程序所使用的模板数
' (324) Application.UserName '返回应用程序用户名
' (325) Application.Version ‘返回应用程序的版本号
' - - - - - - - - - - - - - - - - - - - - - -
' Documents/Document对象
' - - - - - - - - - - - - - - - - - - - - - -
' (326) ActiveDocument.AttachedTemplate.FullName '返回当前文档采用的模板名及模板所在位置
' (327) ActiveDocument.Bookmarks.Count '返回当前文档中的书签数
' (328) ActiveDocument.Characters.Count '返回当前文档的字符数
' (329) ActiveDocument.CodeName ‘返回当前文档的代码名称
' (330) ActiveDocument.Comments.Count ‘返回当前文档中的评论数
' (331) ActiveDocument.Endnotes.Count '返回当前文档中的尾注数
' (332) ActiveDocument.Fields.Count '返回当前文档中的域数目
' (333) ActiveDocument.Footnotes.Count ‘返回当前文档中的脚注数
' (334) ActiveDocument.FullName '返回当前文档的全名及所在位置
' (335) ActiveDocument.HasPassword '当前文档是否有密码保护
' (336) ActiveDocument.Hyperlinks.Count '返回当前文档中的链接数
' (337) ActiveDocument.Indexes.Count '返回当前文档中的索引数
' (338) ActiveDocument.ListParagraphs.Count '返回当前文档中项目编号或项目符号数
' (339) ActiveDocument.ListTemplates.Count '返回当前文档中使用的列表模板数
' (340) ActiveDocument.Paragraphs.Count '返回当前文档中的段落数
' (341) ActiveDocument.Password=XXX '设置打开文件使用的密码
' (342) ActiveDocument.ReadOnly '获取当前文档是否为只读属性
' (343) ActiveDocument.Saved '当前文档是否被保存
' (344) ActiveDocument.Sections.Count '当前文档中的节数
' (345) ActiveDocument.Sentences.Count ‘当前文档中的语句数
' (346) ActiveDocument.Shapes.Count '当前文档中的形状数
' (347) ActiveDocument.Styles.Count '当前文档中的样式数
' (348) ActiveDocument.Tables.Count ‘当前文档中的表格数
' (349) ActiveDocument.TablesOfAuthorities.Count ‘返回当前文档中的引文目录数
' (350) ActiveDocument.TablesOfAuthoritiesCategories.Count ‘返回当前文档中引文目录类别数
' (351) ActiveDocument.TablesOfContents.Count ‘返回当前文档中的目录数
' (352) ActiveDocument.TablesOfFigures.Count '返回当前文档中的图表目录数
' - - - - - - - - - - - - - - - - - - - - - -
' Paragraphs/Paragraph对象
' - - - - - - - - - - - - - - - - - - - - - -
' (353) Selection.Paragraphs.Count '返回所选区域的段落数
' (354) Selection.Paragraphs.First '返回所选区域中的第一段
' (355) ActiveDocument.Paragraphs(1).LeftIndent '返回当前文档中第一段的左缩进值
' (356) ActiveDocument.Paragraphs(1).LineSpacing '返回当前文档中第一段的行距
' (357) ActiveDocument.Paragraphs(1).OutlineLevel ‘返回或设置当前文档中第一段的大纲级别
' (358) ActiveDocument.Paragraphs(1).RightIndent ‘返回当前文档中第一段的右缩进量
' (359) ActiveDocument.Paragraphs(1).SpaceBefore '返回当前文档中第一段的段前间距
' (360) ActiveDocument.Paragraphs(1).SpaceAfter ‘返回当前文档中第一段的段后间距
' (361) ActiveDocument.Paragraphs(1).Range.Text '返回当前文档中第一段的内容
' (362) ActiveDocument.Paragraphs(1).Range.Style.NameLocal '返回当前文档中第一段应用的样式名
' (363) ActiveDocument.Paragraphs(1).Range.Style.Description '返回当前文档中第一段所应用样式的详细描述
' (364) ActiveDocument.Paragraphs(1).Range.Style.Font.Name '返回当前文档中第一段所应用样式的字体名
' (365) ActiveDocument.Paragraphs(1).Range.Style.Font.NameFarEast '返回或设置一种东亚字体名
' (366) ActiveDocument.Paragraphs(1).Range.Style.Font.Size '返回或设置当前文档中第一段所应用样式的字体大小
' (367) ActiveDocument.Paragraphs(1).Range.Style.Font.Spacing '返回或设置字符间距
' (368) Selection.Words.Count '所选区域的字数
' - - - - - - - - - - - - -
' Sentences对象
' - - - - - - - - - - - - -
' (369) Selection.Sentences.Item(1) '所选区域中的第一句的内容
' - - - - - - - - - -
' Words对象
' - - - - - - - - - -
' (371) ActiveDocument.Words(1).Select '选择当前文档中的第一个词
' (372) ActiveDocument.Range.Words(1).InsertAfter "我爱你！" '在当前文档中的第一个词后插入“我爱你”
' - - - - - - - - - - - - -
' Characters对象
' - - - - - - - - - - - - -
' (373) Selection.Characters.Count '当前文档中所选区域的字符数
' (374) ActiveDocument.Paragraphs(1).Range.InsertParagraphAfter '在当前文档的第一段之后插入一个新段落
' - - - - - - - - - - - - - - - - - -
' Sections/Section对象
' - - - - - - - - - - - - - - - - - -
' (375) ActiveDocument.Sections.First '当前文档的第一节
' (376) ActiveDocument.Sections.First.PageSetup.BottomMargin '当前文档第一节所在页的底边距
' (377) ActiveDocument.Sections.First.PageSetup.LeftMargin '当前文档第一节所在页的左边距
' (378) ActiveDocument.Sections.First.PageSetup.RightMargin '当前文档第一节所在页的右边距
' (379) ActiveDocument.Sections.First.PageSetup.TopMargin '当前文档第一节所在页的顶边距
' (380) ActiveDocument.Sections.First.PageSetup.PaperSize '返回或设置当前文档第一节所在页的大小
' (381) ActiveDocument.Sections.First.PageSetup.PageHeight '返回或设置当前文档第一节所在页的高度
' (382) ActiveDocument.Sections.First.PageSetup.PageWidth '返回或设置当前文档第一节所在页的宽度
' (383) ActiveDocument.Sections.Add Range:=myRange '在当前文档中添加新节
' (384) ActiveDocument.Sections.Item(2) '当前文档中的第二节
' (385) ActiveDocument.Sections.Last.Range.InsertAfter "文档结束！" '在当前文档中最后一节的结尾添加文字“文档结束！”
' - - - - - - - - - -
' Range对象
' - - - - - - - - - -
' (386) ActiveDocument.Range(Start:=0, End:=10) '表示当前文档前10个字符所组成的一个Range对象
' (387) Set myRange = ActiveDocument.Range( _
' Start:=ActiveDocument.Paragraphs(2).Range.Start, _
' End:=ActiveDocument.Paragraphs(4).Range.End) '将当前文档第2段至第4段设置为一个Range对象
' (388) ActiveDocument.Paragraphs(1).Range.Copy '复制当前文档中的第一段
' (389) Selection.Copy
' Documents.Add.Content.Paste '复制所选内容到新文档中
' (390) ActiveDocument.Bookmarks("Book1").Copy Name:="Book2" '将Book2书签复制Book1书签标记的位置
' (391) Selection.GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=4 '将所选内容移至文档中的第4行
' (392) Selection.GoTo What:=wdGoToTable, Which:=wdGoToNext '将所选内容移至下一个表格的第1个单元格
' (393) Selection.Range.AutoFormat '为所选内容套用格式
' (394) ActiveDocument.Content.Font.Name = "Arial" '将当前文档的字体设置为斜体
' (395) ActiveDocument.Content.Select
' Selection.Delete '将当前文档中的内容删除
' - - - - -
' 其它'
' - - - - -
' (396) Documents.Add '添加一个新文档
' (397) Set myTable = ActiveDocument.Tables.Add(Selection.Range, 2, 2) '在当前文档所选区域添加一个2行2列的表格
' (398) Open "C:\my.txt" For Input As #1 '打开一个用于输入的文件并令其编号为1
' (399) Line Input #1, TextLine '读取被打开用于输入且编号为1的文件
' (400) Close #1 '关闭编号为1的文件