㈠ VB操作word怎么添加第二个表格
这个我没有试过，以前只做过用VB操作Excel的sheet。
我感觉VB操作Word最重要的是找到一个定位点。
添加第一个标题和表格的时候，一定要有保留出一个多余的空行，
第二次添加的时候，找到第二个空行在去添加。
㈡ vba转vb Selection问题
你选中的什么range范围，就直接用就可以了当然也可以直接用 cells
㈢ VB操作WORD更改字体格式问题
FindTexts = s(0) YesNo = "1" Do While YesNo = "1"没看完 但是你这句有问题吧，Do While 前有一个赋值 ，那么你这个循环是不可能循环的，后面的代码跟没有是一样的
㈣ VB使WORD字体中加粗
AppWord.Selection.Font.Bold = TrueAppWord.Selection.Font.Italic = True这是加粗和倾斜的语句！ 你自己看加在自己想要的地方！
㈤ 怎样在vb中控制word
Dim wordapp As Word.ApplicationDim wdDoc As Word.DocumentSet fso = CreateObject("Scripting.FileSystemObject")Set files = fso.GetFolder("C:\path").Files Set wordapp = CreateObject("Word.Application")For Each polozka In filesSet wdDoc = wordapp.Documents.Open(polozka.ShortPath)wordapp.Visible = TrueWith wdDoc.Selection.HomeKey Unit:=6.Find.Text = "Název (typ):".Find.Wrap = wdFindContinue…End With…wordapp.QuitSet wordapp = Nothing Next
㈥ VB 向WORD 插入表格问题
在插入图表之前加一句wordApp.selection.endkey unit:=wdStory '将光标移到文档末尾
㈦ 怎样用用VB在word文件里插入横跨两个section的表格
'以下代码将在文档最后连续添加3个表格Sub xx() ActiveDocument.Content.Select Dim i As Integer, tb As Table '连续创建3个带表头的表格 For i = 1 To 3 Selection.InsertAfter "表" & i & vbCrLf '创建一个表头 Selection.MoveDown Unit:=wdLine, Count:=1 '选中表头下面一行 Set tb = ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=4, NumColumns:=5, DefaultTableBehavior:=1, AutoFitBehavior:=0) '创建一个表格 tb.Select '选中表格 Selection.MoveDown Unit:=wdLine, Count:=1 '将光标移动到表格下一行 NextEnd Sub
㈧ 如何用VB调用WORD文档，请高手进，谢谢~！~
知道,不过不能直接读取,因为微软没有公布加密方式,所以要调用WORD来读取,然后获取它先在工程的引用里面加上Microsoft Word 11.0 Object Library Dim 剪切板文本 Dim Word文字处理系统界面 As Word.Application '建立一个word.application对象 Dim Word文档 As Word.Document Dim Word文档文本 As Word.Selection '在word文字处理系统中添加一个文档Set Word文字处理系统界面 = CreateObject("Word.Application") '选择对象 Word文字处理系统界面.Visible = False '不显示word.application，即word文字处理系统界面 Set Word文档 = Word文字处理系统界面.Documents.Open(文件路径) Set Word文档文本 = Word文字处理系统界面.Selection Word文档文本.WholeStory Word文档文本.Copy 剪切板文本 = Clipboard.GetText(vbCFText) '放到text1中 Text1.Text = 剪切板文本 'Clipboard.SetData Temp Word文档.Close '关闭文档 Word文字处理系统界面.Application.Quit Set Word文字处理系统界面 = Nothing '清空变量 Set Word文档文本 = Nothing'完成操作我通过剪切板来获取文本,因为这样可以保留格式(本人独创)如果直接获取也是可以的,不过格式全部丢失,所以我的方法会更好一点
㈨ vb 对word进行查找操作，如何对每个查到的字符串进行操作
Private Sub WWW1()Dim sn As Variant, SS As String, I As IntegerSelection.WholeStorySS = Selection.Textsn = Split(SS, "*")For I = 1 To UBound(sn) sn(I) = Replace(sn(I), sn(I), Val(sn(I)) + 1) SS = SS & vbCrLf & "T" & sn(I)NextSelection.TypeText Text:=SSEnd Sub
㈩ vb中操作word,获取光标所在行和列
光标所在行：Selection.Information(wdFirstCharacterLineNumber)光标所在列(光标前的字符数)：Selection.Information(wdFirstCharacterColumnNumber)对于表格，行是表格的行，列是表格中某单元格中光标前的字符数
