不錯(cuò)哦~我問(wèn)過(guò)這個(gè)問(wèn)題的:)  回復(fù)  更多評(píng)論
  

Dim WordApp
Dim Word
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set Word = WordApp.Documents.Open("c:\record.doc")

這樣是打開(kāi)一個(gè)已經(jīng)存在的.doc文件。如果想新建一個(gè).doc文件喃？  回復(fù)  更多評(píng)論
  

高手你好！我在vb中調(diào)用word打印報(bào)表，代碼是在word中錄制的宏拷貝過(guò)來(lái)的，但是在生成表格時(shí)編譯通不過(guò)，代碼如下：

Dim wdApp As Word.Application
Dim wdBook As Word.Document
Dim Range As Range
Dim NumRows As Long
Dim NumColumns As Long
Set wdApp = CreateObject("Word.Application")
Set wdBook = wdApp.Documents.Add
wdApp.Visible = True
....
....
--〉wdApp.ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=16, NumColumns _
:=5, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitWindow
運(yùn)行時(shí)上面這句報(bào)實(shí)時(shí)錯(cuò)誤'91'
對(duì)象變量或with塊變量未設(shè)置
該如何寫(xiě)？請(qǐng)高手指教，非常感謝！  回復(fù)  更多評(píng)論
  

看你的代碼是想增加一個(gè)表格，VBA的代碼和VB的代碼是不一樣的，需要轉(zhuǎn)換一下，多用幾次就清楚了。
應(yīng)該這樣寫(xiě)
Call wdBook.Tables.Add(wdBook.application.Selection.Range, 16, 5, 1, 0)  回復(fù)  更多評(píng)論
  

謝謝指教，還有一個(gè)問(wèn)題要請(qǐng)教高手。如果我要增加一個(gè)復(fù)雜的表格，舉例說(shuō)就是在表格中我要合并、拆分一些單元格，還要繪制表頭（帶斜線(xiàn)的），但是在word中錄制宏時(shí)無(wú)法對(duì)表格進(jìn)行這些操作，我該怎么辦？能不能給出一些代碼？非常感謝！  回復(fù)  更多評(píng)論
  

接著上次那個(gè)程序來(lái)。。。
Set mySelection = wdApp.Documents.Application.Selection
mySelection.Cells.Borders(-7).LineStyle = 1

'選中表格的第2行第3列
table.Cell(2, 3).Select
'向下移動(dòng)6格，第1個(gè)參數(shù)和第3個(gè)是常數(shù)
Call wdBook.Application.Selection.MoveDown(5, 6, 1)
'合并
wdBook.Application.Selection.Cells.Merge
'拆分成7行2列
Call wdBook.Application.Selection.Cells.Split(7, 2, True)  回復(fù)  更多評(píng)論
  

兄弟我也找了3天啦，終于找到組織了，樓主高，實(shí)在是高，繼續(xù)揣摩并關(guān)注此貼中。。。  回復(fù)  更多評(píng)論
  

謝謝！樓主真高，兄弟佩服，非常感謝！我馬上去試試。
  回復(fù)  更多評(píng)論
  

樓主你好！我按你的方法去做，但是在執(zhí)行table.cell(2,3).select時(shí)報(bào)錯(cuò)，錯(cuò)誤為實(shí)時(shí)錯(cuò)誤'424',要求對(duì)象，我不知道是不是在table前需要加上wdapp還是wdbook，或者是myselection，不過(guò)我都試過(guò)了，還是不行，后面的就寫(xiě)不下去了。我主要是想生成一個(gè)7列27行的表格，第1列的1、2兩行合并為一個(gè)單元格，第1列的第5行和第6行合并做一個(gè)帶斜線(xiàn)的表頭，斜線(xiàn)上下要分別輸入“壓力計(jì)”和“測(cè)試點(diǎn)”作為表頭分類(lèi)，第4行的第2、3、4列單元格合并為一個(gè)單元格，5、6、7列合并為一個(gè)單元格，望樓主能詳細(xì)寫(xiě)一下代碼。非常感謝！我的代碼如下：
Dim wdApp As Word.Application
Dim wdBook As Word.Document
Set wdApp = CreateObject("Word.Application")
Set wdBook = wdApp.Documents.Add
wdApp.Visible = True

wdApp.Selection.Font.Name = "黑體"
wdApp.Selection.Font.Size = 22
wdApp.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
wdApp.Selection.TypeText Text:="通風(fēng)機(jī)調(diào)試報(bào)告"
wdApp.Selection.TypeParagraph
wdApp.Selection.TypeParagraph
wdApp.Selection.Font.Name = "仿宋_GB2312"
wdApp.Selection.Font.Size = 12
Call wdApp.ActiveDocument.Tables.Add(wdApp.Application.Selection.Range, NumRows:=27, NumColumns _
:=7, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed)
Set mySelection = wdApp.Documents.Application.Selection
mySelection.Cells.Borders(-7).LineStyle = 1

'選中表格的第2行第3列
--> Table.Cell(2, 3).Select
'向下移動(dòng)6格，第1個(gè)參數(shù)和第3個(gè)是常數(shù)
Call wdBook.Application.Selection.MoveDown(5, 6, 1)
'合并
wdBook.Application.Selection.Cells.Merge
'拆分成7行2列
Call wdBook.Application.Selection.Cells.Split(7, 2, True)
Set wdBook = Nothing


  回復(fù)  更多評(píng)論
  

不好意思啊，上次在自己機(jī)器上測(cè)試了一下，沒(méi)有拷全部代碼，不過(guò)就這個(gè)應(yīng)該也能理解到呀，table就是要操作的那個(gè)table，一個(gè)word里面有可能有多個(gè)table，我們首先要選中要操作的那個(gè)table，我們這個(gè)table是自己用代碼生成的，所以有一個(gè)方便的代碼就是
dim Table
set Table = wdApp.ActiveDocument.Tables.Add(wdApp.Application.Selection.Range, NumRows:=27, NumColumns _
:=7, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed)

修改你的程序里面插入table的那句話(huà)即可
---------------------------------------------
謝謝關(guān)注風(fēng)之谷，下次多寫(xiě)一些關(guān)于這方面的東西，網(wǎng)上這方面的其實(shí)東西不少，但是不全，下次整理一下發(fā)上來(lái)，不過(guò)最近怕是沒(méi)什么時(shí)間了，呵呵！
  回復(fù)  更多評(píng)論
  

順便提一下，像你這樣的程序，我個(gè)人覺(jué)得是否改成模板要方便些呢？你用word做一個(gè)模板，把表格什么的全都先寫(xiě)好，然后保存成模板文件。然后你再用程序加載這個(gè)模板，然后往模板里填寫(xiě)數(shù)據(jù)。這樣難度要低一些。不過(guò)具體情況具體分析。（個(gè)人意見(jiàn)）

之前我不是說(shuō)了如果是自己創(chuàng)建的表格可以很方便的得到表格對(duì)象嗎？就在創(chuàng)建時(shí)直接取得了。其實(shí)還有另外一種辦法就是：你的其他程序都不變，只把出錯(cuò)的那句話(huà)改成：
wdApp.ActiveDocument.Tables(1).Cell(2, 3).Select
就像我開(kāi)篇說(shuō)的，word、excel這些集合的下標(biāo)都是從1開(kāi)始，然后只要找到表格那個(gè)集合，然后選取第一個(gè)表格就是要操作的表格了（因?yàn)槌绦蛑粍?chuàng)建了一個(gè)表格）。
如果是模板的話(huà)，就應(yīng)該是對(duì)已經(jīng)存在的表格進(jìn)行操作了，就只有用這中辦法弄了。不知道我說(shuō)清楚沒(méi)有。
  回復(fù)  更多評(píng)論
  

多謝了！我按照你的建議，已經(jīng)完全搞定了，還是做成模版調(diào)用來(lái)得方便，非常感謝你的指點(diǎn)。  回復(fù)  更多評(píng)論
  

樓主：

有一個(gè)問(wèn)題請(qǐng)教！

我想通過(guò)vb在word里添加多個(gè)表格，因?yàn)閿?shù)據(jù)的列數(shù)較多，希望能

分成多個(gè)表格顯示數(shù)據(jù)，方便查看。

部分代碼如下：

For I = 1 To INT_COL
Call MyWord.ActiveDocument.Tables.Add(MyWord.Application.Selection.Range, NumRows:=30, _
NumColumns:=8, DefaultTableBehavior:=wdWord9TableBehavior, _
AutoFitBehavior:=wdAutoFitFixed)
With MyWord.Application.Selection.Tables(1)
If .Style <> "網(wǎng)格型" Then
.Style = "網(wǎng)格型"
End If
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = True
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = True
End With
MyWord.Application.Selection.MoveDown　Unit:=wdLine,Count:=30
MyWord.Application.Selection.TypeParagraph
Next I

但是，每次程序執(zhí)行到MyWord.Application.Selection.MoveDown　Unit:=wdLine,Count:=30這一句，就跳出程序。為什么？

另：您有什么好的建議，處理這種多行多列數(shù)據(jù)嗎？  回復(fù)  更多評(píng)論
  

事情有點(diǎn)急，盼望樓主答復(fù)  回復(fù)  更多評(píng)論
  

程序修改如下，可以出現(xiàn)多個(gè)表格，但是在給每一個(gè)表格輸入數(shù)據(jù)時(shí)，我就不知道怎么處理了，盼回復(fù)

For I = 1 To INT_COL
Call MyWord.ActiveDocument.Tables.Add(MyWord.Selection.Range, NumRows:=30, _
NumColumns:=8, DefaultTableBehavior:=wdWord9TableBehavior, _
AutoFitBehavior:=wdAutoFitFixed)
MyWord.Selection.Tables(1).cell(1, 1) = "Year"
Call MyWord.Selection.MoveDown(5, 30)
MyWord.Selection.TypeParagraph
Next I  回復(fù)  更多評(píng)論
  

你的代碼基本上都差不多了，我沒(méi)測(cè)試，看樣子是你的思路有點(diǎn)問(wèn)題（循環(huán)不對(duì)）

你可以先生成1個(gè)表格，再處理表格的數(shù)據(jù)。
也可以把所有表格全部生成，再處理表格數(shù)據(jù)，
看你的代碼，你選擇的是第2種，不管是哪種，肯定是多重循環(huán)的，你的代碼只有1重循環(huán)。
思路如下：
for 表格數(shù)
生成這個(gè)表格，得到表格對(duì)象
for 表格的行
for 表格行的單元格
單元格="單元格的內(nèi)容"
next
next
next
呵呵，不知道說(shuō)清楚沒(méi)有  回復(fù)  更多評(píng)論
  

謝謝斑竹，搞定！

我的問(wèn)題并非上述原因，是我沒(méi)有把光標(biāo)移出表格。

問(wèn)題已經(jīng)解決，謝謝  回復(fù)  更多評(píng)論
  

請(qǐng)高手回答一下，怎么用VBA發(fā)現(xiàn)WORD中的合并單元格？
怎么跟椐一個(gè)字符串查找到相應(yīng)的單元格？  回復(fù)  更多評(píng)論
  

樓主實(shí)在是高，看過(guò)樓主的帖子解決了不少問(wèn)題。但是還有一個(gè)不會(huì)，就是怎樣將在VB picture中生成的圖片導(dǎo)入WORD中呢？？  回復(fù)  更多評(píng)論
  

樓主實(shí)在是高
有個(gè)問(wèn)題一直很奇怪，怎么把光標(biāo)移到文檔末尾，比如我要把剪切板上的東西復(fù)制到文件尾。我寫(xiě)的是
ActiveDocument.Range(ActiveDocument.End,ActiveDocument.End).Select
Selection.Paste
這樣是不對(duì)的
請(qǐng)教摟主  回復(fù)  更多評(píng)論
  

哇哈哈
半天的試驗(yàn)，問(wèn)題已解決
有空大家可以到我的空間看看
有不少平時(shí)我積累的有關(guān)編程方面的心得  回復(fù)  更多評(píng)論
  

如何用vb在word 中生成多個(gè)表格，尤其是在很多時(shí) 涉及到換頁(yè)的操作時(shí)，
大家各我看看，我的郵箱是999999999liguang@.163.com qq:26749732
下面是我的代碼 :
For n = 1 To 6
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=10+n, NumColumns:= _
6, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed


With wdDoc.Tables(n)
.Cell(1, 1).Merge .Cell(1, 6)
End With



With Selection.Tables(1)
If .Style <> "網(wǎng)格型" Then
.Style = "網(wǎng)格型"
End If
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = True
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = True
End With
ActiveWindow.ActivePane.VerticalPercentScrolled = 45
Selection.MoveDown Unit:=wdLine, Count:=10+n + 1

Selection.TypeParagraph
Next n
  回復(fù)  更多評(píng)論
  

@廉潔
請(qǐng)問(wèn)高手廉潔，怎樣才能把光標(biāo)移出表格。期盼。  回復(fù)  更多評(píng)論
  

請(qǐng)問(wèn)高手廉潔，怎樣才能把光標(biāo)移出表格。期盼。  回復(fù)  更多評(píng)論
  

請(qǐng)教樓主
怎樣將excel單元格的內(nèi)容轉(zhuǎn)化到設(shè)定好的word表格模板中去？多謝！

  回復(fù)  更多評(píng)論
  

樓主。我現(xiàn)在每次插表格都是在word文檔起始位置開(kāi)始。插入表格之后我想在后面接文字，請(qǐng)問(wèn)樓主用什么語(yǔ)句控制光標(biāo)到最后一位啊
例如：
樓主，你好
第 1單元格 第 2單元格 第 3單元格 第 4單元格
你好，樓主



  回復(fù)  更多評(píng)論
  

斑竹，請(qǐng)問(wèn)word中的合并單元格和拆分單元格如何判定，也就是它們的特征或標(biāo)志是什么？急！急！急！急！急！急！急！  回復(fù)  更多評(píng)論
  

請(qǐng)教，VBA里如何判斷 某一段或幾段用了哪個(gè) 項(xiàng)目符號(hào) 用什么屬性，查了很多資料都是講怎么設(shè)置項(xiàng)目符號(hào)的，沒(méi)有檢測(cè)的。謝謝。  回復(fù)  更多評(píng)論
  

本人正在學(xué)習(xí)用VBA在Excel中編程處理數(shù)據(jù)，我想把word文檔中的內(nèi)容copy到excel中進(jìn)行處理。逐行copy或一次性全部拷入均可。我已經(jīng)可以打開(kāi)word文檔了，但接下來(lái)就不知如何進(jìn)行了。請(qǐng)那位有經(jīng)驗(yàn)的高人知道一下。
Dim docApp 'As Word.Application
Set docApp = CreateObject("Word.Application")
docApp.Visible = False
Dim doc 'As Word.Document

Set doc = docApp.Documents.Open("D:\MyDocuments\報(bào)告數(shù)據(jù)\WorkingVersion\foo.doc")

多謝了！
  回復(fù)  更多評(píng)論
  

這個(gè)vb6.0代碼不能實(shí)現(xiàn)指定頁(yè)打印，不論怎樣設(shè)置 Copies:和Pages都和沒(méi)有一樣,錯(cuò)在哪里，請(qǐng)指教！
Private Sub Command1_Click()

Dim WordApp

Dim Word Set WordApp = CreateObject("Word.Application")

'WordApp.Visible = True

Set Word = WordApp.Documents.Open("d:\abc.doc")

WordApp.Application.PrintOut Copies:=1, Pages:="1,5"

Word.Close

WordApp.Quit

Set WordApp = Nothing

Set Word = Nothing

End Sub
  回復(fù)  更多評(píng)論
  

我想設(shè)定圖片的大小，要如何做？用上述方法（.AddPicture）會(huì)用圖片原始大小來(lái)顯示，我想要自己規(guī)定的大小來(lái)顯示。  回復(fù)  更多評(píng)論
  

如何用vb操作word表格中單元格中字體格式為上下居中？  回復(fù)  更多評(píng)論
  

怎樣用vb復(fù)制word表格？  回復(fù)  更多評(píng)論
  

設(shè)置某個(gè)文字為下標(biāo)怎么設(shè)呢？  回復(fù)  更多評(píng)論
  

整行 怎么選 寫(xiě)代碼 我想拆分 整行 把整行才分 2行 3行 4行 怎么寫(xiě)  回復(fù)  更多評(píng)論
  

請(qǐng)問(wèn)如何將word中的圖片讀取到一個(gè)變量中，或保存到磁盤(pán)的一個(gè)目錄中？  回復(fù)  更多評(píng)論
  

合并之后怎么對(duì)合并后的單元格賦值呢@黑旋風(fēng)
  回復(fù)  更多評(píng)論