vba - VBA Word でテキストを一重引用符で囲む

Question

ms-word ドキュメント内の数字のリストをカンマで区切るために、次のコードを作成しました。ただし、各数値を単一の引用符で囲みたいと思っています。これはうまくいくのに苦労しています。最初の番号をラップすることはできましたが、他の番号に対しては実行できません。各番号の長さは 12 桁です。誰か助けてくれませんか？

Sub Macro1()

    With Selection
        .Find.Text = "^p"
        .Find.Replacement.Text = ","

        .Find.Execute Replace:=wdReplaceAll
        .TypeText Text:="'"
        .MoveRight Unit:=wdCharacter, Count:=12
        .TypeText Text:="'"

    End With

End Sub

score 0 · Accepted Answer

元のコードを作り直しましたが、これは大規模なデータセットに対して非常に高速に実行されます。コードの最初と最後にも括弧を追加しました。

サブテストN()

Options.AutoFormatAsYouTypeReplaceQuotes = False
'Replace the paragraph breaks with commas and single quotes
With ActiveDocument.Range(0, ActiveDocument.Range.End - 1).Find
    .Text = "^p"
    .Replacement.Text = "','"
    .Execute Replace:=wdReplaceAll
End With
Options.AutoFormatAsYouTypeReplaceQuotes = True
'Cap body of data with single quotes and brackets
ActiveDocument.Content.Text = "('" & ActiveDocument.Range(0, ActiveDocument.Range.End - 1).Text & "')"

サブ終了

score 0 · Accepted Answer

変換を With ブロックの外に移動する必要があると思います。

私は Word VBA の専門家ではないので、これはキーボード入力を複製するのではなく、一般的な文字列関数を使用するアプローチです。したがって、同じタスクを達成するためのさまざまなアプローチがある可能性があります:)これが「正しい」方法であると思います。これは、「入力」を模倣するのではなく、オブジェクトを直接操作することが一般的に推奨されるためです。

テキストを物理的に「選択」する必要がないように修正

注: これはドキュメント内のすべてのテキストを使用するため、変更が必要になる場合があります。

Sub Test()
Dim doc As Document
Dim arr As Variant
Dim txtRange As Range
Dim i As Long

Set doc = ActiveDocument
Set txtRange = doc.Range(0, doc.Characters.Count)

'First, replace the paragraph breaks with commas
With txtRange.Find
    .Text = "^p"
    .Replacement.Text = ","
    .Execute Replace:=wdReplaceAll
End With


arr = Split(Left(txtRange.Text, Len(txtRange.Text) - 1), ",")

For i = LBound(arr) To UBound(arr)
    arr(i) = "'" & arr(i) & "'"
Next

txtRange.Text = Join(arr, ",")

End Sub

コメントから更新

これが機能していることを完全に確認しました。コードが正しく実装されていることを再確認してください。あなたの説明を満たすテキストの例を次に示します。

ここに画像の説明を入力