OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

改行ごとの頭に空白を入れるには???

  • すぐに回答を!
  • 質問No.114188
  • 閲覧数53
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 67% (35/52)

以前、リンクさせた文字列を任意の位置で改行させたい…として質問をしたところ、
以下のようなマクロを作成してくださった方がいらっしゃいます。
私の説明が悪かったのですが、
1行目のみではなくて、改行ごとに,頭に1文字空白を入れたかったのですが、
どこをどのように直したら良いのか、教えてください。

'指定文字数で折り返し。(先頭に全角空白を挿入)
Public Function Orikaeshi(Bunsyo As String, ParamArray aryNagasa() As Variant)
Dim L As Integer 'カウンタ
Dim mojisuu As Integer '1行文字数
Dim wkBunsyo As String '処理用変数

Bunsyo = " " & Bunsyo
For L = 0 To UBound(aryNagasa())
If L = 0 Then
mojisuu = aryNagasa(L)
Else
mojisuu = aryNagasa(L) - aryNagasa(L - 1)
End If
wkBunsyo = wkBunsyo & Left(Bunsyo, mojisuu) & vbLf
Bunsyo = Mid(Bunsyo, mojisuu + 1)
Next
wkBunsyo = wkBunsyo & Bunsyo
Orikaeshi = wkBunsyo
End Function
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル13

ベストアンサー率 37% (368/973)

下から6行目を
wkBunsyo = wkBunsyo & Left(Bunsyo, mojisuu) & vbLf & " "
とすれば良いと思います。(行末に& " "を追加する)
試していないので違ってたらすみません。
お礼コメント
iillyy

お礼率 67% (35/52)

助かりました。
ありがとうございました。
投稿日時 - 2001-08-08 12:00:55
-PR-
-PR-
このQ&Aで解決しましたか?
-PR-
-PR-
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ