質問: non & <#>としてみましたが、<#>がそのまま表示されてしまいました。 ### 補足情報(FW/ツールのバージョンなど) PowerPoint Office365
回答: > > InsertSlideNumber メソッド (PowerPoint) | Microsoft Docs > > > を使用すれば、`スライドマスタで「スライド番号」を表す「<#>」というフィールドをテキストボックスに入れる`に関しては解決すると思います。 ``` Sub スライドマスタにノンブル2() ''スライドマスタに任意の文章つきのページ番号を入れたい '' Dim pres As PowerPoint.Presentation Set pres = ActivePresentation '1ページ目の"スライド番号"から始まるテキストボックスに固有名が入っているので 'それを取得しています Dim shp As PowerPoint.Shape Dim non As String For Each shp In pres.Slides.Item(1).Shapes If Left(shp.Name, 6) = "スライド番号" Then non = shp.TextFrame.TextRange.Text non = Replace(non, "P1", "P") '1を削除 shp.TextFrame.TextRange.Text = non shp.Copy 'テキストボックスコピー Exit For End If Next shp Dim mas As PowerPoint.Master Set mas = pres.SlideMaster 'スライドマスタのシェイプ全削除 ''実際のファイルの状態にもよるけどちょっと乱暴な気がする Call mas.Shapes.Range().Delete 'さっきコピーしたものを貼り付け Dim newshp As PowerPoint.ShapeRange '貼り付けたものはshaperangeになるので Set newshp = mas.Shapes.Paste() ''https://docs.microsoft.com/ja-jp/office/vba/api/powerpoint.textrange.insertslidenumber newshp.Item(1).TextFrame.TextRange.InsertSlideNumber End Sub ```