change .doc to .txt

**eddielong** · 07-12-2011, 10:40 AM

Originally Posted by snb

I think you must be able to adapt the code yourself, at least you are permitted to do so..

I Dont know where to adapt it ive never made a macro in word and I dont know how to tell it to go there

**Domski** · 07-12-2011, 10:49 AM

Originally Posted by snb

What value did you attribute to c00 ?
Did you end it with a backslash ?

c00 was:

c00 = "C:\Test\"

I was just testing it on a few 2003 doc files. Just tried again and same problem. It seems to create the files but instead of text like this:

Test 1
Test 1
Test 1
Test 1
Test 1
Test 1

they end up looking like the attached.

Dom

**Domski** · 07-12-2011, 10:52 AM

I assume this will work then:

Sub LoopFiles()

Dim strDir As String, strFileName As String

strDir = "G:\Branham SW455S 3 Jun11\"
strFileName = Dir(strDir & "*.doc")

Do While strFileName <> ""
    Documents.Open strDir & strFileName
    strFileName = Left(strFileName, Len(strFileName) - 4) & ".txt"
    ActiveDocument.SaveAs FileName:=strDir & strFileName, fileformat:=wdFormatText
    ActiveDocument.Close
    strFileName = Dir
Loop

End Sub

Dom

**eddielong** · 07-12-2011, 11:18 AM

its still not working

anything that you can think of that would make it not work right for me

**snb** · 07-12-2011, 11:54 AM

@Domski

Please post your code here (on my system: impeccable)
I made a slight modification:

sub snb()
  c00="E:\OF\"
  c01="doc"
  c02=dir(c00 & "*." & c01)

  do until c01=""
    with getobject(c00 & c02)
      c03=c03  & c02
      c04=c04 & "~|" & .content
      .activate
      .close 0
    end with
    c02=dir
  loop

  if c03<>"" then
    sn=split(replace(c03,".doc",".txt|"),"|")
    sp=split(mid(c04,3),"~|")
    for j=0 to ubound(sn)-1
      open c00 & sn(j) for output as #1
        print #1,sp(j)
      close
    next
  end if
End Sub