返回列表 上一主題 發帖

[發問] 請教關於合併列印問題

[發問] 請教關於合併列印問題

附加檔是網友來信問的問題
他想將Excel中的資料,透過合併列印至Word表中
目前在執行上會產生資料遺漏現象
所以我建議他改以一頁一筆,再進行處理
不知各位有沒有較好的處理方式
謝謝!

991011.zip (15.78 KB)

偉婕電子書,歡迎免費下載參考
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
偉婕藏書庫---https://www.facebook.com/groups/669579416484096/
有一家柑仔店---https://www.facebook.com/sadodona

回復 1# 偉婕
關於word 的vba 我不熟在此獻醜了,如有缺失尚請指教 word內有一欄為相片尚需高手指引  

附件的xls與word的資料不一致 請自行修正  
  1. Sub Ex()
  2.     Dim MyXls As Object, Rng As Object, First As String, ii%, i%, T%, C%
  3.     Set MyXls = CreateObject("EXCEL.APPLICATION")
  4.     First = "E2"                                                '附檔991011.xls檔案資料中第一筆資料的位置
  5.     With MyXls
  6.         .Visible = True
  7.         .WORKBOOKS.Open ("D:\TEST\991011.xls")                  '打開 xls資料檔
  8.         Set Rng = .WORKBOOKS(1).SHEETS(1).Range(First).End(2)
  9.         Set Rng = Rng.End(4)
  10.         Set Rng = .WORKBOOKS(1).SHEETS(1).Range(First, Rng)     '取得資料
  11.     End With
  12.     Documents.Open "d:\test\991011.doc"                         ' 打開指定的word
  13.     If Rng.Rows.Count > 5 Then                                  ' 複製表格
  14.         For i = 6 To Rng.Rows.Count Step 5                      'Word每一資料表格數=5
  15.             Set myRange = ActiveDocument.Range(Start:=ActiveDocument.Range.End - 1, End:=ActiveDocument.Range.End)
  16.             With ActiveDocument.Tables(1)
  17.                 .Select
  18.                 Selection.Copy
  19.             End With
  20.             myRange.Select
  21.             Selection.TypeParagraph
  22.             Selection.TypeParagraph
  23.             Selection.Paste
  24.         Next
  25.     End If
  26.     C = 1:    T = 1
  27.     For i = 1 To Rng.Rows.Count   '''''''''''''''複製xls資料 到 Word表格
  28.         For ii = 1 To Rng.Columns.Count
  29.             ActiveDocument.Tables(T).Cell(ii + IIf(ii <= 10, 1, 2), 1 + IIf(ii < 10, C, C + 1)).Range = Rng(i, ii)
  30.         Next
  31.         If i Mod 5 <> 0 Then
  32.             C = C + 1
  33.         Else
  34.             T = Int(i / 5) + 1:    C = 1
  35.        End If
  36.     Next     '''''''''''''''複製xls資料 到 Word表格   
  37.     MyXls.Quit                                 '關閉xls 檔案   
  38.     'ActiveDocument.PrintOut                   '印列檔案
  39.     'ActiveDocument.SaveAs "d:\test\???doc"    '存檔
  40.     Application.Quit                           '關閉 Word
  41. End Sub
複製代碼

TOP

回復 2# GBKEE

謝謝[GBKEE]版主
我不懂VBA
不過由您寫的VBA看來,不是由E2開始複製嗎?
我將Excel欄位的順序調成跟Word的一樣,可是怎麼位置還是會錯亂?
若有誤解,還請您解說一下,謝謝!

關於插入外部圖檔,我上網查了一下
不過怎麼套用進來,我就不行了
  1. Sub picture()
  2. ActiveDocument.Tables(1).Cell(2, 1).Select    Selection.InlineShapes.AddPicture FileName:="D:\991011.jpg"
  3. End Sub
複製代碼
偉婕電子書,歡迎免費下載參考
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
偉婕藏書庫---https://www.facebook.com/groups/669579416484096/
有一家柑仔店---https://www.facebook.com/sadodona

TOP

見附件,如在excel內做是否能 991011.rar (10.47 KB) 接受?

TOP

回復 4# oobird

這是網友問我的問題(聽說是國中生的作業 @@)
我已經給對方"不是很有效率"的解決方法了,提出來只是我個人想知道有沒有什麼好方法而已
我是覺得只要能夠解決問題,沒有什麼可不可以,畢竟解答不只一種
歡迎[oobird]版主提供可能的解決方法
謝謝!
偉婕電子書,歡迎免費下載參考
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
偉婕藏書庫---https://www.facebook.com/groups/669579416484096/
有一家柑仔店---https://www.facebook.com/sadodona

TOP

因為單純用excel操作,只是套套位置就方便多了。
若是學生作業應該不能作這樣的更改。

TOP

回復 6# oobird

作業好幾個星期前就交了
如果可以,還是希望[oobird]版主提供在Excel的作法
謝謝!
偉婕電子書,歡迎免費下載參考
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
偉婕藏書庫---https://www.facebook.com/groups/669579416484096/
有一家柑仔店---https://www.facebook.com/sadodona

TOP

本帖最後由 GBKEE 於 2010-10-13 06:38 編輯
我將Excel欄位的順序調成跟Word的一樣,可是怎麼位置還是會錯亂?
偉婕 發表於 2010-10-12 22:38

Word裡有一些l欄位 在Excel欄位中並沒有出現 請在Excel檔案中將它補齊
例如Excel欄位中沒有相片欄,要補上相片欄,資料內容是空白也沒有關係.
請再試試看

TOP

本帖最後由 oobird 於 2010-10-13 11:43 編輯
回復  oobird

作業好幾個星期前就交了
如果可以,還是希望[oobird]版主提供在Excel的作法
謝謝!
偉婕 發表於 2010-10-13 00:24

這是函數版的。當最後頁人數不滿時可把多餘的相片設為不列印!

991011.rar (116.96 KB)

TOP

小弟試了,如果把word的表格方向改為橫式的話,就可以簡單的解決
直式的話就會有問題。
小弟是excel程式初學者,請多多指教

TOP

        靜思自在 : 能付出愛心就是福,能消除煩惱就是慧。
返回列表 上一主題