vb操作word表格

1. 怎样在word中用VBA操作表格

1、在新工作表核粗御的Sheet1上点击右键

2. 如何用VB在WORD中添加表格

ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=50, NumColumns:= _
4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
With Selection.Tables(1)
If .Style <> "网格型" Then
.Style = "网格型"
End If
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = False
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = False
.ApplyStyleRowBands = True
.ApplyStyleColumnBands = False
End With

补充一下，可以用录制宏的方法查看代码学习编程，我也是在学习中

3. 如何利用vb编辑word

1.安装word
2.在VB开发环境里引入Office Word对象
3.在按钮中御散用CreateObject或New来产生一个word对象
4.调用该对象，直接实现替换等操作
5.如果不知道用什么语句，可以唤如用word里的宏编辑器记录所进行的和拆启操作，把生成的vbA代码拷贝到vb环境中即可

4. 怎么用vb编程操作word绘制表格的边框

单击开始----查找按钮(或按ctrl
+
f组合键)；
2、弹出查找对话框，在查找内容处输入需要查找的数字，唯悔在以下项中查找处选择主文档，单击关闭按钮；
3、此时文档中所的查找的数字都山山段被选逗誉中。

5. 我想用vb语句调整word中所有表格的格式，求补充代码

ALT+F8,打开宏对话框，创建名为SelectAllTables的宏。代码如下：
Sub SelectAllTables()
Dim tempTable As Table

Application.ScreenUpdating = False

'判断文档是否被保护
If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then
MsgBox "文档已保护，此时不能选中多个表格！"
Exit Sub
End If
'删除所有绝绝则可编辑的区域
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
'添加可编辑区域
For Each tempTable In ActiveDocument.Tables
tempTable.Range.Editors.Add wdEditorEveryone
Next
'选中所有可编辑区域宏启
ActiveDocument.SelectAllEditableRanges wdEditorEveryone
'删除所有可编辑的区域
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone

Application.ScreenUpdating = True

End Sub

保存完成后选择加载该宏并棚即可。

6. 怎样用VB操作Word与Excel详细点

给你两个小例子。一、控制WordPrivate Sub Command1_Click()
Dim wdApp As Application
Dim wdDoc As Word.Document
Dim OpenFile As String
Dlg1.ShowOpen
OpenFile = Dlg1.FileName
Set wdApp = CreateObject("Word.application")
Set wdDoc = wdApp.Documents.Open(OpenFile)
For i = 1 To wdDoc.Characters.Count
Text1.Text = Text1.Text + wdDoc.Characters(i)
Next
wdDoc.Close
wdApp.Quit
Set wdDoc = Nothing
Set wdApp = Nothing
End Sub 二、操作ExcelPrivate Sub Form_Click()
'在“工程/引雀携用”中选择Microsoft Excel9.0 Object LibraryDim xlApp As Excel.Application '定义EXCEL类
Dim xlBook As Excel.Workbook '定义顷戚伏工作簿类
Dim xlSheet As Excel.Worksheet '定义工作表类
'激活EXCEL应用程序仔闹
Set xlApp = CreateObject("Excel.Application")
'打开工作簿
Dim Filename As String
dlg1.ShowOpen
Filename = dlg1.Filename
Set xlBook = xlApp.Workbooks.Open(Filename)
Set xlSheet = xlBook.Worksheets(1)
Text1.Text = xlSheet.Range("A1").Value '关闭工作簿和EXCEL应用程序
xlBook.Close
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = NothingEnd Sub

7. 怎么用vb编程操作word绘制表格的边框

怎么用vb编程操作word绘制表格的边框操作步骤：

1、单击开始----查找按钮(或按Ctrl+F组合键)；

3、此时文档中所的查找的数字都被选中。

8. vb如何提取word表格中的数据

• 选择表格第一行的内容右键点击复制，在新的区域点击鼠标右键粘贴；

  

9. VB操作word怎么添加第二个表格

这个我没有试过，以前只做过用VB操作Excel的sheet。

我感觉VB操作Word最重要的是找到一个定位点。

添加第一个标题和表格的时候，一定要有保留出一个多余的空行，

第二次添加的时候，找到第二个空行在去添加。