Excel VBA 質問スレ Part80(ﾜｯﾁｮｲあり) (99ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん
23: デフォルトの名無しさん (ﾜｯﾁｮｲ 9f45-zqCT) [sage] 2024/03/05(火) 15:19:55.05 ID:lrAkKyth0(1) AAS
>>22
22(1): デフォルトの名無しさん (ﾜｯﾁｮｲ 1b56-AA/x) [sage] 2024/03/03(日) 09:38:35.96 ID:nYZbKW3u0(1) AAS
セル内に改行付きで入ってる文字列をWordファイルの指定のセルに転記させたいです。
当初差し込み印刷でやろうとしたんですが改行が消えてしまって…
具体的な用途がわからないけど、文書内の表のセルにただ入力したいだけなら文字列で書き込めばいいんじゃないかな

Sub 文書内のセルに転記()

Dim str As String
str = Cells(1, 1).Value

Dim doc As Object, i As Long

Set doc = Documents.Open(ThisWorkbook.Path & "\文書1.docm")

doc.Tables(1).Cell(1, 1).Range.Text = str
End Sub
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.456s*