質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

88.92%

VBA:ExcelからWordを開いて置換処理をしたいのですが、エラーになります。

解決済

回答 2

投稿

  • 評価
  • クリップ 1
  • VIEW 10K+

mochinn

score 13

ExcelからWordを開いて置換処理をしたいのですが、エラーになります。

MyFile = Application.GetOpenFilename(FileFilter:="word文書,*.docx")
If MyFile = "False" Then
Exit Sub
End If

Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Open(MyFile)
Set objSelection = objWord.Selection
ojbDoc.ActiveWindow.ActivePane.View.Type = wdPrintview <ここで「変数が定義されていません」となります。

With Selection
.Find.Text = "開始日"
.Find.Forward = True
.Find.MatchWholeWord = True
.Find.Replacement.Text = "終了日"
xResult = .Find.Execute(Replace:=wdReplaceAll)
End With

当初エラーが発生している行は書いていませんでした。
「wdReplaceAll」でエラーが出たので調べたところ、Excel2013以降に出るようになったエラーのようで、
Viewを設定すると出なくなったと書いてあったので、追記してみました。
ですが、今度はその追記した行でエラーになってしまいます。

Excel/Word 2016、VBA7.1です。

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 2

checkベストアンサー

0

これか。

ojbDoc.ActiveWindow.ActivePane.View.Type = wdPrintview
↓
objDoc.ActiveWindow.ActivePane.View.Type = wdPrintview

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2017/05/24 16:56

    ありがとうございます。
    wdPrintView定義の方を試したところ、Wordの置換処理を変数と認識してしまうようでしたので、参照設定を試してみました。
    View設定ではエラーが出なくなりましたが、今度はFindでエラーが出てしまいます。
    以下のように変更してみました。
    With Selection.Find
    .ClearFormatting
    .Forward = True
    .Wrap = wdFindContinue
    .Execute FindText:="試験開始日", _
    Replace:=wdReplaceAll, ReplaceWith:="治験開始日"

    これの場合、「With Selection」の行で「引数の数が一致していません。または不正なプロパティを指定しています」と出てしまいます。

    キャンセル

  • 2017/05/24 17:00

    時間がなくて試してませんが、SelectionではなくてobjSelectionにしてみてはどうでしょうか。

    キャンセル

  • 2017/05/24 17:08

    !!!!!!
    objSelectionにしたら、無事動きました!!!!!
    ありがとうございました。今日何時間も悩んでいたので、大変助かりました!

    キャンセル

0

「wdPrintView」はWordの組み込み定数ですので通常ではExcelVBAからは使用できません。
「CreateObject」を使用してWordを起動している所から、ExcelVBAのライブラリ参照でWordを参照するように設定していないと予想します。
よって上記コードでは宣言なしの変数として扱われています。

「wdPrintView」は数値で表すと3になりますので数値に書き換えて試してみてください
列挙型 : マイクロソフト Dev Center

Wordのライブラリの参照設定するには
ExcelVBEのメニュー[ツール]-[参照設定]をクリック

[参照設定-VBAProject]ダイアログの[参照可能なライブラリファイル]欄で、
「Microsoft Word ○ Object Library」チェックボックスをOnに
(○の部分はバージョンに応じて15.0などの数字が表示されます)

ライブラリ参照を行うと下記のように書くことが可能です。

Dim objWord As Word.Application
Dim objDoc As Word.Document

Set objWord = New Word.Application
objWord.Visible = True
Set objDoc = objWord.Documents.Open(MyFile)
objDoc.ActiveWindow.ActivePane.View.Type = wdPrintView

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 88.92%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る