Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


66901 / 76732 ←次へ | 前へ→

【14390】Re:wordを検索しそのファイルを名前を変えて保存
発言  ichinose  - 04/5/27(木) 23:48 -

引用なし
パスワード
   ▼cond-fit さん:
こんばんは。

>ExcelからWordのあるファイルを検索しそのファイルを名前を変えて保存する処理なのですが、検索は出来たのですがそのファイルを名前を変えて保存方法がわかりません。

↑これが仕様だと額面どおり受け取るならば、
ワードのインスタンスを作成する必要はなさそうですが・・・。
つまり、xxxx.docというファイルを名前を変えてコピー出来ればよい訳ですよね?
'=============================
Sub main()
  Dim 元ファイル名 As String
  Dim 新ファイル名 As String
  元ファイル名 = "D:\My Documents\TESTエリア\sample.doc"
  新ファイル名 = Application.InputBox("ファイル入力")
  If 新ファイル名 <> "False" Then
   If flcopy(元ファイル名, "D:\My Documents\TESTエリア\" & 新ファイル名) = 0 Then
     MsgBox "コピー成功"
   Else
     MsgBox "コピー失敗"
     End If
   End If
End Sub
'==================================================================
Function flcopy(s_file As String, c_file As String) As Long
  On Error Resume Next
  filecopy s_file, c_file
  flcopy = Err.Number
End Function

ワード文書を開いて中身も変更して保存だ というなら
Wordにもマクロの記録がありますから、
保存操作をしてみて下さい。

0 hits

【14387】wordを検索しそのファイルを名前を変えて保存 cond-fit 04/5/27(木) 21:08 質問
【14390】Re:wordを検索しそのファイルを名前を変え... ichinose 04/5/27(木) 23:48 発言
【14432】Re:wordを検索しそのファイルを名前を変え... cond-fit 04/5/28(金) 20:05 お礼
【14433】Re:wordを検索しそのファイルを名前を変え... cond-fit 04/5/28(金) 20:58 質問
【14445】Re:wordを検索しそのファイルを名前を変え... ichinose 04/5/29(土) 10:01 発言
【14454】Re:wordを検索しそのファイルを名前を変え... cond-fit 04/5/29(土) 18:09 お礼

66901 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free