- 帖子
- 258
- 主題
- 77
- 精華
- 0
- 積分
- 385
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Taiwan
- 註冊時間
- 2010-8-8
- 最後登錄
- 2021-1-25
|
[發問] 如何在Excel Vba之下套用上列Word Vba?
請教各位先進大大:
以下是我在Word中錄製加以修正 可以在Word中正常Run
ChangeFileOpenDirectory ActiveDocument.Path & "\"
Documents.Open FileName:="A4-3X7.doc", ConfirmConversions:=False
Windows("A4-3X7.doc").Activate
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=False
End With
ChangeFileOpenDirectory ActiveDocument.Path & "\"
ActiveDocument.SaveAs FileName:="套表.doc", FileFormat:=wdFormatDocument, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
如何送出給列表機?語法?
ActiveWindow.Close以上程序 應如在Excel Vba下語法 執行
1.在Excel 下開:"A4-3X7.doc"
2.在Excel Vba之下套用上列Word Vba
懇求協助
謝謝 |
|
發表於 2014-1-19 00:55
| 
