次の方法で共有

Document.Undo メソッド (Publisher)

  • [アーティクル]

Undoes the last action or a specified number of actions. 標準ツール バーの [元に戻す] ボタンの横にある矢印を選択したときに表示される項目の一覧に対応します。

構文

式。元に戻す (カウント)

式Document オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
Count 省略可能 長整数型 (Long) 元に戻す操作の数を指定します。 既定値は 1 で、省略した場合、最後の操作だけが元に戻されます。

注釈

元に戻すスタックに対するアクションがない場合、または Count がスタックに存在するアクションの数を超えたときに呼び出された場合、 Undo メソッドは可能な限り多くのアクションを元に戻し、残りの操作を無視します。

1 回の Undo メソッドの呼び出しで、最大 20 個の操作を元に戻すことができます。

例

次の例では、 Undo メソッドを使用して、特定の条件を満たしていない操作を元に戻します。

使用例のパート 1 では、作業中の文書の 4 ページ目に四角形の吹き出しの図形を追加し、その吹き出しにテキストを追加しています。 この処理では、3 つの操作が作成されます。

例のパート 2 では、引き出し線を追加するテキストのフォントが Verdana であるかどうかをテストします。 それ以外の場合は、 Undo メソッドを使用して使用可能なすべてのアクションを元に戻します ( UndoActionsAvailable プロパティの値を使用して、すべてのアクションを元に戻すよう指定します)。 これは、スタックからのすべてのアクションを削除します。 次に、新しい四角形の図形とテキスト フレームが追加され、テキスト フレームに Verdana テキストが設定されます。

Dim thePage As page 
Dim theShape As Shape 
Dim theDoc As Publisher.Document 
 
Set theDoc = ActiveDocument 
Set thePage = theDoc.Pages(4) 
 
With theDoc 
 ' Part 1 
 With thePage 
 ' Setting the shape creates the first action 
 Set theShape = .Shapes.AddShape(msoShapeRectangularCallout, _ 
 75, 75, 120, 30) 
 ' Setting the text range creates the second action 
 With theShape.TextFrame.TextRange 
 ' Setting the text creates the third action 
 .Text = "This text is not Verdana." 
 End With 
 End With 
 
 ' Part 2 
 If Not thePage.Shapes(1).TextFrame.TextRange.Font.Name = "Verdana" Then 
 ' UndoActionsAvailable = 3 
 .Undo (.UndoActionsAvailable) 
 With thePage 
 Set theShape = .Shapes.AddShape(msoShapeRectangle, _ 
 75, 75, 120, 30) 
 With theShape.TextFrame.TextRange 
 .Font.Name = "Verdana" 
 .Text = "This text is Verdana." 
 End With 
 End With 
 End If 
End With

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。