Word (VBA)

Word VBAに関するフォーラムです。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(指定なし : 指定なし)
変更履歴に下線を引きたい
投稿日時: 18/05/31 16:29:18
投稿者: qwe1211

変更履歴に下線を引くために、以下のようなコードを書いたのですが、
変更履歴の数が増えるとだんだんおそくなり、100をこえると、1つの処理に1秒以上かかってしまうという状況です。
 
Sub samplecode()
    Set myDoc = ActiveDocument
     
    kazu = ActiveDocument.Revisions.Count
    For i = 1 To kazu
         With ActiveDocument.Revisions(i)
            .Range.Underline = wdUnderlineSingle
         End With
    Next i
End Sub
 
すべての変更履歴の箇所を一括で選択して、下線を引くような処理ができればいいと考えて、
ActiveDocument.Revisions.Range.Underline = wdUnderlineSingleのようにやってみましたが、
RevisionsのプロパティにはRangeが存在しないといわれてしまいます。
 
何かいい方法をご存知の方がいれば、お力を貸していただければ幸いです。

回答
投稿日時: 18/05/31 17:38:49
投稿者: sk

引用:
変更履歴に下線を引くために、以下のようなコードを書いたのですが

[変更箇所/コメントの表示]を行なえば済む問題なのではないでしょうか。
 
少なくとも、「テキストに下線書式を設定する」というのも
文書に対する変更に違いないわけで、結果として更に
変更履歴が追加されることになるわけですから、
正直あまり良いやり方であるようには思えません。

投稿日時: 18/06/04 20:24:16
投稿者: qwe1211

sk さんの引用:
引用:
変更履歴に下線を引くために、以下のようなコードを書いたのですが

[変更箇所/コメントの表示]を行なえば済む問題なのではないでしょうか。
 
少なくとも、「テキストに下線書式を設定する」というのも
文書に対する変更に違いないわけで、結果として更に
変更履歴が追加されることになるわけですから、
正直あまり良いやり方であるようには思えません。

 
コメントありがとうございます。
最終版の状態で、どこが追記されたのが見たいのです。
[変更箇所/コメントの表示]だと、削除箇所と追記箇所の両方が表示されてしまうので、
追記箇所に下線を引いて、最終版の状態で修正内容に問題がないかを確認したいのです。
[変更箇所/コメントなし]にすると、どこを追記したのか分からないので、
そこを下線や蛍光ペンでマーキングしたのですが、動作が遅くて困っています。

回答
投稿日時: 18/06/05 09:36:08
投稿者: sk

引用:
最終版の状態で、どこが追記されたのが見たいのです。
[変更箇所/コメントの表示]だと、削除箇所と追記箇所の両方が表示されてしまうので、
追記箇所に下線を引いて、最終版の状態で修正内容に問題がないかを確認したいのです。

(何故に削除された箇所を無視してもよいのか、理由がよく分かりませんが)
「削除された箇所を表示させないようにする」ことが主目的なのであれば、
変更履歴オプションを開いて[削除された箇所]オプションを「隠し文字」に
設定なさればよろしいのではないでしょうか。

投稿日時: 18/06/08 11:48:05
投稿者: qwe1211

sk さんの引用:
引用:
最終版の状態で、どこが追記されたのが見たいのです。
[変更箇所/コメントの表示]だと、削除箇所と追記箇所の両方が表示されてしまうので、
追記箇所に下線を引いて、最終版の状態で修正内容に問題がないかを確認したいのです。

(何故に削除された箇所を無視してもよいのか、理由がよく分かりませんが)
「削除された箇所を表示させないようにする」ことが主目的なのであれば、
変更履歴オプションを開いて[削除された箇所]オプションを「隠し文字」に
設定なさればよろしいのではないでしょうか。

 
ありがとうございます。
参考にさせて頂きます。

トピックに返信