1.如何在Excel VBA 中读写word文档 步骤
所以需要先引入word库,操作步骤如下:1.1 打开excel vba 界面1.2 选中其中的一个Module1.3 选择菜单, Tools --> References 在打开的对话框中选择类似 "Microsoft Word 14.0 Object Library".1.4 点击OK保存配置。
2. 打开文档 Set wordApplication = CreateObject("Word.Application") wordApplication.Visible = False Dim hasOpenDoc As Boolean hasOpenDoc = IsOpen(filePath) ' is a self-defined function to check file is opend If hasOpenDoc = True then Set wordDoc = GetObject(filePath) End if If hasOpenDoc = False Then Set wordDoc = wordApplication.Documents.Open(filePath) End if wordDoc.ActiveWith wordApplication Dim aParagraph As Word.Paragraph For Each aParagraph In wordDoc.Paragraphs ' do some thing to every paragraph. Next aParagraphEnd withwordDoc.CloseSet wordDoc = nothing' 如下这段代码引用某位牛人的,非常感谢他。由于路径丢失,不能给出链接, 抱歉' 如下的找寻方式,能够正确的找出文件是否被打开Function IsOpen(fileName As String) As Boolean IsOpen = False Dim findFile As Integer findFile = FreeFile() On Error GoTo ErrOpen Open fileName For Binary Lock Read Write As findFile Close findFile Exit FunctionErrOpen: If Err.Number <> 70 Then Msg = "Error # " & Str(Err.Number) & "was generated by " & Err.Source & Chr(13) & Err.Description MsgBox Msg, "Error", Err.HelpFile, Err.HelpContext Else IsOpen = True End IfEnd Function。
2.如何在Excel VBA 中读写word文档 步骤
直接读写WORD文档是非常复杂的,基本上自己写不可行.
但可以调用WORD来处理,要求就是电脑上要安装有WORD. 基本思路就是创建一个Word.application对象,再设置为对象可见,再打开某某文件. 其实代码可以在WORD中用宏录制,再移植到EXCEL中来即可.当然,要修改成WORD对象执行这些语句的形式(在WORD VBA中Application对象是默认的).
你可以在网上搜索一下创建WORD对象并使用的代码.
3.怎么能运用excel的vba读取word文档中的内容
Sub AAA() Dim FilePath As String '要读取的文件路径 Dim S1 As String '文档的内容 Dim S2 As String '提取到的内容 Dim Ar As Variant '用于保存最终结果 Dim L1 As Long '记录当前查找到的字符位置 FilePath = Application.GetSaveAsFilename(fileFilter:="Word文档,*.doc;*.docx") If FilePath = "False" Then MsgBox "您没有选择文件,将退出程序。
": Exit Sub With CreateObject("word.application") With .Documents.Open(FilePath, True, True) S1 = .Content .Close False End With .Quit End With L1 = InStr(S1, "<") '第一个="">")>< 位置="" do="" until="" l1="0" if="" len(s2)=""><> 0 Then S2 = S2 & "Crazy0qwer" & Mid(S1, L1 + 1, InStr(L1, S1, ">") - L1 - 1) Else S2 = Mid(S1, L1 + 1, InStr(L1, S1, ">") - L1 - 1) End If L1 = InStr(L1 + 1, S1, "<") loop="" ar="Split(S2," "crazy0qwer")="" range("a1").resize(ubound(ar)="" +="" 1)="Application.Transpose(Ar)End">")>
4.怎么能运用excel的vba读取word文档中的内容
Sub AAA()
Dim FilePath As String '要读取的文件路径
Dim S1 As String '文档的内容
Dim S2 As String '提取到的内容
Dim Ar As Variant '用于保存最终结果
Dim L1 As Long '记录当前查找到的字符位置
FilePath = Application.GetSaveAsFilename(fileFilter:="Word文档,*.doc;*.docx")
If FilePath = "False" Then MsgBox "您没有选择文件,将退出程序。": Exit Sub
With CreateObject("word.application")
With .Documents.Open(FilePath, True, True)
S1 = .Content
.Close False
End With
.Quit
End With
L1 = InStr(S1, "<;") '第一个 <; 位置
Do Until L1 = 0
If Len(S2) <> 0 Then
S2 = S2 & "Crazy0qwer" & Mid(S1, L1 + 1, InStr(L1, S1, ">") - L1 - 1)
Else
S2 = Mid(S1, L1 + 1, InStr(L1, S1, ">") - L1 - 1)
End If
L1 = InStr(L1 + 1, S1, "<")
Loop
Ar = Split(S2, "Crazy0qwer")
Range("A1").Resize(UBound(Ar) + 1) = Application.Transpose(Ar)
End Sub
5.如何Word中用VBA打开Excel表格,读取其中的内容写入到Word
在word vba工具-引用中选中Ms Excel就可以正常打开EXCEL进行操作了
Dim xlapp As Excel.Application '代表excel程序
Dim wkBook As Excel.Workbook '代表excelworkbook(也就是excel工作簿文件 .xls .xlsx)
Dim wkSheet As Excel.Worksheet '代表excel的工作页
xlapp.Application.EnableEvents = False '禁止宏等提示的运行
Set wkBook = xlapp.Workbooks.Open(ExcelFileName)
6.VBA怎样读取WORD文档自动生成的目录信息
1.问:WORD里边怎样设置每页不同的页眉?如何使不同的章节显示的页眉不同? 答:分节,每节可以设置不同的页眉。
文件——页面设置——版式——页眉和页脚——首页不同 2.问:请问word中怎样让每一章用不同的页眉?怎么我现在只能用一个页眉,一改就全部改了?答:在插入分隔符里,选插入分节符,可以选连续的那个,然后下一页改页眉前,按一下“同前”钮,再做的改动就不影响前面的了。简言之,分节符使得它们独立了。
这个工具栏上的“同前”按钮就显示在工具栏上,不过是图标的形式,把光标移到上面就显示出”同前“两个字来了 3.问:如何合并两个WORD文档,不同的页眉需要先写两个文件,然后合并,如何做?答:页眉设置中,选择奇偶页不同/与前不同等选项 4.问:WORD编辑页眉设置,如何实现奇偶页不同? 比如:单页浙江大学学位论文,这一个容易设;双页:(每章标题),这一个有什么技巧啊 ?答:插入节分隔符,与前节设置相同去掉,再设置奇偶页不同 5.问:怎样使WORD文档只有第一页没有页眉,页脚?答:页面设置-页眉和页脚,选首页不同,然后选中首页页眉中的小箭头,格式-边框和底纹,选择无,这个只要在“视图”——“页眉页脚”,其中的页面设置里,不要整个文档,就可以看到一个“同前”的标志,不选,前后的设置情况就不同了。 6.问:如何从第三页起设置页眉?答:在第二页末插入分节符,在第三页的页眉格式中去掉同前节,如果第一、二页还有页眉,把它设置成正文就可以了 ●在新建文档中,菜单—视图—页脚—插入页码—页码格式—起始页码为0,确定; ●菜单—文件—页面设置—版式—首页不同,确定; ●将光标放到第一页末,菜单—文件—页面设置—版式—首页不同—应用于插入点之后,确定。
第2步与第三步差别在于第2步应用于整篇文档,第3步应用于插入点之后。这样,做两次首页不同以后,页码从第三页开始从1编号,完成。
7.问:WORD页眉自动出现一根直线,请问怎么处理?答:格式从“页眉”改为“清除格式”,就在“格式”快捷工具栏最左边;选中页眉文字和箭头,格式-边框和底纹-设置选无 8.问:页眉一般是---------,上面写上题目或者其它,想做的是把这根线变为双线,WORD中修改页眉的那根线怎么改成双线的?答:按以下步骤操作去做: ●选中页眉的文字,包括最后面的箭头 ●格式-边框和底纹 ●选线性为双线的 ●在预览里,点击左下小方块,预览的图形会出现双线 ●确定▲上面和下面自己可以设置,点击在预览周围的四个小方块,页眉线就可以在不同的位置 9.问:Word中的脚注如何删除?把正文相应的符号删除,内容可以删除,但最后那个格式还在,应该怎么办?答:步骤如下:1、切换到普通视图,菜单中“视图”——“脚注”,这时最下方出现了尾注的编辑栏。2、在尾注的下拉菜单中选择“尾注分隔符”,这时那条短横线出现了,选中它,删除。
3、再在下拉菜单中选择“尾注延续分隔符”,这是那条长横线出现了,选中它,删除。4、切换回到页面视图,尾注和脚注应该都是一样的 10.问:Word 里面有没有自动断词得功能?常常有得单词太长了,如果能设置一下自动断词就好了答:在工具—语言—断字—自动断字,勾上,word还是很强大的 11.问:如何将word文档里的繁体字改为简化字?答:工具—语言—中文简繁转换 12.问:怎样微调WORD表格线?WORD表格上下竖线不能对齐,用鼠标拖动其中一条线,可是一拖就跑老远,想微调表格竖线让上下对齐,请问该怎么办?答:选定上下两个单元格,然后指定其宽度就可以对齐了,再怎么拉都行press "Alt",打开绘图,其中有个调整坐标线,单击,将其中水平间距与垂直间距都调到最小值即可。
打开绘图,然后在左下脚的绘图网格里设置,把水平和垂直间距设置得最小。 13.问:怎样微调word表格线?我的word表格上下竖线不能对齐,用鼠标拖动其中一条线,可是一拖就跑老远,我想微调表格竖线让上下对齐,请问该怎么办? 答:可以如下操作:●按住ctl键还是shift,你have a try ●double click the line, try it ●打开绘图,设置一下网格(在左下角)。
使水平和垂直都为最小,试一把! ●press "Alt" 14.问:怎么把word文档里已经有的分页符去掉?答:先在工具——> 选项——> 视图——> 格式标记,选中全部,然后就能够看到分页符,delete就ok了。 15.问:Word中下标的大小可以改的吗?答:格式—字体 16.问:Word里怎么自动生成目录啊?答:用“格式>>样式和格式”编辑文章中的小标题,然后插入->索引和目录 17.问:Word的文档结构图能否整个复制? 论文要写目录了,不想再照着文档结构图输入一遍,有办法复制粘贴过来吗?答:可以自动生成的,插入索引目录。
18.问:做目录的时候有什么办法时右边的页码对齐?比如: 1.1 标题。
.1 1.2 标题。
.2答:画表格,然后把页码都放到一个格子里靠右或居中,然后让表格的线条消隐就可以了,打印出来就很整齐。 19.问:怎样在word中将所有大写字母转为小写?比如一句全大写的转为全小写的答:格式->更改大小写->小写 20.问:在存。
转载请注明出处51数据库 » excelvba读word文档格式