拡張子docをExcelからVBAでdocxもしくはdocmに変換したい

Question

エクセルのシートにワードファイルのパスが記載されています。
A列,B列
パス,ファイル名0. 番号リスト
C:,abc.doc
C:\Users\xxx\Documents,123.doc
C:\Users\xxx\OneDrive\doc,あいう.doc
・
・
・
・
・

ExcelのVBAから、拡張子をdocからdocxあるいは、マクロを含んでいる場合はdocmに変換したいです。
元ファイルのdocはそのまま残します。

シートに書かれたファイルパス一覧を基に実行したいので、エクセルからワードを制御したいです。

よろしくお願い致します。

Answer 1

エクセルからワードを制御したいです。

' 最初にこれをやっておいて、
Set WORD = CreateObject("Word.Application")
WORD.Visible = True '必要に応じて

' 以降は、対象ファイルごとに、普通のワードのVBAと同じ
Set doc = WORD.Documents.Open(ファイルパス)
～～～

Comments

[syusa]

ありがとうございます。
If WORD.HasVBProject = True Then
MsgBox "VBAあり"
Else
MsgBox "VBAなし"
End If
で判定できました。ありがとうございました。

Answer 2

Sub main00()
Dim WApp As Object
Dim WDoc As Word.Document
Dim Lr As Long
Dim Fil0 As String, Fil1 As String, Fil2 As String, Fil3 As String

Lr = Cells(10000, 1).End(xlUp).Row

Set WApp = CreateObject("Word.Application")
' Word起動
WApp.Visible = True
'画面更新を止める
Application.ScreenUpdating = False
For i = 1 To Lr
  'A列ファイル名、B列パス,C列フルパス
  Fil0 = Cells(i, 3)
  Fil1 = Cells(i, 1)
  Fil2 = Cells(i, 2)
  tmp = Split(Fil1, ".")
  Fil3 = tmp(0)
  
  '該当ファイル開く
   Set WDoc = WApp.Documents.Open(Fil0)

  If WDoc.HasVBProject = True Then
    MsgBox Fil2 & Fil3 & ".docm"
    WDoc.SaveAs2 Fil2 & Fil3 & ".docm", wdFormatXMLDocumentMacroEnabled
  Else
    MsgBox Fil2 & Fil3 & ".docx"
    WDoc.SaveAs2 Fil2 & Fil3 & ".docx", wdFormatXMLDocument
  End If
  '該当ファイル閉じる
  WDoc.Close
Next i
'Word終了
WApp.Quit
'画面更新再開
Application.ScreenUpdating = True

End Sub