Excel VBA質問箱 IV

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

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


48900 / 76732 ←次へ | 前へ→

【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


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

0 hits

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

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