vba 修改word文字

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 怎么改一个内容？

操作步骤。

第一，首先将需要批量替换的多个Word文档放在同一文件夹下面。

第二，新建一空白Word文档，右击空白工具栏，单击“控件工具箱”，就可以看到屏幕上调出的控件工具箱。

第三，在控件工具箱上单击“命令按钮”，文档中就放置了一个按钮了。

第四，双击该按钮，进入VB代码编写模式，将以下代码复制进去。

Private Sub CommandButton1_Click()Application.ScreenUpdating = FalseDim myPas As String, myPath As String, i As Integer, myDoc As DocumentWith Application.FileDialog(msoFileDialogFolderPicker) .Title = ＂选择目标文件夹＂ If .Show = -1 Then myPath = .SelectedItems(1) Else Exit Sub End IfEnd WithmyPas = InputBox（＂请输入打开密码：＂）With Application.FileSearch .LookIn = myPath .FileType = msoFileTypeWordDocuments If .Execute > 0 Then For i = 1 To .FoundFiles.Count Set myDoc = Documents.Open(FileName:=.FoundFiles(i), Passworddocument:=myPas) Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = ＂大家好＂ .Replacement.Text = ＂你好＂ .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll myDoc.Save myDoc.Close Set myDoc = Nothing Next End IfEnd WithApplication.ScreenUpdating = TrueEnd Sub 第五，保存上面代码，退出VB编辑模式，返回Word文档界面。

第六，单击选中该按钮，再单击控件工具箱的第一个按钮“退出设计模式”。

第七，进行测试：点击按钮，选择要放置多个WORD文档所在的文件夹，确定后即可完成！注意如果WORD文档没有加密的话，密码项就不填，直接确认。

就会发现该文件夹下面的所有WORD文档中“大家好”已被替换为“你好”了。

如何用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打开word模板并修改后保存

1、打开Word文件的 VBA编辑器，快捷键 Alt+F11，右击【ThisDocument】-》【插入模块】；用VBA代码设置Word自动保存的步骤2、双击刚才插入的【模块1】，添加如下代码：Sub 自动备份（）Dim NewTimeNewTime = Now + TimeValue(“00:05:10”)Dim myPath$, myName$myPath = ActiveDocument.PathmyName = Left$(ActiveDocument.Name, Len(ActiveDocument.Name) - 4)ChangeFileOpenDirectory myPathActiveDocument.SaveAs FileName:=myName & “_temp.doc”, ReadOnlyRecommended:=TrueActiveDocument.SaveAs FileName:=myName & “.doc”, ReadOnlyRecommended:=FalseApplication.OnTime NewTime， “自动备份”CreateObject(“Wscript.shell”).popup “备份成功，备份文件名为：” & myName & “_temp.doc”, 2， “提示！2秒后自动关闭！”End Sub用VBA代码设置Word自动保存的步骤用VBA代码设置Word自动保存的步骤3、双击【ThisDocument】并在其中添加如下代码：Private Sub Document_Open()Call 自动备份End Sub用VBA代码设置Word自动保存的步骤4、默认自动备份时间为5min，如要调整请修改【模块1】中一句代码：如图中红框所示：时间格式为：HH : mm : ss用VBA代码设置Word自动保存的步骤5、保存代码及文件，且关闭word并重新打开，重新打开点击【选项】-》【启用此内容】，如图：用VBA代码设置Word自动保存的步骤6、默认备份文件名为：【原文件名_temp,Lee.doc】且为只读，提示对话框2s后自动关闭。

备份效果显示如下：

vba word如何获取文本框的文字？

新建一个窗体，添加一个文本框控件，用VB写如下程序：Sub Example()Dim myObject As Object'对于浮动式文本框控件Set myObject = ActiveDocument.Shapes(1).OLEFormat.ObjectMsgBox myObject.Text'对于嵌入式文本框控件Set myObject = ActiveDocument.InlineShapes(1).OLEFormat.ObjectMsgBox myObject.Text'对于word的文本框图形（非控件）Set myObject = ActiveDocument.Shapes(1).TextFrame.TextRangeMsgBox myObject.TextEnd SubVisual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言，为结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。

是一种可用于微软自家产品开发的语言。

“Visual” 指的是开发图形用户界面（GUI）的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。

“Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言，是一种在计算技术发展历史上应用得最为广泛的语言。

Visual Basic源自于BASIC编程语言。

VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序。

程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

如何用VBA修改word的节开始的分节符

录制一个宏就知道了。

1、插入分节符（下一页）Selection.InsertBreakType:=wdSectionBreakNextPage2、后面插入指定图片。

路径是中间那句jpg格式的，要更改成自己的。

Selection.InlineShapes.AddPictureFileName:=_＂C:\DocumentsandSettings\AllUsers.WINDOWS\Documents\MyPictures\示例图片\Bluehills.jpg＂_,LinkToFile:=False,SaveWithDocument:=TrueWORD的VBA主要是Selection事件，即光标移动到某一位置（当前），然事执行某项操作，一般用录制宏可解决。

怎么用VBA修改word的节开始的分节符

亲，代码如下，查找第一次出现“ABC”的所在页的页码。

请根据情况自行修订需要查找的字符：Sub cz()Dim MyRange As RangeSet MyRange = ActiveDocument.ContentMyRange.Find.Execute FindText:=＂ABC＂, Forward:=TrueMsgBox MyRange.Information(wdActiveEndPageNumber)End Sub

如何用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批量删除word中文本框（保留文字）呢？可以...

好办打开word文件，点击“文件”-&gt；“另存为网页”->“(*.htm;*.html)”打开保存过的网页文件（用IE打开）文件-&gt；另存为-&gt；文本文件文本文件就是你要的 VBA:Sub deltextbox()Selection.EndKey Unit:=wdStoryDim s As ShapeFor Each s In ThisDocument.ShapesSelection.TypeText text:=s.TextFrame.TextRange.texts.DeleteNextEnd Sub

转载请注明出处51数据库 » vba 修改word文字