Excel VBA質問箱 IV

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

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


8525 / 13644 ツリー ←次へ | 前へ→

【32735】VBAでワードファイルを開いて文字を置き換えるには? さち 05/12/21(水) 14:16 質問[未読]
【32760】Re:VBAでワードファイルを開いて文字を置... 小僧 05/12/21(水) 17:42 回答[未読]
【32795】Re:VBAでワードファイルを開いて文字を置... さち 05/12/22(木) 13:19 お礼[未読]

【32735】VBAでワードファイルを開いて文字を置き...
質問  さち  - 05/12/21(水) 14:16 -

引用なし
パスワード
   こんにちは☆

以下のような流れでワードファイルを起動して
エクセルで指定した文字列に置き換えて
印刷したい場合はどのようにすればよろしいのでしょうか。


1.エクセルで置き換える文字列を入力する
2.ボタンを押す
 <以下マクロ作業>
3.指定のワードファイルを開く
4.ワードファイル内の指定の文字列を1.で入力した文字列に置き換える
5.そのワードファイルを指定の場所に名前の末尾に日付を付けて保存
6.印刷プレビュー画面にする


こんなことできますかね?
あまりよくわからないもので…

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

【32760】Re:VBAでワードファイルを開いて文字を置...
回答  小僧  - 05/12/21(水) 17:42 -

引用なし
パスワード
   ▼さち さん:
こんにちは。

ご自分でどこまでコードを書かれていらっしゃいますか?

以下のコードは

>3.指定のワードファイルを開く
>4.ワードファイル内の指定の文字列を1.で入力した文字列に置き換える
>5.そのワードファイルを指定の場所に名前の末尾に日付を付けて保存
>6.印刷プレビュー画面にする

のうち、Word内の「yyyy」を「2005」に置き換えるようなコードです。

Sub Wordのオートメーション()
Dim strPath As String
Dim strName As String
Dim strFile As String
Dim wrdApp As Object
Dim wrdDoc As Object
Dim wrdRng As Object
Const E_wdReplaceAll = 2
  
  strPath = ThisWorkbook.Path  'Wordファイルへのパス
  strName = "Temp"       'Wordファイルの名前
  strFile = strPath & "\" & strName & ".DOC"
    
  Set wrdApp = CreateObject("Word.Application")
  wrdApp.Visible = True
  Set wrdDoc = wrdApp.Documents.Open(strFile)
    wrdDoc.Range.WholeStory
      With wrdDoc.Range.Find
        .Text = "yyyy"
        .ClearFormatting
        .Replacement.Text = Year(Date)
        .Replacement.ClearFormatting
        .Execute Replace:=E_wdReplaceAll, Forward:=True
      End With
  
  wrdDoc.SaveAs strPath & "\" & strName & "_" & _
         Format(Date, "yyyymmdd") & ".DOC"
  wrdDoc.PrintPreview
  Set wrdDoc = Nothing
  Set wrdApp = Nothing
End Sub


後は さち さんの行いたい事をコードに当てはめて見て下さい。
(エラー処理等も考慮しておりません)

【32795】Re:VBAでワードファイルを開いて文字を置...
お礼  さち  - 05/12/22(木) 13:19 -

引用なし
パスワード
   ▼小僧 さん:

お返事遅くなりましてすみません。
ありがとうございました。

やりたい流れで処理ができました。
いやぁ、感動です。

ホントにありがとうございました☆

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