L
LEU
I have the following macro that when I’m run it I want to save the formfileds
as plan text. The problem is when I open the word document from the mainframe
application the SaveAs dialog box defaults the file type to “Doc†and I want
it to default to “txtâ€. How can I do this?
Dim tempfile
Dim oFF As FormFields
Set oFF = ActiveDocument.FormFields
With Dialogs(wdDialogFileSaveAs)
Options.DefaultFilePath(wdDocumentsPath) = "U:\History"
.Name = ""
If .Display = -1 Then
tempfile = .Name
Open tempfile For Output As #1
Write #1, oFF(5).Result, oFF(6).Result, oFF(7).Result, _
oFF(8).Result, oFF(9).Result, oFF(10).Result
Close #1
End If
End With
Set oFF = Nothing
as plan text. The problem is when I open the word document from the mainframe
application the SaveAs dialog box defaults the file type to “Doc†and I want
it to default to “txtâ€. How can I do this?
Dim tempfile
Dim oFF As FormFields
Set oFF = ActiveDocument.FormFields
With Dialogs(wdDialogFileSaveAs)
Options.DefaultFilePath(wdDocumentsPath) = "U:\History"
.Name = ""
If .Display = -1 Then
tempfile = .Name
Open tempfile For Output As #1
Write #1, oFF(5).Result, oFF(6).Result, oFF(7).Result, _
oFF(8).Result, oFF(9).Result, oFF(10).Result
Close #1
End If
End With
Set oFF = Nothing