VBAで
実行時エラー´5854´ 文字列型パラメーターが長すぎます。というエラーが出ました。
解決方法を教えてください。
Sub メイン()
For i = 4 To 16
If Cells(i, 2) = "〇" Then
文 = 文 & Cells(i + 1, 3) & vbCr & vbCr
End If
Next
For i = 4 To 16
If Cells(i, 6) = "〇" Then
文 = 文 & Cells(i + 1, 7) & vbCr & vbCr
End If
Next
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Set wdApp = New Word.Application
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Open("C:\Users\テンプレート.docx", ReadOnly:=True)
Dim objFind As Word.Find
Set objFind = wdApp.Selection.Find
objFind.Text = "≪当て込み≫"
objFind.Replacement.Text = 文
Call objFind.Execute(Replace:=Word.wdReplaceAll)
End Sub
宜しくお願いします。
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
Wordなどに組み込むVBAでしょうか?
次のページに
メインとなる部分で置換後の文字列が255文字を超えるとエラーになり、対処方法が記載されてます
https://stabucky.com/wp/archives/6675
Mbasicをスタンドアロンで囓っただけの若輩・・m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
夏が終わったと感じる瞬間って、どんな時?
まだまだ暑い今日この頃。 しかしながら、もう夏は終わっている!……はず。 あなたが思う「夏が終わった!」エピソードを教えてください。
-
【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
2024年は「名探偵コナン30周年」「涼宮ハルヒ20周年」などを迎えますが、 あなたが「もうそんなに!?」と驚いた○○周年を教えてください。
-
ホテルを選ぶとき、これだけは譲れない条件TOP3は?
ホテルを探す時、予約サイトで希望条件の絞り込みができる便利な世の中。 あなたは宿泊先を決めるとき「これだけは譲れない」と思う条件TOP3を教えてください。
-
昨日見た夢を教えて下さい
たまにすごいドラマチックな夢見ること、ありませんか? 起きてからも妙に記憶に残っているような、そんな夢。
-
「お昼の放送」の思い出
小学校から中学校、ところによっては高校まで お昼休みに校内放送で、放送委員が音楽とかおしゃべりとか流してましたよね。 最近は自分でもラジオができるようになって、そのクオリティもすごいことになっていると聞きます。
-
VBAで文字を反映させると255文字の制限になってしまいます。
Visual Basic(VBA)
-
Replace関数は文字数の制限あるのでしょうか?
Visual Basic(VBA)
-
変数に256文字以上のテキストを格納したい
Visual Basic(VBA)
-
-
4
【VBA】エクセルの指定セルの値を、Wordの指定場所に貼る方法
Excel(エクセル)
-
5
WordVBA 置換処理での改行文字の可否
その他(Microsoft Office)
-
6
入力規則のリスト選択
Visual Basic(VBA)
-
7
VBAで既に開いている別アプリケーションのオブジェクトを得る
Visual Basic(VBA)
-
8
EXCEL VBAにて、WORDへ置換
Word(ワード)
-
9
エクセルVBAで以下のようなコードを書いたらエラーになりました。何処が間違っているの教えて?
Visual Basic(VBA)
-
10
【VBA】マクロの入ったファイルと同じフォルダに,出力したファイルを保存するコードについて
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
実行時エラー 438 の解決策をお...
-
python初心者です。
-
VBAで変数を含むSQL文を使用し...
-
VBScript でのformat
-
Excel vbaについての質問
-
paizaで下記コードを提出すると...
-
VBA処理中に途中で止まってしま...
-
VBスクリプトでIEの404 not fou...
-
転記したデータを基にして検索...
-
(perl)プログラムの先頭に記述...
-
VBAでfunctionを利用しようとし...
-
visualstudio2019 C#で数字を入...
-
マクロで"#N/A"のエラー行を削...
-
VBAで時間(00:00形式)を積算...
-
On ErrorでエラーNoが0
-
ACCESS VBAのSplit()関数の使用...
-
エクセルVBAで#N/Aのようなエ...
-
ApplicationとWorksheetFunctio...
-
コンボボックスの特定項目だけ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
VBAでfunctionを利用しようとし...
-
String""から型'Double'への変...
-
お助けください!VBAのファイル...
-
文字列内で括弧を使うには
-
On ErrorでエラーNoが0
-
【VBA】ワークブックを開く時に...
-
実行時エラー'-2147467259(8000...
-
マクロで"#N/A"のエラー行を削...
-
【VBAエラー】Nextに対するFor...
-
インポート時のエラー「データ...
-
Excel vbaについての質問
-
実行時エラー 438 の解決策をお...
-
「実行時エラー '3167' レコー...
-
【Access】Excelインポート時に...
-
VBA データ(特定値)のある最...
-
フランスの生年月日(jj/mm/aaaa)
-
Excel実行時エラー[80004005]に...
-
ACCESSで値を代入できないとは?
-
pythonのopenpyxlについて
おすすめ情報
すみません、
Excel vbaに書いてあるものです。
どこにコピペすればいいかも教えてください。
よろしくお願いします。