###テキストが置き換えられない
タイトル通りです。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
ご覧いただければ分かると思いますが、置き換えのところが赤くなってしまうのです。
文法的にはあっているはずなのですが・・・なぜエラーが起きてしまうのでしょうか?
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。