- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 165
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2025-7-9
               
|
回復 11# kannas
老夏前輩的物件包裝方法是妳該學習方向
http://forum.twbts.com/viewthread.php?tid=782&extra=&highlight=word&page=1
參考之前的討論,你對物件聯結的方法會有較多的認識
單就VBA語法討論,你所提到的join方法
這是字串的連結函數,你可參考VBA說明
就能知道此函數用法及用途
你要用&代替JOIN函數當然也行
那就是在取得表格內的每一句字串,
用mystr=mystr & chr(10) & Tb.Cell(i, j).Range.Sentences(s + 1)- Sub WriteWordTb()
- Dim Tb As Table, Ar()
- Set Wd = CreateObject("Word.Application") '創建WORD程式物件
- Cells.Clear '清空工作表內容
- With Wd '關於WORD程式物件
- With .Documents.Open(ThisWorkbook.Path & "\1.doc") '開啟指定的檔案
- For Each Tb In .tables 'doc文件中的每個Table
- For i = 1 To Tb.Rows.Count
- For j = 1 To Tb.Columns.Count
- For s = 0 To Tb.Cell(i, j).Range.Sentences.Count - 1
- If mystr="" Then
- mystr=Tb.Cell(i, j).Range.Sentences(s + 1)
- Else
- mystr= mystr & chr(10) & Tb.Cell(i, j).Range.Sentences(s + 1) '連接每句
- End If
- Next
- With Cells(i, j)
- .Value = mystr '儲存格的值
- mystr="" '把變數歸零
- .WrapText = True '儲存格設定成自動換行
- End With
- Next
- Next
- Next
- End With
- .Quit '關閉程式
- End With
- End Sub
複製代碼 |
|