המרת קבצי Word לקבצי טקסט

[אברהם]

חבר בלי אינטרנט ביקשני לשאול:
יש לי בערך 300 קבצי וורד שאני רוצה להמיר אותם לתבנית txt.
האם ידוע לך על דרך קל לעשות את זה?
תודה רבה!!!!

אם יש מישהו שיודע על פתרון מהיר (אולי איזה מאקרו שיעשה זאת אוטומטית וכד'), הוא ישמח לשמוע.

 

[שמח לעזור]

אם הוא רוצה ממני פיתרון חינמי אז הנה:
שיעתיק את כל הקבצים לתיקייה אחת, ויפעיל את המאקרו הזה:

Dim FolderName As String
Dim FolderNameOu As String
FolderName = InputBox("ùí äúé÷ééä áä éù ÷áöé ååøã")
FolderNameOu = InputBox("ùí äúé÷ééä áä éùîøå ä÷áöéí")
 
Dim d As Document
Dim FileName As String
FileName = Dir(FolderName, vbNormal)
Do Until FileName = ""
FileName = Dir
If Right(FileName, 3) = "doc" Then
Documents.Open (FolderName & FileName)
Dim st As String
st = FolderNameOu & FileName & ".txt"
ActiveDocument.SaveAs FileName:=st, FileFormat:=WdSaveFormat.wdFormatText
End If
Loop

(הג'יבריש הראשון להפוך ל"תיקיית מוצא", השני ל"תיקיית יעד")
אם הוא מעוניין באפשרויות וכו', דרך קלה יותר ומהירה יותר וכדו'
אני מוכן בתשלום.