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