Excel VBA質問箱 IV

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

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


66910 / 76738 ←次へ | 前へ→

【14387】wordを検索しそのファイルを名前を変えて保存
質問  cond-fit E-MAIL  - 04/5/27(木) 21:08 -

引用なし
パスワード
   ExcelからWordのあるファイルを検索しそのファイルを名前を変えて保存する処理なのですが、検索は出来たのですがそのファイルを名前を変えて保存方法がわかりません。
どなたかご教授お願いします。

Dim wd As Object
Dim wdDoc As Object
Dim myPath As String
  
                   'Dドライブにカレントセット
   ChDrive "D"
   Msg = "改善提案書のファイル名を入力しなさい "
   Titie = "改善提案書ファイル名登録"
   GetStr = InputBox(Msg, Titie)
                'GetStrに名前を変える
    
   FilePath1 = "d:\テスト保存\" & GetStr & ".doc"
  
  Set wd = CreateObject("Word.Application")
                     '
  myPath = "D:\改善案フォーム.doc"
                     '元の名前を検索

  With wd
   .Visible = True
   .Documents.Open Filename:=myPath
  End With
    ****ここまででは元の名前のファイルの表示はできる。****
  
  Set wd = Nothing
                 ’ここで元の名前を入力した名前に変える予定
                  なのですがよくわかりません。

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 お礼

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