word vba select

WORD、高手们、宏、VBA、宏有关批量运行

Sub 批量操作WORD() Dim path As String Dim FileName As String Dim worddoc As Document Dim MyDir As String MyDir = ＂G:\360data\重要数据\桌面\新建文件夹（2）＂ '文件夹路径根据需要自己修改，需要处理的文件都放该文件夹内 FileName = Dir(MyDir & ＂\*.doc*＂, vbNormal) Do Until FileName = ＂＂ If FileName ThisDocument.Name Then Set worddoc = Documents.Open(MyDir & ＂\＂ & FileName) worddoc.Activate Call 处理WORD '调用宏，换成你自己宏的名字 worddoc.Close True FileName = Dir() End If LoopSet worddoc = NothingEnd Sub'======================下面的宏换成你自己的宏=================================Sub 处理WORD() ActiveDocument.Paragraphs(1).Range.Select Selection.Font.Size = 72End Sub

word vba中 Selection.find 疑惑.

使用VBA操作Word表格一、生成表格 Private Sub CreateTable(mRows As Integer, mColumns) Dim mRange As Range Set mRange = ActiveDocument.Range mRange.SetRange Start:=ActiveDocument.Range.End, End:=ActiveDocument.Range.End Set SelfGenTable = ActiveDocument.Tables.Add(Range:=mRange, NumRows:=mRows, NumColumns:=mColumns) End Sub 上面过程的作用是在活动文档的末尾插入一个mRows行，mColumns列的表格。

二、在读写表格中的单元格写入单元格使用如下代码： TableObject.Cell(Row:=curRow, Column:=curColumn).Range.InsertAfter ＂文本＂上面代码的做用时在curRow行，curColumn列处插入字符“文本”。

其中TableObject为表格对象，如果使用了生成表格中的例子，那么可以用SelfGenTable来替代TableObject。

三、调整单元格对齐方式水平对齐设置 Selection.ParagraphFormat.Alignment=水平对齐常数（具体的常数可以查看帮助文件的说明）如何选择单元格？选定特定单元格 TableObject.Cell(Row:=1,Column:=1).Select'选定单元格1,1 选定行 TableObject.Rows(i).Select'选定第i行选定列 TableObject.Columns(i).Select'选定第i列选定整个表格 TableObject.Select 首先执行表格元素选择程序，然后再使用Selection.ParagraphFormat.Alignment设置对齐方式。

垂直对齐方式 Selection.Cells.VerticalAlignment=垂直对齐常数也是首先选择表格元素，可以使单个单元格，单个行、单个列或者整个表格。

似乎也可以同时选择多个单元格、多个行、多个列，有兴趣的朋友可以自行寻找答案。

四、设置表格边线类型下面的代码对整个表格的所有边线设置成细实线： SelfGenTable.Select With Selection .Borders(wdBorderBottom).LineStyle = wdLineStyleSingle .Borders(wdBorderLeft).LineStyle = wdLineStyleSingle .Borders(wdBorderRight).LineStyle = wdLineStyleSingle .Borders(wdBorderTop).LineStyle = wdLineStyleSingle .Borders(wdBorderHorizontal).LineStyle = wdLineStyleSingle Borders(wdBorderVertical).LineStyle = wdLineStyleSingle End With 同样是对Selection进行设置，所以可以依照上面的方法对特定的单元格、行或者列的边线样式进行分别设置，这里就不再列举了。

五、调整表格尺寸下面的代码对一个六列的表格设置宽度，宽度采用百分比宽度，从左至右的宽度百分比依次为：30,10,10,30,10,10: Dim WidthP(0 To 2) As Integer Dim j As Integer dim i as Integer WidthP(0) = 30 WidthP(1) = 10 WidthP(2) = 10 j = 0 For i = 0 To SelfGenTable.Columns.Count - 1 If j > 2 Then j = 0 End If SelfGenTable.Columns(i + 1).PreferredWidthType = wdPreferredWidthPercent SelfGenTable.Columns(i + 1).PreferredWidth = WidthP(j) j = j + 1 Next 上面的代码通过Columns的PreferredWidthType属性设置表格列宽的形式，这里选择的是百分比列宽，可以根据自己的实际情况选择其他列宽形式，然后再设置相应的数值。

表格的行高请读者以此类推（实际上我还没设置过行高，都用自动生成的就够了） =============================================== 编写操作表格的程序时需要注意，Word表格的行列起始值为1，而不是0。

=============================================== 下面是一个拆分字符串的代码，当插入表格的文本过长时，可以设定一个长度，超过这个长度就进行回车，这样保证在设定的单元格宽度内能够写下长文本。

单元格的高度会自动调整以使文本能完整的显示，这也就是我为什么没有通过代码设置单元格高度的原因。

Private Function FoldText(mLen As Integer, mStr As String) As String '折叠文字函数，mLen为折叠前的文字长度，mStr为文字的内容 Dim i As Integer Dim tmpStr(0 To 1) As String '临时字符串 If Len(mStr) > mLen Then Do While Len(mStr) > mLen tmpStr(0) = Left(mStr, mLen) mStr = Right(mStr, Len(mStr) - mLen) tmpStr(1) = tmpStr(1) + tmpStr(0) + vbCrLf Loop tmpStr(1) = tmpStr(1) + mStr Else tmpStr(1) = mStr

word vba 中怎样选择文尾两行

VBA概述：VBA是Visual Basic For Application的缩写，是VB在office中的运用。

是基于Visual Basic For Windows发展而来的，VB For Windows是Microsoft于1992年推出的开发Windows应用程序的程序设计语言，由于基语法简单，易学易用，所以深受用户的欢迎。

而VBA和VB For Windows大体相似。

在Office2000之前，VBA在Word,Excel,Access等Office系统软件中的运用有些有同，但是到Office2000就统一起来了。

Excel是第一个包含有VBA的应用程序，自Office2000以后，Eexel,Word,PowerPoint,Access中已经有了统一标准的宏语言VBA，其中Excel和Access的VBA最为成熟。

在Excel中VBA程序即可以存放有.xls中，也可以单独以文本形式存放。

对VBA的学习，用户首先必须VB有一定的了解（不过不必很专业，毕竟经常用Excel的用户一般是办公人员，不可能是专业编程人员），然后结合宏记录器学习。

因为，宏记录器可以记录宏，用户可以非常清楚了然VBA的很多知识。

另外，如果不是功能很强大的VBA程序，那么用宏记录器就足够了。

打开密码记录器的方法，通过“工具->宏->录制新宏”。

另外，用户可能用“工具->宏->宏...”来管理宏。

用“工具->宏->VB 编辑器”或Alt+F11可以打开VB编辑器，在VB编程器，可以很方便地整个VB工程进行管理，可以方便地编写VBA代码，另外，用户可以再点击Alt+F11切换到Excel窗口。

VBA的使用过程： 1、创建一个Excel文件。

2、创建一个控件，然后双击控件或是右击该控件，点击“查看代码”，就可以对该控件的某个事件，如click,keydown等。

进行编写执行代码了。

创建控件的方法是，点击“视图->工具栏->控件工具箱”，打开“控件工具箱”栏，然后就可以直接拖动某个控件到Excel单元格中去。

在Excel中窗口，添加的控件一般是处于执行状态的，如果要对这个控件进行编辑，除了第一次建立的时候可以对它进行属性编辑外，打开“控件工具箱”，也可以使控件处于编辑状态，如果还不行，可以再添加一个控件，然后已有的控件绝对会处于编辑状态。

当然，对控件修改完毕后，别忘了删除刚才新添加的没有用的控件。

在编辑状态中，你可以右击该控件，点击“属性”，那么就可以打开属性窗口，在这个窗口里，你可以很方便的对这个控件的名字，标题，大小等属性进行编辑。

3、手动或用宏记录器对该控件的某个事件进行编码。

宏记录器简单易用，不过强大的功能还是必须手动编写VBA。

VBA对象介绍：编写VBA代码的最关键在于灵活运用VBA对象，对这些VBA对象的属性或方法进行操作。

另外，你也可以创建自定义函数，来对某些操作进行封装。

既然是VBA，编码风格当然和VB相同，如果会VB，那么只要对VBA的对象比较了解，就可以编写功能强大的VBA程序；同样，如果不会VB，那么，只需要了解VBA的对象就够了，因为它比较简单易学。

以下分别讨论VBA各对象对其属性与方法：在一些可以包含其他对象的窗口对象中，有几个特殊的属性，其属性值是当前活动对象，对它们，可以直接引用。

表1 一些特殊的属性对象名含义 ActiveWorkbook 当前工作簿，即如果你打开了几个Excel文件，那么你当然正在编辑的Excel文件即ActiveWorkbook ActiveSheet 当前工作簿中的当前工作表，即当前编辑的Excel文件中正在编辑的工作表 ActiveCell 当前工作表中活动单元格 ActiveChart 当前工作簿中的活动图表 Selection 当前被选定的对象下面详谈各对象及它们的属性和方法一、Application对象此对象指Excel应用程序的工作环境。

属性 1.Caption属性含义：Excel应用程序标题栏显示的文本。

举例：Application.caption=“船员管理系统”，如赋值Empty，则恢复Excel默认的标题栏。

2.Cursor属性含义：Excel中鼠标的形状。

表2 Cursor属性属性值鼠标形状 xlDefault 缺少型值，鼠标呈缺少形状 xlWait 等待型值，鼠标呈不断翻转的沙漏形状 xlNorthwestArrow 箭头型值，鼠标呈标准箭头形状 xlIBeam 文本型值，鼠标呈“I”字形以等待用户输入文本操作：Application.Cursor=xlWait等。

3、DisplayAlerts属性含义：用以确定是否显示系统的应用提示和警告信息，如果不想显示，则把些属性设为false，反之亦然。

4、DisplayFormulaBar属性含义：用以确定是否显示公式编辑栏 5、DisplayScrollBars属性含义：用以确定是否显示Excel的滚动条 6、DisplayStatusBar属性含义：用以确定是否显示Excel的状态栏 7、EnableCancelkey属性含义：用以确定是否允许用户中断正在执行着的VBA程序。

缺省情况下，在VBA程序执行过程中，用户按下Ctrl+Break能够中断VBA程序的执行。

此时此属性即值为xlInterrupt。

若要禁止中断VBA程序，由赋值为xlDisabled；若需要VBA执行过程中遇到错误进中止，由赋值为xlErrorHandler 8、ScreenUpdating属性含义：用以确定是否显示VBA程序的中间运算结果。

9、StatusBar属性含义：设置状态栏的文本 10、ActiveWorkbook属性含义：如表1介绍。

11、ActiveSheet 含义：如表1介绍。

12、ActiveCell属性含义：如表1介绍。

13、ThisWorkBook属性含义：用以返回正在执行着VBA程序所...

在EXCEL中用VBA操作WORD表格：怎样选择一个表格中除第一行以...

在Word2010文档窗口显示“开发工具”选项卡“开发工具”功能区中包括VBA代码、宏代码、模板和控件等Word2010开发工具，默认情况下，“开发工具”选项卡并未显示在Word2010窗口中，用户需要手动设置使其显示，操作步骤如下所述：第1步，打开Word2010文档窗口，依次单击“文件”→“选项”按钮，如图1所示。

图1 单击“选项”按钮第2步，在打开的“Word选项”对话框中切换到“自定义功能区”选项卡，在“自定义功能区”区域的“主选项卡”列表中选中“开发工具”复选框，并单击“确定”按钮，如图2所示。

图2 选中“开发工具”复选框第3步，返回Word2010文档窗口，可以在功能区看到“开发工具”选项卡，如图3所示。

图3 “开发工具”选项卡

求VBA大神帮忙,在word和excel间查读存数据（vba哦！）

其中TableObject为表格对象，如果使用了生成表格中的例子，那么可以用SelfGenTable来替代TableObject。

垂直对齐方式 Selection.Cells.VerticalAlignment=垂直对齐常数也是首先选择表格元素，可以使单个单元格，单个行、单个列或者整个表格。

似乎也可以同时选择多个单元格、多个行、多个列，有兴趣的朋友可以自行寻找答案。

单元格的高度会自动调整以使文本能完整的显示，这也就是我为什么没有通过代码设置单元格高度的原因。

怎么vba实现word表格批量转为excel

注：vba偶并不太熟（偶一般是用c#和delphi的），VBA只是稍有了解，以下代码大部分是偶google到的内容拼出来的。

。

如下，使用时先更改test下的docpath和xlspath路径设定，docpath即你的word的目录，此目录包括子目录下的所有doc将被读取，xlspath即输出目录，需要存在在VBA窗口中，先在视图下显示立即窗口以观察进度，程序最后的输出类似这样正在读取[1]:->D:\1\Resume.doc 正在生成：->d:\2\Resume 正在读取[2]:->D:\1\简历（简）.doc 正在生成：->d:\2\简历（简）正在读取[3]:->D:\1\计数器说明.doc 正在生成：->d:\2\计数器说明共耗时0分41秒 Option Explicit Dim docpath As String, xlspath As String'ResultFlag=0 获取路径'ResultFlag=1 获取文件名'ResultFlag=2 获取扩展名 Public Function SplitPath(FullPath As String, ResultFlag As Integer) As String Dim SplitPos As Integer, DotPos As Integer SplitPos = InStrRev(FullPath, ＂\＂) DotPos = InStrRev(FullPath, ＂.＂) Select Case ResultFlag Case 0 SplitPath = Left(FullPath, SplitPos - 1) Case 1 If DotPos = 0 Then DotPos = Len(FullPath) + 1 SplitPath = Mid(FullPath, SplitPos + 1, DotPos - SplitPos - 1) Case 2 If DotPos = 0 Then DotPos = Len(FullPath) SplitPath = Mid(FullPath, DotPos + 1) Case Else Err.Raise vbObjectError + 1, ＂SplitPath Function＂, ＂Invalid Parameter!＂ End Select End Function Public Function FileFolderExists(ByVal strFullPath As String) As Boolean On Error GoTo EarlyExit If Not Dir(strFullPath, vbDirectory) = vbNullString Then FileFolderExists = True EarlyExit: On Error GoTo 0 End Function Sub Test（) '使用双字典，旨在提高速度 Dim MyName, Dic, Did, I, T, F, TT, MyFileName, Doc, Ke Dim count As Integer count = 0 T = Time docpath = ＂D:\1\＂ xlspath = ＂d:\2\＂ Set Dic = CreateObject(＂Scripting.Dictionary＂) '创建一个字典对象 Set Did = CreateObject(＂Scripting.Dictionary＂) Dic.Add (docpath), ＂＂ I = 0 Do While I Ke = Dic.keys '开始遍历字典 MyName = Dir(Ke(I), vbDirectory） '查找目录 Do While MyName ＂＂ If MyName ＂.＂ And MyName ＂..＂ Then If (GetAttr(Ke(I) & MyName) And vbDirectory) = vbDirectory Then '如果是次级目录 Dic.Add (Ke(I) & MyName & ＂\＂），＂＂ '就往字典中添加这个次级目录名作为一个条目 End If End If MyName = Dir '继续遍历寻找 Loop I = I + 1 Loop 'Did.Add （＂文件清单＂），＂＂ '以查找D盘下所有EXCEL文件为例 For Each Ke In Dic.keys MyFileName = Dir(Ke & ＂*.doc＂) Do While MyFileName ＂＂ Doc = Ke & MyFileName Did.Add (Doc), ＂＂ count = count + 1 Debug.Print ＂正在读取[＂ & count & ＂]:->＂ & Doc doc2xls (Doc) MyFileName = Dir Loop Next ' For Each Sh In ThisWorkbook.Worksheets ' If Sh.Name = ＂XLS文件清单＂ Then ' Sheets(＂XLS文件清单＂).Cells.Delete ' F = True ' Exit For ' Else ' F = False ' End If ' Next 'If Not F Then ' Sheets.Add.Name = ＂XLS文件清单＂ 'End If 'Sheets(＂XLS文件清单＂).[A1].Resize(Did.Count, 1) = WorksheetFunction.Transpose(Did.keys) TT = Time - T Debug.Print ＂共耗时＂ & Minute(TT) & ＂分＂ & Second(TT) & ＂秒＂ End Sub Sub doc2xls(filename As String) Dim xlApp As Object, xlSheet As Object, outfile As String, c As Object Set xlApp = CreateObject(＂Excel.Application＂) Set xlSheet = xlApp.Workbooks.Add.Sheets(1) Dim Wapp As Object, Doc As Object, GetDocText As Object 'Word Application 对象、Document 对象 Set Wapp = CreateObject(＂Word.Application＂) '创建Word Application 对象 Set Doc = Wapp.Documents.Open(filename, ReadOnly:=True) '打开文档，返回一个文档对象'xlSheet.Range(＂A1＂) = Doc.Content.Text Doc.Application.Selection.WholeStory ''''全选 Doc.Application.Selection.Copy ''''''''''复制 xlSheet.Range(＂A1＂).Select xlSheet.Paste outfile = xlspath + Replace(SplitPath(filename, 1), ＂.doc＂, ＂.xls＂) Debug.Print ＂正在生成：->＂ & outfile xlSheet.Parent.SaveAs outfile xlApp.Quit Set xlSheet = Nothing Set xlApp = Nothing Wapp.Quit Set Doc = Nothing Set Wapp = Nothing End Sub

转载请注明出处51数据库 » word vba select