阮经妹
excel vba 读取 word 指定字符
Sub 按钮1()Dim myPath As StringSet Wdapp = CreateObject(＂Word.Application＂)Wdapp.Visible = TrueApplication.ScreenUpdating = False '关闭屏幕刷新' On Error Resume Next '捕捉错误myPath = ThisWorkbook.Path &； ＂\多房地产预评估函.doc＂ '定义word文件路径，自己修改Set wdDoc = Wdapp.Documents.Open(myPath) '打开wordwdDoc.Activatesr = wdDoc.Content '将word的文档内容赋予变量srMsgBox Mid(sr, InStr(sr， ＂籍贯＂) + 3, 2)wdDoc.Close '关闭wordWdapp.QuitSet Wdapp = NothingSet wdDoc = NothingApplication.ScreenUpdating = True '开启屏幕刷新End Sub
word vba怎样把光标定位到指定字符串的位置？
展开全部 移动光标至文档开始Selection.HomeKey unit:=wdStory下面的供参考：Sub MoveToCurrentLineStart（)'移动光标至当前行首Selection.HomeKey unit:=wdLineEnd SubSub MoveToCurrentLineEnd（)'移动光标至当前行尾Selection.EndKey unit:=wdLineEnd SubSub SelectToCurrentLineStart（)'选择从光标至当前行首的内容Selection.HomeKey unit:=wdLine, Extend:=wdExtendEnd SubSub SelectToCurrentLineEnd（)'选择从光标至当前行尾的内容Selection.EndKey unit:=wdLine, Extend:=wdExtendEnd SubSub SelectCurrentLine（)'选择当前行Selection.HomeKey unit:=wdLineSelection.EndKey unit:=wdLine, Extend:=wdExtendEnd SubSub MoveToDocStart（)'移动光标至文档开始Selection.HomeKey unit:=wdStoryEnd SubSub MoveToDocEnd（)'移动光标至文档结尾Selection.EndKey unit:=wdStoryEnd SubSub SelectToDocStart（)'选择从光标至文档开始的内容Selection.HomeKey unit:=wdStory, Extend:=wdExtendEnd SubSub SelectToDocEnd（)'选择从光标至文档结尾的内容Selection.EndKey unit:=wdStory, Extend:=wdExtendEnd SubSub SelectDocAll（)'选择文档全部内容（从WholeStory可猜出Story应是当前文档的意思）Selection.WholeStoryEnd SubSub MoveToCurrentParagraphStart（)'移动光标至当前段落的开始Selection.MoveUp unit:=wdParagraphEnd SubSub MoveToCurrentParagraphEnd（)'移动光标至当前段落的结尾Selection.MoveDown unit:=wdParagraphEnd SubSub SelectToCurrentParagraphStart（)'选择从光标至当前段落开始的内容Selection.MoveUp unit:=wdParagraph, Extend:=wdExtendEnd SubSub SelectToCurrentParagraphEnd（)'选择从光标至当前段落结尾的内容Selection.MoveDown unit:=wdParagraph, Extend:=wdExtendEnd SubSub SelectCurrentParagraph（)'选择光标所在段落的内容Selection.MoveUp unit:=wdParagraphSelection.MoveDown unit:=wdParagraph, Extend:=wdExtendEnd SubSub DisplaySelectionStartAndEnd（)'显示选择区的开始与结束的位置，注意：文档第1个字符的位置是0MsgBox （＂第＂ & Selection.Start & ＂个字符至第＂ & Selection.End & ＂个字符＂）End SubSub DeleteCurrentLine（)'删除当前行Selection.HomeKey unit:=wdLineSelection.EndKey unit:=wdLine, Extend:=wdExtendSelection.DeleteEnd SubSub DeleteCurrentParagraph（)'删除当前段落Selection.MoveUp unit:=wdParagraphSelection.MoveDown unit:=wdParagraph, Extend:=wdExtendSelection.DeleteEnd Sub
WORD VBA： 查找字符并选择整个格子
这个应该完全满足要求了吧。
Sub TEST()Dim MyTable As Table, MyRng As CellFor Each MyTable In ThisDocument.TablesFor Each MyRng In MyTable.Range.CellsWith MyRng.Range.Find.Text = ＂RRDD-ST＂.ExecuteIf .Found ThenMyRng.Range.Style = ActiveDocument.Styles（＂引用＂）End IfEnd WithNext MyRngNext MyTableEnd Sub
Word VBA中宏代码的保存位置在哪？如果将word文档拷贝到别的电...
这要看创建宏代码的存放位置时，指定宏放在哪里了。
若希望word文档里始终有这个宏，那么在录制或者创建这个宏时，选择放在当前文档中。
这样word文档复制到其他电脑上，也能看见VBA代码，也能执行。
word用vba选中某一段中某几个字符怎么写
提供一个方案给楼主参考，可以批量修改多个文档中某个指定文字的属性：1、启动Word后，键入Alt+F11打开VBA编辑窗口；2、选择菜单“插入->模块”，然后在代码编辑区中粘贴如下代码： Option Explicit Const g_strRootPath = ＂c:\Docs\＂ ' 指定存放所有文件的目录，可以有子目录 Const g_strTextToFind = ＂茶＂ ' 需要批量查找修改格式的文字内容 Dim g_oTargetFont As New Font' 主函数 Sub Main() Dim fso, oFolder' 设置需要修改的字体属性 g_oTargetFont.Size = 18 ' 字号 g_oTargetFont.Color = wdColorRed ' 颜色 g_oTargetFont.Bold = True ' 是否加粗（True加粗，False正常） g_oTargetFont.Italic = True ' 是否斜体（True斜体，False正常） g_oTargetFont.Underline = wdUnderlineDash ' 下划线风格'... 设置其他字体属性 Set fso = CreateObject(＂Scripting.FileSystemObject＂) Set oFolder = fso.GetFolder(g_strRootPath) ChangeFontStyleForFilesUnderFolder fso, oFolder MsgBox ＂完成！＂ End Sub' 修改指定文件夹（递归）下面的所有Word文件中指定文字的格式 Sub ChangeFontStyleForFilesUnderFolder(fso, oFolder) Dim oSubFolder, oFile For Each oSubFolder In oFolder.SubFolders ChangeFontStyleForFilesUnderFolder fso, oSubFolder Next For Each oFile In oFolder.Files Documents.Open oFile.Path ChangeFontStyleForActiveDocument ActiveDocument.Close True Next End Sub' 修改当前打开文档里面所有指定文字的格式 Sub ChangeFontStyleForActiveDocument() Selection.StartOf wdStory Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find.Text = g_strTextToFind.Replacement.Text = ＂^&＂.Replacement.Font = g_oTargetFont.Forward = True.Wrap = wdFindContinue.Format = True.MatchCase = False.MatchWholeWord = False.MatchByte = False.MatchAllWordForms = False.MatchSoundsLike = False.MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll End Sub3、修改代码开始处的两个参数：存放所有需要批量修改文档的根目录（下面可以包含子目录，比如“C:\Docs”），需要修改的文字（比如“茶”字，也可以是一个词或者句子）；4、修改“主函数”里面想要设置的字体属性，如字号、颜色、加粗、斜体、下划线，等等；4、键入F5运行，直到看到“完成！”。
5、检查各个文档里面指定的文字是否已经被设置成了指定的格式。
vba word如何提取当前段落某个字符前的字符
可以用下面的代码来实现：Sub mytest()Selection.MoveDown unit:=wdParagraphSelection.MoveUp unit:=wdParagraph, Extend:=wdExtendutxt = Selection.Range.Textupos = InStr(utxt， ＂、＂)If upos >0 Thenut = Left(utxt, upos - 1)MsgBox ut '这里就是要提取的内容ElseMsgBox ＂没有找到顿号！！！＂End IfEnd Sub
WORD VBA 如何获取某行某一列的位置？
新建一个窗体，添加一个文本框控件，用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提供的组件快速建立一个应用程序。
请问在word 中怎么做： 录制两个宏 ,宏Ss,功能为将字符变成下标；...
第一个宏是可以录制的，录制完成以后精简一下就行，如下Sub sS()With Selection.Font.Superscript = False '设置为上标.Subscript = True '设置为下标End WithEnd Sub第二个宏是无法录制的，但是可以在宏里用VBA代码来实现。
假设选中的只有两个字符，可以如下Sub sSwap()Selection.Text = Right(Selection.Text, 1) & Left(Selection.Text, 1)End Sub但是，注意不要选择段末的两个字符，因为他会自动包括一个不可见的段落符而实际上选择了三个字符。
转载请注明出处51数据库 » vba word 字符 位置
