| |
▼さち さん：
こんにちは。
ご自分でどこまでコードを書かれていらっしゃいますか？
以下のコードは
>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
後は さち さんの行いたい事をコードに当てはめて見て下さい。
(エラー処理等も考慮しておりません)
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
