1.用VBA宏回圈創建word檔案后保存，如何默認創建，不顯示重繪？
2.如何打開包含宏的ppt就執行相應的宏，求詳細步驟？
uj5u.com熱心網友回復：
第一問已解決，上代碼Sub AddSaveAsNewWord()
Dim docPolicy As Document
Dim rngFormat As Range
Dim Filename As String
Filename = ""
Dim i As Long
i = 1
Dim txt As String
txt = ""
Dim WordObject As Object '宣告一個物件變數，這里即將宣告為Word物件
Set WordObject = CreateObject("Word.Application")
'WordObject.Visible = 0
Open "D:\ppt\passwd.txt" For Input As #1
'表示打開檔案時使用的通道號為1
Do While Not EOF(1)
Line Input #1, txt
Set docPolicy = WordObject.Documents.Add(DocumentType:=wdNewBlankDocument)
'Set docPolicy = Documents.Add
'設定rngFormat變數的位置，位于檔案的最上面
Set rngFormat = WordObject.ActiveDocument.Range(Start:=0, End:=0)
With rngFormat
.InsertAfter Text:="dzwebs"
End With
docPolicy.Password = txt
Filename = "D:\word\" + Str(i) + ".docx"
i = i + 1
docPolicy.SaveAs Filename
docPolicy.Close
Loop
Close #1
Set WordObject = Nothing '釋放物件
Set docPolicy = Nothing
Set rngFormat = Nothing
Application.Quit SaveChanges:=wdDoNotSaveChanges'退出并關閉程式檔案
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/91025.html
標籤：VBA
上一篇：VB仿jQuery影像切換效果
下一篇：怎么實作簡單的字母加減移位？