彰化一整天的論壇

 找回密碼
 立即註冊
查看: 609|回復: 0

Word uses two characters as the cell delimiter, so use

[複製鏈接]
發表於 2014-8-21 16:18:16 | 顯示全部樓層 |閱讀模式
因為word使用兩個字元來當作表格儲存格的分隔號,所以取出表格中的儲存格要去除最後兩碼
  1. uResp = uResp & Trim(left(strCellText,len(StrCellText)-2))   
複製代碼
  1. Dim strCellText As String
  2. Dim uResp As String
  3. Dim Row As Integer
  4. Dim Col As Integer

  5. Dim itable As Table


  6. For Each itable In ThisDocument.Tables

  7.     uResp = ""

  8.     For Row = 1 To itable.Rows.Count

  9.         For Col = 1 To itable.Columns.Count

  10.             strCellText = itable.Cell(Row, Col).Range.Text
  11.             uResp = uResp & Trim(strCellText)               

  12.         Next

  13.     Next

  14.     MsgBox uResp
  15. Next
複製代碼


參考資料:  http://stackoverflow.com/questio ... in-ms-word-with-vba
回復

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  |网站地图

GMT+8, 2018-12-12 20:52 , Processed in 0.109242 second(s), 19 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表