Open With

[Kilroy]

Is it possible to:

1. open a document using a dialog box
2. save the document with the same name but use .xml extension
3. open the new .xml document in wordpad
4. do a find and replace
5. save

this is what I have so far:

Sub PickAndProcess()
  Dim intChoice As Integer
  Dim strPath As String
  Dim objWord As Object
  Set objWord = CreateObject("Word.Application")
  objWord.Visible = True
  Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
  intChoice = Application.FileDialog(msoFileDialogOpen).Show
  If intChoice <> 0 Then
  strPath = Application.FileDialog( _
  msoFileDialogOpen).SelectedItems(1)
     
  End If
  
  Dim doc As Document
  Set doc = Documents.Open(strPath)
  
  With doc
    Dim strDocName As String
    Dim intPos As Integer
    strDocName = ActiveDocument.Name
    intPos = InStrRev(strDocName, ".")
    strDocName = Left(strDocName, intPos - 1)
    strDocName = strDocName & ".xml"
    ActiveDocument.SaveAs2 FileName:=strDocName, _
    FileFormat:=wdFormatXML
   End With

ActiveDocument.Close
'oDoc = strDocName????
'With oDoc
    'Open with notepad
    'find text
    'replace text
    'save
    'close
'End With
'open xml document
'save as .docx

End Sub

[gmayor]

Neither Wordpad nor Notepad are programmable using VBA. What are you trying to do?

[Kilroy]

Thanks Graham.

[Kilroy]

I realize my end game is not achievable. But, is it possible to do the "open with" part?

[Kilroy]

Ok I kind of figured out how to open but I can’t get thevariable “StrDocName” to be recognized. It is usually a direct documentaddress.

Dim vPID As Variant
vPID = Shell("notepad.exe""strDocName",vbNormalFocus)

Is it possible?

[gmaxey]

Maybe:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oFile
Dim strFileName As String
  strFileName = "D:\Book1.xlsx"
  oFile = Shell("C:\WINDOWS\notepad.exe " & strFileName, 1)
lbl_Exit:
  Exit Sub
End Sub

[Kilroy]

adding "C:\WINDOWS" in front of "notepad.exe" did the trick.

[Kilroy]

Thanks for your help Graham and Greg!