13/01/21 13:32:59.53
>>666
そうか、これだけでよいのか
Sub test4()
Dim flg As Boolean
Dim myRng As Range
Options.AutoFormatAsYouTypeReplaceQuotes = False
Set myRng = ActiveDocument.Range(0, 0)
With myRng.Find
.Text = """"
Do While .Execute
flg = Not flg
myRng.Select
myRng.Collapse wdCollapseStart
If flg Then
.Replacement.Text = ChrW(&H201C)