excel開啟word填入相關資料 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » excel開啟word填入相關資料

返回列表下一主題上一主題發帖

excel開啟word填入相關資料

超級版主 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兔年全勤獎章

1^# 跳轉到 »

發表於 2014-10-9 16:47 | 顯示全部帖子

本帖最後由 GBKEE 於 2014-10-10 05:34 編輯

回復 3# y663258

我要的只是找出一筆在"成果報告.doc"第一頁填入相關基本資料

試試看
你 1# 附檔表單的程式碼尋找:身份證字號

Dim Rng As Range
Private Sub TextBox1_Change()
If Trim(TextBox1) <> "" Then '去除兩旁空白字元後的TextBox1
Set Rng = Sheets("SHEET1").Range("a:a").Find(Trim(TextBox1), LOOKAT:=xlWhole)
' .Range("a:a") 尋找:身份證字號
If Not Rng Is Nothing Then
If MsgBox(TextBox1 & vbLf & "印列?", vbYesNo, "成果報告") = vbYes Then Ex
End If
End If
End Sub
Private Sub Ex()
Dim AR, i As Integer
AR = Array("成果報告", "H", "B", "D", "A", "I", "J", "K")
'表頭各欄位項目字串間隔請自行調整與顯示在 "成果報告.DOC,的字串間隔一致
For i = 1 To UBound(AR)
AR(i) = Cells(1, AR(i)) & " : " & Rng.Cells(1, AR(i))
'導入每欄位的表頭&":"&字串(內容)
Next
With CreateObject("WORD.APPLICATION")
.Visible = True
.Documents.Open "d:\成果報告.doc"
With .ActiveDocument
.Range(.Range.Start, .Range.End).Text = Join(AR, vbLf)
With .Range
.Font.Size = 16
.ParagraphFormat.Alignment = 0 'wdAlignParagraphLeft '靠左
With .Paragraphs(1).Range
.Font.Size = 24
.ParagraphFormat.Alignment = 1 ' wdAlignParagraphCenter '至中
End With
End With
.PrintOut '印列
.Close
End With
.Quit
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

超級版主 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^#

發表於 2014-10-15 09:43 | 顯示全部帖子

回復 5# y663258

"d:\成果報告.doc"原本只有一頁若改成二頁，目前程式只能顯示第一頁(作用頁)因自己才疏學淺，找尋相關資料試了很久還是失敗

有一頁若改成二頁,不了解你的意思,是修改後的存檔嗎??

End With
.PrintOut '印列
.Close True '存檔參數=True ,不存檔參數=False(預設的參數)

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

超級版主 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兔年全勤獎章

3^#

發表於 2014-10-15 10:58 | 顯示全部帖子

回復 7# y663258

試試看

Private Sub Ex()
Dim AR, i As Integer
AR = Array("成果報告", "H", "B", "D", "A", "I", "J", "K")
'表頭各欄位項目字串間隔請自行調整與顯示在 "成果報告.DOC,的字串間隔一致
For i = 1 To UBound(AR)
AR(i) = Cells(1, AR(i)) & " : " & Rng.Cells(1, AR(i))
'導入每欄位的表頭&":"&字串(內容)
Next
With CreateObject("WORD.APPLICATION")
.Visible = True
.Documents.Open "d:\成果報告.doc"
With .ActiveDocument
For i = 0 To UBound(AR)
If i + 1 > .Paragraphs.Count Then .Paragraphs.Add
With .Paragraphs(i + 1).Range
.Text = AR(i) & vbLf
.Font.Size = IIf(i = 0, 24, 16)
.ParagraphFormat.Alignment = IIf(i = 0, 1, 0)
End With
Next
.PrintOut '印列
.Close True '存檔
End With
.Quit
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 唯其尊重自己的人，才更勇於縮小自己。

返回列表下一主題上一主題