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

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

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Word

Microsoft WordはMicrosoftが開発した業務用の文書生成用のソフトウェアです。

Q&A

解決済

1回答

1379閲覧

word VBAにおけるテキスト置き換え、エラー調査の依頼

hood

総合スコア351

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Word

Microsoft WordはMicrosoftが開発した業務用の文書生成用のソフトウェアです。

0グッド

0クリップ

投稿2018/07/28 13:03

###テキストが置き換えられない
タイトル通りです。word VBAでテキストを置き換えようとするとエラーが出ます。

どれだけ画面をにらんでも、頭をひねっても、ググっても、エラーの原因は分かりませんでした。
完全に白旗です。お手上げです。

もうどなたかの教えを仰がせていただくしかないと思いました。
どうかご協力お願いします・・・!

まず、実現したい置き換えを書きます。

置き換え前

<string name="name0"></string>
<string name="name1・・・・

置き換え後

baseIds[0]=
udeIds[0]=
meIds[0]=
kuchiIds[0]=
<string name="name0"></string>
baseIds[1]=
udeIds[1]=
meIds[1]=
kuchiIds[1]=
<string name="name1・・・・

つまり、
<string name="name(ある数)"></string>

baseIds[ある数]=
udeIds[ある数]=
meIds[ある数]=
kuchiIds[ある数]=
<string name="nameある数"></string>
としてこれを繰り返したいのです。

次にエラーの出たコードを書きます。

lang

1Sub idを挿入() 2Dim count As Integer 3count = 0 4Do While .Excute 5With Selection 6 .Text = "\<string name=""name" & CStr(count) & """\>" 7 .MatchFuzzy = False 8 .MatchWildcards = True 9 .Replacement.Text ="baseIds[" & CStr(count) & "]=" & vbCr & _//ここから 10 "udeIds[" & CStr(count) & "]=" & vbCr & _ 11 "meIds[" & CStr(count) & "]=" & vbCr & _ 12 "kuchiIds[" & CStr(count) & "]=" & vbCr& _ 13 "<string name=""name" & CStr(count) & """//ここまで赤くなる 14 .Execute Replace:=wdReplaceOne 15End With 16Loop 17 18End Sub 19

ご覧いただければ分かると思いますが、置き換えのところが赤くなってしまうのです。
文法的にはあっているはずなのですが・・・なぜエラーが起きてしまうのでしょうか?

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

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

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

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

自己解決

すいません。私が書いた古いコードに解決策がありました。

VBA

1Sub base() 2 3Dim count As Integer 4count = 0 5 6With Selection.Find 7'ここで変数として0を入れようとすると 8'ループに入ったとき、何故か次を検索してくれない。 9.Text = "<string name=""name" 10.Replacement.Text = "baseI[" & CStr(count) & "]=" & "^p<string name=""name" 11.Execute Replace:=wdReplaceOne 12Do While .Execute 13count = count + 1 14.Replacement.Text = "base[" & CStr(count) & "]=" & "^p<string name=""name" 15.Execute Replace:=wdReplaceOne 16Loop 17End With 18End Sub 19

投稿2018/07/28 13:13

hood

総合スコア351

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

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

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問