Excel Forum

ดิฉันต้องดึงfile จาก word ในทุกวันๆ มาsave เก็บไว้เป็น text file ซึ่งข้อมูล word จะแยกเก็บเป็นวันๆไป เช่น
c:\2017\201703 วันถัดไป
C:\2017\201704 วันถัดไป
c:\2017\201705 วันถัดไป
c:\2017\201706 วันถัดไป
ต้องเขียน VBA code ใน word อย่างไรบ้างค่ะ

ขอบคุณคะ

VBA ต้องเขียนมาเอง ติดแล้วค่อยถามกัน อ่านกฎการใช้บอร์ดข้อ 5 ด้านบนครับ

ตามเอกสารแนบคะ


ขอบคุณคะ

แนบ Code มาในฟอรัม แจ้งว่าติดปัญหาที่บรรทัดใดครับ

การโพสต์ Code ต้องโพสต์ให้แสดงเป็น Code กรุณาอ่านกฎการใช้บอร์ดข้อ 5 ด้านบน

Code VBA เปลี่ยนตามวันเดือนปี (วัน-1 ดด ปป) คะ และเวลาเข้าไปแก้ vba mircosoft word จะ error ไม่ยอมให้แก้คะ ต้องเลือก select all แล้วไป replace วันเดือนปีเองคะ มีวิธีแก้ไขไหมคะ กลุ่มใจมากคะ

ขอบคุณคะ
ChangeFileOpenDirectory "T:\SBAReport\20170313\"
Documents.Open FileName:="T:\SBAReport\20170313\BMR424.docx", _ อยากให้ code จำวันที่ปัจจุบัน-1คะ
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto, XMLTransform:=""
ChangeFileOpenDirectory "T:\SBAReport\20170313\"อยากให้ code จำวันที่ปัจจุบัน-1คะ
ActiveWindow.Close
ChangeFileOpenDirectory "T:\SBAReport\20170313\"อยากให้ code จำวันที่ปัจจุบัน-1คะ
Documents.Open FileName:="T:\SBAReport\20170313\BMR464.docx", _อยากให้ code จำวันที่ปัจจุบัน-1คะ
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto, XMLTransform:=""
ChangeFileOpenDirectory _
"T:\Ac\Marco_Text\"
ActiveDocument.SaveAs2 FileName:= _
"T:\A\Marco_Text\BMR464.txt" _
, FileFormat:=wdFormatText, LockComments:=False, Password:="", _
AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
:=False, SaveAsAOCELetter:=False, Encoding:=874, InsertLineBreaks:=False, _
AllowSubstitutions:=False, LineEnding:=wdCRLF, CompatibilityMode:=0
ActiveWindow.Close
ChangeFileOpenDirectory "T:\SBAReport\20170313\"อยากให้ code จำวันที่ปัจจุบัน-1คะ
Documents.Open FileName:="T:\SBAReport\20170313\BRR343NV.docx", _อยากให้ code จำวันที่ปัจจุบัน-1คะ
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto, XMLTransform:=""
ChangeFileOpenDirectory _
"T:\A\Marco_Text\"
ActiveDocument.SaveAs2 FileName:= _
"T:\A\Marco_Text\BRR343NV.txt" _
, FileFormat:=wdFormatText, LockComments:=False, Password:="", _
AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
:=False, SaveAsAOCELetter:=False, Encoding:=874, InsertLineBreaks:=False, _
AllowSubstitutions:=False, LineEnding:=wdCRLF, CompatibilityMode:=0
ActiveWindow.Close
ChangeFileOpenDirectory "T:\SBAReport\20170313\"อยากให้ code จำวันที่ปัจจุบัน-1คะ
Documents.Open FileName:="T:\SBAReport\20170313\BTR533.docx", _อยากให้ code จำวันที่ปัจจุบัน-1คะ
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto, XMLTransform:=""
ChangeFileOpenDirectory _
"T:\A\Marco_Text\"
ActiveDocument.SaveAs2 FileName:= _
"T:\A\Marco_Text\BTR533.txt" _
, FileFormat:=wdFormatText, LockComments:=False, Password:="", _
AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
:=False, SaveAsAOCELetter:=False, Encoding:=874, InsertLineBreaks:=False, _
AllowSubstitutions:=False, LineEnding:=wdCRLF, CompatibilityMode:=0
ActiveWindow.Close
ChangeFileOpenDirectory "T:\SBAReport\20170313\"อยาอยากให้ code จำวันที่ปัจจุบัน-1คะ
Documents.Open FileName:="T:\SBAReport\20170313\BTR533_TFEX.docx", _อยากให้ code จำวันที่ปัจจุบัน-1คะ
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto, XMLTransform:=""
ChangeFileOpenDirectory _
"T:\A\Marco_Text\"
ActiveDocument.SaveAs2 FileName:= _
"T:\A\Marco_Text\BTR533_TFEX.txt" _
, FileFormat:=wdFormatText, LockComments:=False, Password:="", _
AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
:=False, SaveAsAOCELetter:=False, Encoding:=874, InsertLineBreaks:=False, _
AllowSubstitutions:=False, LineEnding:=wdCRLF, CompatibilityMode:=0
ActiveWindow.Close
MsgBox " Upload daily SBA for MIS has finished "
End Sub

snasui wrote: แนบ Code มาในฟอรัม แจ้งว่าติดปัญหาที่บรรทัดใดครับ

การโพสต์ Code ต้องโพสต์ให้แสดงเป็น Code กรุณาอ่านกฎการใช้บอร์ดข้อ 5 ด้านบน

ช่วยอ่านที่อาจารย์ snasui แจ้งด้วย ถือเป็นเรื่องสำคัญที่สมาชิกต้องให้ความสำคัญ

คุณอ่านกฎข้อ 5 ด้านบน จะมีบอกว่าโพสต์ code ให้แสดงเป็น Code คลิกลิงก์ไปดูว่าโพสต์แบบไหน ผมเห็นโพสต์เป็นข้อความธรรมดามาทุกรอบ ถ้าอาจารย์แจ้งแล้วคุณไม่แก้ ขอให้เข้าใจว่าไม่มีใครเสี่ยงมาตอบให้คุณครับ