Re: [VBA ] 如何將資料加到記事本去?
※ 引述《markchen ()》之銘言:
: ※ [本文轉錄自 Visual_Basic 看板 #1EvQfxCt ]
: 作者: markchen () 看板: Visual_Basic
: 標題: [VBA ] 如何將資料加到記事本去?
: 時間: Mon Dec 12 15:17:13 2011
: 請問一下各位
: 我的word產生一段數字123
: 我把存到1.txt裏去
: 下次word再產生一段數字
: 如:4 5 6
: 能不能存成
: 123
: 456
: 重點是利用 VBA 將word裏的數字存到同檔名的txt裏去 每次要儲存
: 時 它會自動存到下一行 而不會將txt檔覆蓋過去
: 我錄製的VBA
: ChangeFileOpenDirectory _
: "C:\"
: ActiveDocument.SaveAs FileName:="1.txt", FileFormat:=wdFormatText, _
: LockComments:=False, Password:="", AddToRecentFiles:=True,
: WritePassword _
: :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
: SaveNativePictureFormat:=False, SaveFormsData:=False,
: SaveAsAOCELetter:= _
: False, Encoding:=950, InsertLineBreaks:=False,
: AllowSubstitutions:=False,
: LineEnding:=wdCRLF
: 但這個會txt的內容覆蓋過去
原po思路很對 但是你可以多錄一些
思路:
1 全選當前檔案文字
2 復制
3 通過word打開 1.txt 檔案
4 全選新檔案文字
5 按下 右方向 鍵, 然后enter(5,6保證輸入光標位于所有內容的下一行)
6 paste
7 Save
8 關閉新檔案
全部vba code如下:
Sub Macro1()
Selection.WholeStory
Selection.Copy
ChangeFileOpenDirectory "C:\"
Documents.Open FileName:="1.txt", ConfirmConversions:=False, ReadOnly:=
_
False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTempla
te:= _
"", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:
="", _
Format:=wdOpenFormatAuto, XMLTransform:="", Encoding:=936
Selection.WholeStory
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeParagraph
Selection.PasteAndFormat (wdPasteDefault)
ActiveDocument.Save
ActiveWindow.Close
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 1.202.244.1
討論串 (同標題文章)