通过VBA如何修改WORD页眉??
展开全部 其实通过宏录制你就完全可以明白,有些问题是可以自己轻易解决的,宏录制是学习vba很重要的一个步骤,自己要多尝试 :如下 If ActiveWindow.View.SplitSpecial wdPaneNone Then ActiveWindow.Panes(2).Close End If If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _ ActivePane.View.Type = wdOutlineView Then ActiveWindow.ActivePane.View.Type = wdPrintView End If ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader ActiveDocument.AttachedTemplate.BuildingBlockEntries(" 空白").Insert Where:= _ Selection.Range, RichText:=True Selection.TypeText Text:="暗暗暗暗"...
如何用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:="暗暗暗暗"...
Word2010 vba 页眉替换问题
亲,这一句要改一下:mysec.Headers(1).Range.Text = Replace(Replace(mysec.Headers(1).Range.Text, "ABC", "111"), Chr(13), "")因为,如果您注意观察,会发现页眉的文字最后都有一个回车字符,就如同段落、表格的末尾一样,这个字符也是页眉的一部分。
你可以用debug.print len(mysec.headers(1).range.text)看一下页眉的长度,是包含了末尾回车字符的(chr(13))。
所以,当你用replace替换之后,这个回车字符仍然在。
注意:关键是给header.range.text赋值时,word vba默认是不含最后一个回车字符的;这样更方便编程,否则每次都要记住在末尾加一个chr(13),岂不把人烦死!最后,解决方法就是,再使用一次replace,在赋值前把回车符去掉。
VBA修改word文档
开启模糊查询即可,再判断一下查找的长度Sub 分章()Set myrange = ActiveDocument.ContentFor n = 1 To 8myrange.Find.Execute findtext:="第*章", Forward:=True, MatchWildcards:=TrueIf myrange.End - myrange.Start < 20 Thenmyrange.Style = ActiveDocument.Styles("标题 2")End IfNextEnd Sub测试运行了下,效果有点不好,修改一下Sub 分章()Set myrange = ActiveDocument.ContentFor n = 1 To 8myrange.Find.Execute findtext:="第*章", Forward:=True, MatchWildcards:=TrueIf myrange.End - myrange.Start < 20 Thenmyrange.Style = ActiveDocument.Styles("标题 2")Elsemyrange.Start = myrange.Start + 1End IfNextEnd Sub
word vba 如何编辑第二第三节的文档的页眉信息
录制一个宏就知道了。
1、插入分节符(下一页)Selection.InsertBreakType:=wdSectionBreakNextPage2、后面插入指定图片。
路径是中间那句jpg格式的,要更改成自己的。
Selection.InlineShapes.AddPictureFileName:=_"C:\DocumentsandSettings\AllUsers.WINDOWS\Documents\MyPictures\示例图片\Bluehills.jpg"_,LinkToFile:=False,SaveWithDocument:=TrueWORD的VBA主要是Selection事件,即光标移动到某一位置(当前),然事执行某项操作,一般用录制宏可解决。
WORD 如何使用VBA修改页脚的字体,字号
Sub setPageFont() Application.PrintCommunication = False With ActiveSheet.PageSetup .LeftHeader = "" '页眉左设置为:空 .CenterHeader = "&F" '页眉中设置为:文件名 .RightHeader = "" '页眉右设置为:空 .LeftFooter = "&B 机密 &B" '页脚左设置为:加粗的 机密两个字 .CenterFooter = "&D" '页脚中设置为:当前日期 .RightFooter = " 第 &P 页" '页脚右设置为:页码 End With Application.PrintCommunication = TrueEnd Sub...
转载请注明出处51数据库 » vba修改word页眉