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

偉婕

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

GBKEE

回復 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

複製代碼

偉婕

回復 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

複製代碼

oobird

見附件，如在excel內做是否能 991011.rar (10.47 KB)

下載次數: 13

2010-10-12 23:58

接受？

偉婕

回復 4# oobird

這是網友問我的問題(聽說是國中生的作業 @@)
我已經給對方"不是很有效率"的解決方法了,提出來只是我個人想知道有沒有什麼好方法而已
我是覺得只要能夠解決問題,沒有什麼可不可以,畢竟解答不只一種
歡迎[oobird]版主提供可能的解決方法
謝謝!

oobird

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

偉婕

回復 6# oobird

作業好幾個星期前就交了
如果可以,還是希望[oobird]版主提供在Excel的作法
謝謝!

GBKEE

我將Excel欄位的順序調成跟Word的一樣,可是怎麼位置還是會錯亂?
偉婕 發表於 2010-10-12 22:38

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

oobird

回復  oobird

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

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

chiahuo

小弟試了，如果把word的表格方向改為橫式的話，就可以簡單的解決
直式的話就會有問題。