Word VBA中,如何根据内容删除一行？

Sub DelBlank()Dim i as Paragraph, n as LongApplication.ScreenUpdating = FalseFor Each i In ActiveDocument.ParagraphsIf Len(i.Range) = 1 Theni.Range.Deleten = n + 1End IfNextMsgBox ＂共删除空白段落＂ & n &amp； ＂个。

＂Application.ScreenUpdating = TrueEnd Sub摘自 EXCELHOME

VBA Word中怎么用VBA选取表格中的表格

使用VBA操作Word表格一、生成表格Private Sub CreateTable(mRows As Integer, mColumns) Dim mRange As RangeSet mRange = ActiveDocument.RangemRange.SetRange Start:=ActiveDocument.Range.End, End:=ActiveDocument.Range.EndSet 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 = wdLineStyleSingleBorders(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 = 0For i = 0 To SelfGenTable.Columns.Count - 1 If j > 2 Then j = 0 End IfSelfGenTable.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 IntegerDim tmpStr(0 To 1) As String '临时字符串 If Len(mStr) > mLen ThenDo While Len(mStr) > mLen tmpStr(0) = Left(mStr, mLen)mStr = Right(mStr, Len(mStr) - mLen)tmpStr(1) = tmpStr(1) + tmpStr(0) + vbCrLf LooptmpStr(1) = tmpStr(1) + mStr ElsetmpStr(1) = mStr

WORD VBA 如何获取某行某一列的位置？

展开全部 提供一个方案给楼主参考，可以批量修改多个文档中某个指定文字的属性：1、启动Word后，键入Alt+F11打开VBA编辑窗口；2、选择菜单“插入->模块”，然后在代码编辑区中粘贴如下代码： Option ExplicitConst 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, oFolderMsgBox ＂完成！＂End Sub' 修改指定文件夹（递归）下面的所有Word文件中指定文字的格式 Sub ChangeFontStyleForFilesUnderFolder(fso, oFolder)Dim oSubFolder, oFileFor Each oSubFolder In oFolder.SubFoldersChangeFontStyleForFilesUnderFolder fso, oSubFolderNextFor Each oFile In oFolder.FilesDocuments.Open oFile.PathChangeFontStyleForActiveDocumentActiveDocument.Close TrueNextEnd Sub' 修改当前打开文档里面所有指定文字的格式 Sub ChangeFontStyleForActiveDocument()Selection.StartOf wdStorySelection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWith 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 = TrueEnd WithSelection.Find.Execute Replace:=wdReplaceAll End Sub3、修改代码开始处的两个参数：存放所有需要批量修改文档的根目录（下面可以包含子目录，比如“C:\Docs”），需要修改的文字（比如“茶”字，也可以是一个词或者句子）；4、修改“主函数”里面想要设置的字体属性，如字号、颜色、加粗、斜体、下划线，等等；4、键入F5运行，直到看到“完成！”。

5、检查各个文档里面指定的文字是否已经被设置成了指定的格式。

我想知道在excel中如何将一行连加如何操作。

一行加和。

。

。

。

求

Excel 技巧 53例 （一） 1、如何在已有的单元格中批量加入一段固定字符？ 例如：在单位的人事资料，在excel中输入后，由于上级要求在原来的职称证书的号码全部再加两位，即要在每个人的证书号码前再添上两位数13，如果一个一个改的话实在太麻烦了，那么我们可以用下面的办法，省时又省力： 1）假设证书号在A列，在A列后点击鼠标右键，插入一列，为B列 ； 2）在B2单元格写入： =＂13＂ & A2 后回车； 3）看到结果为 13xxxxxxxxxxxxx 了吗？鼠标放到B2位置，单元格的下方不是有一个小方点吗，按着鼠标左键往下拖动直到结束。

当你放开鼠标左键时就全部都改好了。

若是在原证书号后面加13 则在B2单元格中写入：=A2 & “13” 后回车。

2、如何设置文件下拉窗口的最下面的最近运行的文件名个数？ 打开“工具”，选“选项”，再选“常规”，在“最近使用的文件清单”下面的文件个数输入框中改变文件数目即可。

若不在菜单中显示最近使用的文件名，则将“最近使用的文件清单”前的复选框去掉即可。

3、在EXCEL中输入如“1-1”、“1-2”之类的格式后它即变成1月1日，1月2日等日期形式，怎么办？ 这是由于EXCEL自动识别为日期格式所造成，你只要点击主菜单的“格式”菜单，选“单元格”，再在“数字”菜单标签下把该单元格的格式设成文本格式就行了。

4、在EXCEL中如何使它象WORD一样的自动定时保存文件？ 点击“工具”菜单“自动保存”项，设置自动保存文件夹的间隔时间。

如果在“工具”菜单下没有“自动保存”菜单项，那么执行“工具”菜单下“加载宏...”选上“自动保存”，“确定”。

然后进行设置即可。

5、用Excel做多页的表格时，怎样像Word的表格那样做一个标题，即每页的第一行（或几行）是一样的。

但是不是用页眉来完成？ 在EXCEL的文件菜单-页面设置-工作表-打印标题；可进行顶端或左端标题设置，通过按下折叠对话框按钮后，用鼠标划定范围即可。

这样Excel就会自动在各页上加上你划定的部分作为表头。

6、在Excel中如何设置加权平均？ 加权平均在财务核算和统计工作中经常用到，并不是一项很复杂的计算，关键是要理解加权平均值其实就是总量值（如金额）除以总数量得出的单位平均值，而不是简单的将各个单位值（如单价）平均后得到的那个单位值。

在Excel中可设置公式解决（其实就是一个除法算式），分母是各个量值之和，分子是相应的各个数量之和，它的结果就是这些量值的加权平均值。

7、如果在一个Excel文件中含有多个工作表，如何将多个工作表一次设置成同样的页眉和页脚？如何才能一次打印多个工作表？ 把鼠标移到工作表的名称处（若你没有特别设置的话，Excel自动设置的名称是“sheet1、sheet2、sheet3.......”），然后点右键，在弹出的菜单中选择“选择全部工作表”的菜单项，这时你的所有操作都是针对全部工作表了，不管是设置页眉和页脚还是打印你工作表。

8、EXCEL中有序号一栏，由于对表格进行调整，序号全乱了，可要是手动一个一个改序号实在太慢太麻烦，用什么方法可以快速解决？ 如果序号是不应随着表格其他内容的调整而发生变化的话，那么在制作EXCEL表格时就应将序号这一字段与其他字段分开，如在“总分”与“排名”之间空开一列，为了不影响显示美观，可将这一空的列字段设为隐藏，这样在调整表格（数据清单）的内容时就不会影响序号了。

9、用Excel2000做成的工资表，只有第一个人有工资条的条头（如编号、姓名、岗位工资.......），想输出成工资条的形式。

怎么做？ 这个问题应该这样解决：先复制一张工资表，然后在页面设置中选中工作表选项，设置打印工作表行标题，选好工资条的条头，然后在每一个人之间插入行分页符，再把页长设置成工资条的高度即可。

使用自定义方式重装了一遍中文office97,Excel的打印纸选项中只有A4一种，怎么办？ 随便安装一个打印机驱动程序就可以了。

10、在Excel中小数点无法输入，按小数点，显示的却是逗号，无论怎样设置选项都无济于事，该怎么办？ 这是一个比较特殊的问题，我曾为此花了十几个小时的时间，但说白了很简单。

在Windows的控制面板中，点击“区域设置”图标，在弹出的“区域设置属性”对话面板上在“区域设置”里选择“中文（中国）”，在“区域设置属性”对话面板上在“数字”属性里把小数点改为“.”（未改前是“，”），按“确定”按钮结束。

这样再打开Excel就一切都正常了。

11、如何快速选取特定区域？ 使用F5键可以快速选取特定区域。

例如，要选取A2:A1000，最简便的方法是按F5键，出现“定位”窗口，在“引用”栏内输入需选取的区域A2:A1000。

12、如何快速返回选中区域？ 按Ctr+BacksPae（即退格键）。

13、如何快速定位到单元格？ 方法一：按F5键，出现“定位”对话框，在引用栏中输入欲跳到的单元格地址，单市“确定”按钮即可。

方法二：单击编辑栏左侧单元格地址框，输入单元格地址即可。

14、“Ctrl+*”的特殊功用？ 一般来说，当处理一个工作表中有很多数据的表格时，通过选定表格中某个单元格，然后按下 Ctrl+* 键可选定整个表格。

Ctfl+* 选定...

vba编程 word每一行字体颜色随机

展开全部 欢迎学习VBA。

不过问题比较笼统哦，不知道怎么帮你了，呵呵建议拿一个具体实例出来讨论，这样能够更好地说明。

另外，VBA必须寄生于已有的应用程序，必须依赖于它的＂父＂应用程序，例如EXCEL、Word、AutoCAD，只能在它的＂父＂应用程序中运行，而不能独立运行。

因此，你只要说Word VBA编程或Excel VBA编程，大家就会明白啦 ^_^...

在WORD中,将整个文档选定的快捷键是

ctrl+a 其他的快捷方式： Word快捷键 [F1]键：帮助 [F2]键：移动文字或图形，按回车键确认 [F4]键：重复上一次的操作 [F5]键：编辑时的定位 [F6]键：在文档和任务窗格或其他Word窗格之间切换 [F8]键：打开Word的选择模式 [F12]键：打开“另存为”对话框 [shift+F2]组合键：复制文本 [shift+F3]组合键：改变字母大小写 [shift+F4]组合键：重复查找或定位 [shift+F12]组合键：选择“文件”菜单中的“保存”菜单项 [shift+F5]组合键：跳转文档中上一次编辑位置 [shift+←] 组合键：选中光标左侧一个字符 [shift+→] 组合键：选中光标右侧一个字符 [shift+↑] 组合键：选中光标当前位置至上一行之间的内容 [shift+↓] 组合键：选中光标当前位置至下一行之间的内容 [shift+Ena] 组合键：选中光标所在处至行尾 [shift+Home] 组合键：选中光标所在处至行首 [shift+pageup] 组合键：选中光标当前位置至上一屏之间的一行内容 [Shift+Pagedown] 组合键：选中光标当前位置至下一屏之间的一行内容 [ctri+F2] 组合键：打印预览 [ctri+F4] 组合键：关闭窗口 [ctri+F6] 组合键：在打开的文档之间切换 [ctri+F12] 组合键：打开“打开”对话框 [ctri+1] 组合键：单倍行距 [ctri+2] 组合键：双倍行距 [ctri+5] 组合键：1.5倍行距 [ctri+O] 组合键：段前添加一行间距 [ctri+A] 组合键：全选 [ctri+B] 组合键：字符变为粗体 [ctri+C] 组合键：复制 [ctri+shift+D] 组合键：分散对齐 [ctri+E] 组合键：段落居中 [ctri+F] 组合键：查找 [ctri+G] 组合键：定位 [ctri+H] 组合键：替换 [ctri+I] 组合键：字符变为斜体 [ctri+J] 组合键：两端对齐 [ctri+K] 组合键：超级连接 [ctri+L] 组合键：左对齐 [ctri+N] 组合键：新建文档 [ctri+M] 组合键：左侧段落缩进 [ctri+O] 组合键：打开文档 [ctri+P] 组合键：打印 [ctri+Q] 组合键：插入点所在行向左移动一个字符 [ctri+Q] 组合键：取消段落格式 [ctri+R] 组合键：右对齐 [ctri+S] 组合键：保存 [ctri+T] 组合键：创建悬挂缩进 [ctri+U] 组合键：为字符添加下划线 [ctri+V] 组合键：粘贴 [ctri+W] 组合键： [ctri+X] 组合键：剪贴 [ctri+Shift+Z] 组合键：格式清除 [ctri+ shift] 组合键：输入法转换 [ctri+F8] 组合键：打开“宏”的对话框 [ctri+空格] 组合键：中、西文转换 [ctri+Enter] 组合键：插入分页符 [ctri+ shift+M] 组合键：取消左侧段落缩进 [ctri+ shift+F12] 组合键：选择“文件”菜单中的“打印”菜单项 [ctri+ shift+F] 组合键：改变字体 [ctri+ shift+P] 组合键：改变字号 [ctri+ shift+>] 组合键：增大字号 [ctri+ shift [ctri+ shift+]] 组合键：逐磅增大字号 [ctri+ shift+[] 组合键：逐磅减小字号 [ctri+ shift+C] 组合键：复制格式 [ctri+ shift+V] 组合键：粘贴格式 [ctri+ shift+T] 组合键：减小悬挂缩进量 [ctri+ Enter] 组合键：插入分页符 [ctri+Home] 组合键：插入点移到文档首部 [ctri+End] 组合键：插入点移到文档尾部 [ctri+ shift+←] 组合键：将光标移到单词开始处 [ctri+ shift+→] 组合键：将光标移到单词结尾处 [ctri+ shift+↑] 组合键：将光标移到段首 [ctri+ shift+↓] 组合键：将光标移到段尾 [ctri+ shift+Home] 组合键：将光标移到文档开始处 [ctri+ shift+Ena]组合键：将光标移到文档结尾处 [ctri+PGVP] 组合键：将插入点移至上一页窗口顶部 [ctri+PGDW]组合键：将插入点移至下一页窗口顶部 [shift+Home]组合键：插入点到行首 [shift+Ena]组合键：插入点到行尾 [shift+空格]组合键：半角/全角切换 [Ctri+左键] 组合键：选中一段文字 [Ait+左键] 组合键：选中一块文字 [Ait+Ctri+ Shift+Pagedown]组合键：将光标移到窗口结尾 [Ait+Ctri+C] 组合键：插入版权符号 [Ait+Ctri+R]组合键：插入注册商标符号 [Ait+Ctri+T]组合键：插入商标符号 [Ait+Ctri+.]组合键：插入省略号 [Ait+Tab] 组合键：切换任务、窗口 [Ait+F4] 组合键：关闭程序 [Ait+空格] 组合键：下拉Word控制菜单 [Ait+Prntscreen] 组合键：窗口复制。

按住[Ait]键，可以暂时忽略网格使图片平滑移动。

按住[Shift]键，依次选取需要对齐的图形，完成若干图形对齐任务。

按住[Shift]键并单击“打印预览”按扭，可快速打印工作表。

按[shift+Enter]组合键，可以在当前幻灯片的后面插入一张新幻灯片。

按[Tab]键，选择下一个单元格； 按[Shift+ Tab]组合键选择前一个单元格。

按[Shift]键，再按回车键，就会产生一个换行符。

如果打开的窗口或窗体角朵，并且把数据库窗口完全挡住了，这时只要按下[F11]（也可以按下[Ait+ F11]），数据库窗口将被前置。

按[Ctri+：]组合键，可以输入当前日期； 按[Ctri+ shift+：] 组合键，可以输入当前时间。

选定大块区域，，按[Shift]键后拖动鼠标。

选定矩形区域，，按[Ait]键后拖动鼠标（大纲视图下无效）。

▲Excel 快捷键和功能键 帮助 全部显示 全部隐藏 以下列表包含了 Ctrl 组合快捷键、功能键和某些其他常用快捷键，以及它们的功能说明。

有关所有可用快捷键及它们的具体用途的更多参考信息，请参阅键盘快捷方式。

若要打印此主题，请按 Tab 选择“全部显示”，按 Enter，然后按 Ctrl+P。

注释 如果经常使用的操作没有快捷键，可以通过录制宏来创建快捷键。

Ctrl 组合快捷键 按键 说明 Ctrl+（ 取消隐藏选定范围内所有隐藏的行。

Ctrl+） 取消隐藏选定范围内所有隐藏的列。

Ctrl+& 将外框应用于选定...

转载请注明出处51数据库 » word vba 选定一行