1234
返回列表 上一主題 發帖

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

偉婕
　暱稱: 偉婕

版主Rank: 7Rank: 7Rank: 7

帖子
376 
主題
84 
精華
0 
積分
419 
點名
0  
作業系統
Win 8 
軟體版本
Office 2007 
閱讀權限
100 
性別
女 
註冊時間
2010-4-30 
最後登錄
2022-6-2 

論壇貢獻勳章美女勳章熱烈參與勳章
5# 跳轉到 »
發表於 2010-10-13 00:07 | 只看該作者
回復 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

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
4#
發表於 2010-10-12 23:58 | 只看該作者
見附件，如在excel內做是否能 991011.rar (10.47 KB) 接受？

TOP

偉婕
　暱稱: 偉婕

版主Rank: 7Rank: 7Rank: 7

帖子
376 
主題
84 
精華
0 
積分
419 
點名
0  
作業系統
Win 8 
軟體版本
Office 2007 
閱讀權限
100 
性別
女 
註冊時間
2010-4-30 
最後登錄
2022-6-2 

論壇貢獻勳章美女勳章熱烈參與勳章
3#
發表於 2010-10-12 22:38 | 只看該作者
回復 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

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2010-10-12 20:10 | 只看該作者
回復 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

        靜思自在 : 一個人不怕錯，就怕不改過，改過並不難。
1234
返回列表 上一主題