偉婕

　暱稱: 偉婕

版主 Rank: 7 Rank: 7 Rank: 7

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

論壇貢獻勳章美女勳章熱烈參與勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-10-11 19:02 | 只看該作者

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

附加檔是網友來信問的問題
他想將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

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 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的資料不一致請自行修正

Sub Ex()
Dim MyXls As Object, Rng As Object, First As String, ii%, i%, T%, C%
Set MyXls = CreateObject("EXCEL.APPLICATION")
First = "E2" '附檔991011.xls檔案資料中第一筆資料的位置
With MyXls
.Visible = True
.WORKBOOKS.Open ("D:\TEST\991011.xls") '打開 xls資料檔
Set Rng = .WORKBOOKS(1).SHEETS(1).Range(First).End(2)
Set Rng = Rng.End(4)
Set Rng = .WORKBOOKS(1).SHEETS(1).Range(First, Rng) '取得資料
End With
Documents.Open "d:\test\991011.doc" ' 打開指定的word
If Rng.Rows.Count > 5 Then ' 複製表格
For i = 6 To Rng.Rows.Count Step 5 'Word每一資料表格數=5
Set myRange = ActiveDocument.Range(Start:=ActiveDocument.Range.End - 1, End:=ActiveDocument.Range.End)
With ActiveDocument.Tables(1)
.Select
Selection.Copy
End With
myRange.Select
Selection.TypeParagraph
Selection.TypeParagraph
Selection.Paste
Next
End If
C = 1: T = 1
For i = 1 To Rng.Rows.Count '''''''''''''''複製xls資料到 Word表格
For ii = 1 To Rng.Columns.Count
ActiveDocument.Tables(T).Cell(ii + IIf(ii <= 10, 1, 2), 1 + IIf(ii < 10, C, C + 1)).Range = Rng(i, ii)
Next
If i Mod 5 <> 0 Then
C = C + 1
Else
T = Int(i / 5) + 1: C = 1
End If
Next '''''''''''''''複製xls資料到 Word表格
MyXls.Quit '關閉xls 檔案
'ActiveDocument.PrintOut '印列檔案
'ActiveDocument.SaveAs "d:\test\???doc" '存檔
Application.Quit '關閉 Word
End Sub

複製代碼

TOP

偉婕

　暱稱: 偉婕

版主 Rank: 7 Rank: 7 Rank: 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的一樣,可是怎麼位置還是會錯亂?
若有誤解,還請您解說一下,謝謝!

關於插入外部圖檔,我上網查了一下
不過怎麼套用進來,我就不行了

Sub picture()
ActiveDocument.Tables(1).Cell(2, 1).Select Selection.InlineShapes.AddPicture FileName:="D:\991011.jpg"
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

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 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: 7 Rank: 7 Rank: 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: 8 Rank: 8

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

論壇貢獻勳章

6^#

發表於 2010-10-13 00:17 | 只看該作者

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

TOP

偉婕

　暱稱: 偉婕

版主 Rank: 7 Rank: 7 Rank: 7

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

論壇貢獻勳章美女勳章熱烈參與勳章

7^#

發表於 2010-10-13 00:24 | 只看該作者

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