一、如何用VBA代码为Word添加菜单(即命令栏)
Dim myMenuBar
Dim newMenu
Dim ctrl1
Dim s
Dim flag As String
'初始化菜单
Set myMenuBar = CommandBars.ActiveMenuBar
Set newMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, _
Temporary:=True)
newMenu.Caption = "电子印章"
Set ctrl1 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl1.Caption = "添加电子印章"
ctrl1.Style = msoButtonCaption
ctrl1.OnAction = "AddSeal"
Set ctrl1 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl1.Caption = "验证电子印章"
ctrl1.Style = msoButtonCaption
ctrl1.OnAction = "CheckSeal"
ctrl1.Style = msoButtonCaption
Set ctrl1 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl1.Caption = "关于"
ctrl1.OnAction = "About"
ctrl1.Style = msoButtonCaption
二、Excel WordVBA怎么执行自带菜单功能
你先录制一段宏,比如你想要的功能。然后在VBA编辑里面就能看见代码了。
比如加粗、底色、红字体
Sub 宏1()
Selection.Font.Bold = wdToggle
Options.DefaultHighlightColorIndex = wdYellow
Selection.Range.HighlightColorIndex = wdYellow
Selection.Font.Color = wdColorRed
End Sub
三、怎么用vba设置word的域值
word中的域,在word菜单栏中的[插入]>;[域]就可以找到许多域。
下面是VBA代码,对域的操作:
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"KEYWORDS ", PreserveFormatting:=True
'在当前位置中插入 Keywords 域
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"AUTHOR \* Upper ", PreserveFormatting:=True
'在当前位置中插入 AUTHOR 域
Selection.Fields.Update '更新当前域的内容。楼主你要的就是这个。"更换域所在位置的文字"
在域的位置上单击鼠标右键,就有域的相应的操作:更新,编辑,切换域代码。
四、VBA 遍历Word 文档中所有HTMLOptionButton控件
实用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中将所有大写字母转为小写?比如一句全大写的转为全小写的答:格式->更改大。
五、如何在Excel VBA 中读写word文档 步骤
所以需要先引入word库,操作步骤如下:
1.1 打开excel vba 界面
1.2 选中其中的一个Module
1.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.Active
With wordApplication
Dim aParagraph As Word.Paragraph
For Each aParagraph In wordDoc.Paragraphs
' do some thing to every paragraph.
Next aParagraph
End with
wordDoc.Close
Set 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 Function
ErrOpen:
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 If
End Function
六、请教怎样利用VBA获取Word中某种样式的“概述”
前提你有vba 变程的基础知识,定义你的宏
sub setBG()
ActiveDocument.Background.Fill.UserPicture "C:\BG.bmp"
end Sub
就可以将背景 改为 C:\BG.bmp
UserPicture 方法参阅应用于示例特性
用一张图片的大图像来填充指定图形。如果要用一个图片的多份影像来填充图形,请用 UserTextured 方法。
expression.UserPicture(PictureFile)
expression 必需。返回 FillFormat 对象的表达式。
PictureFile String 类型,必需。图片文件名
七、word如何使用vba
1、在Word中打开你需要处理的doc文档;
2、键入ALT+F11;
3、在出现的VBA窗口中,粘贴你下载的代码;
4、把键盘光标放到入口函数中任意一行代码上(如果你不知道是什么地方,可以把代码贴上来看看);
5、键入F5运行;
6、切换回doc文档窗口看效果。
补充:
哦,可能是因为你目前还没有任何宏所以才看到这样的灰色一片。
那就这样,现在左边的工程里面有个“Normal”吧?展开它后有个“模块”节点吧?在这个“模块”节点上点鼠标右键,选择“插入-模块”。这样右边就会出现代码窗口了。然后再按照上面步骤3-6。
如果还不清楚可以继续补充提问或发我信息。
转载请注明出处51数据库 » vba枚举word菜单