ワード マクロ

質問

WORDについての質問です。

現在以下のマクロをツールバーのボタンに登録しています。

Sub Macro1()

Dim Para As Paragraph
For Each Para In ActiveDocument.Paragraphs '段落単位で
With Para.Range.Characters
If .First.Text Like "[tk]" Then '先頭を処理
.First.Delete
End If
End With
Next
End Sub

これによって各段落の頭にある「t」と「k」を消去する処理を行っています。

現在作成を試みているのは，上記の処理を行ったあとに，別の作業をしたあと，いったん消してしまった文頭の「t」「k」をやっぱり復活させたいという場合の処理です。
そのようなマクロを作成し，ツールバーのボタンに登録させたいのですが，うまくできません。
どなたか教えていただければ非常に助かります。
どうかよろしくお願いいたします。

回答No.2

enunokokoro · ベストアンサー

マクロについては不得意な分野なので、マクロを提示しての
アドバイスはできませんが。

段落先頭の文字を削除する処理の段階で、複数の文字を指定
していますので、そのままではどちらの文字を復活するのか
指定するのは難しいと思います（提示マクロではｔとk）。
処理の段落と関連した削除した文字を、どこかに保存させて
おかないと戻す処理もできませんよね？

そのような処理ができるのかは知りませんが、処理した段落
に目印となるものを設定しておけば、目印を対象に「t」または
「k」を文頭に挿入する処理で可能かもしれませんね。

例えば、「t」を削除した段落には[処理t ]スタイルを設定して、
「k」なら[処理k ]スタイルにするなどしておけば、復活をさせる
というよりも、そのスタイルに応じて文頭に指定文字を配置する
処理にすることで対応できます。

これなら、文書を閉じた後でも対応できますので、作業するのに
集中できると思います。

お礼

ご回答ありがとうございました。
質問してよかったです。

回答No.1

hallo-2007

＞別の作業をしたあと，いったん消してしまった文頭の「t」「k」をやっぱり復活させたいという場合の処理です。
これは、少し発想の転換が必要かと思います。
上記マクロ実行時にバックアップファイルを作成しておくしかないのではないでしょうか？
それでも、マクロ実行後に行った編集次第では、どこに　TKを復活させるかは判断させるのは
人の手でも難しいですよね。

マクロ実行前の状態でよければ、上書き保存を実行させるコードを追加するだけですが。

お礼

ご回答ありがとうございました。
大変参考になりました。