VBA 关于word页眉搜索、替换的问题
其实通过宏录制你就完全可以明白,有些问题是可以自己轻易解决的,宏录制是学习vba很重要的一个步骤,自己要多尝试 :如下If ActiveWindow.View.SplitSpecial <> wdPaneNone ThenActiveWindow.Panes(2).CloseEnd IfIf ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _ActivePane.View.Type = wdOutlineView ThenActiveWindow.ActivePane.View.Type = wdPrintViewEnd IfActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeaderActiveDocument.AttachedTemplate.BuildingBlockEntries(" 空白").Insert Where:= _Selection.Range, RichText:=TrueSelection.TypeText Text:="暗暗暗暗"
vba页眉添加文本框
参考:Sub TexBox()Dim iShape As ShapeFor Each iShape In ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).ShapesIf iShape.Type = msoTextBox TheniShape.TextFrame.TextRange = "这是页眉的文本框!" '把这里的文本换成存储 userform.textbox 数据的变量即可Exit SubEnd IfNextEnd Sub 补充:不知道你的文档是否分节?文本框是在哪一节的页眉?还有你的UserForm怎么与页眉对接等等。
这些你也没细说啊。
如何用vba修改word页眉中的文本框内容
展开全部 其实通过宏录制你就完全可以明白,有些问题是可以自己轻易解决的,宏录制是学习vba很重要的一个步骤,自己要多尝试 :如下If ActiveWindow.View.SplitSpecial wdPaneNone ThenActiveWindow.Panes(2).CloseEnd IfIf ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _ActivePane.View.Type = wdOutlineView ThenActiveWindow.ActivePane.View.Type = wdPrintViewEnd IfActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeaderActiveDocument.AttachedTemplate.BuildingBlockEntries(" 空白").Insert Where:= _Selection.Range, RichText:=TrueSelection.TypeText Text:="暗暗暗暗"...
怎样批量更改WORD文件的页眉和页脚
打开带有页眉页脚的word文档,双击页眉,在页眉处右键单击,单击“边框和底纹”,将边框设置为”无“,单击面板下面的“应用于”长方形条框,将改为”图片“改为”段落“,单击”确定“,如图:回到文档,发现页眉上的横条已经不复存在,双击页眉,按”Ctrl+A“全选页眉,单击键盘上的Delete,页眉消失,如图:用同样的方法设置页脚。
word中插入一个分节符时怎么样自动清除掉页眉?
word2003,在一个有页眉的页面中插入一个分节符(这个问题第1个回答:还是用宏解决吧这个问题第2个回答:这个问题第3个回答:有个一劳永逸的方法,编个sub,覆盖掉word原来的InsertBreak命令,在此sub中先调用word vba对象的InsertBreak方法插入分页符,再删除新页的页眉,最后返回。
将此sub保存到normal模板,以后新建的文档里插入分页符时就再也不会出现你前面所说的那种烦人的情况了。
将以下代码粘贴到word文档的一个普通模块里,再点“插入”-“分隔符”试试,你一定会有惊喜的发现:VB codeSub InsertBreak()MsgBox 您正要插入分隔符, , 提示End Sub
如何用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
转载请注明出处51数据库 » vba word加页眉