:!: โปรดทราบ Image
    1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ดครับ Image
    2. การสมัครสมาชิกเพื่อโพสต์คำถาม ดาวน์โหลดไฟล์แนบไปศึกษา ทำตามขั้นตอนด้านล่างครับ
      1. สมัครสมาชิก ดูขั้นตอนตาม Link นี้ครับ => สมัครสมาชิก กรณีลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่นี่ครับ => Reset รหัสผ่านImage
      2. Login เข้าระบบโดยคลิก Login ตรงมุมขวาบนของหน้านี้ Image กรณีมีปัญหาในการเข้าใช้งาน คลิก Link นี้เพื่อแจ้งผู้ดูแลระบบครับ => ติดต่อผู้ดูแลระบบ
    3. เมื่อ Login แล้วสามารถกำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษได้ที่ Link นี้ครับ => ตั้งค่าส่วนตัว Image
    4. วิธีการตั้งและตอบกระทู้ดูได้ที่ Link นี้ครับ => วิธีการตั้งและตอบกระทู้ Image
    5. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ Link นี้ครับ => จัดรูปแบบตัวอักษร และสามารถกำหนดขนาดตัวอักษรใน Browser ได้ที่นี่ครับ ==> กำหนดขนาดตัวอักษรใน Browser Image

ต้องการดึงข้อมูลจากword ในแต่ละวัน มาsave เป็น text file

ฟอรั่มถาม-ตอบปัญหาการใช้งาน MS Word and VBA
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถาม-ตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบ ต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. อธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. ควรแนบตัวอย่างไฟล์มาที่ฟอรั่มนี้เพื่อเพิ่มความสะดวกในการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่น นอกจากนี้ไม่ควรแนบไฟลที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. สำหรับคำถามเกี่ยวกับ VBA ให้ลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน ควรโพสต์ Code ให้แสดงเป็น Code เพื่อสะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. แจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
March201711
Member
Member
Posts: 14
Joined: Sat Mar 11, 2017 7:01 pm

ต้องการดึงข้อมูลจากword ในแต่ละวัน มาsave เป็น text file

#1

Postby March201711 » Mon Mar 13, 2017 7:01 pm

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

ขอบคุณคะ

User avatar
snasui
Site Admin
Site Admin
Posts: 22234
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

Re: ต้องการดึงข้อมูลจากword ในแต่ละวัน มาsave เป็น text file

#2

Postby snasui » Mon Mar 13, 2017 7:25 pm

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

March201711
Member
Member
Posts: 14
Joined: Sat Mar 11, 2017 7:01 pm

Re: ต้องการดึงข้อมูลจากword ในแต่ละวัน มาsave เป็น text file

#3

Postby March201711 » Tue Mar 14, 2017 8:14 am

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


ขอบคุณคะ
You do not have the required permissions to view the files attached to this post.

User avatar
snasui
Site Admin
Site Admin
Posts: 22234
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

Re: ต้องการดึงข้อมูลจากword ในแต่ละวัน มาsave เป็น text file

#4

Postby snasui » Tue Mar 14, 2017 11:59 am

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

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

March201711
Member
Member
Posts: 14
Joined: Sat Mar 11, 2017 7:01 pm

Re: ต้องการดึงข้อมูลจากword ในแต่ละวัน มาsave เป็น text file

#5

Postby March201711 » Tue Mar 14, 2017 2:04 pm

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

logic
Silver
Silver
Posts: 542
Joined: Thu Mar 18, 2010 1:57 pm

Re: ต้องการดึงข้อมูลจากword ในแต่ละวัน มาsave เป็น text file

#6

Postby logic » Tue Mar 14, 2017 2:55 pm

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

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


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

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


Return to “Word”

Who is online

Users browsing this forum: No registered users and 3 guests