Powerpoint VBA 数式を書く④ オートコレクト部分の改善 - インストールレスプログラミング( ´ー`)

chemiphys.hateblo.jp

もうすぐAM3:30 一日中何やってんだか(;´▽｀A``

休みならではのこだわりとして，あきらめよう。

数式関連，ちらつきを抑えるために，WordのOMathを使うことをやはり考えました。コレデイコウ。

はまった理由が情けない話でしたが，なんとか見れるものになったので，動きを載せます。

f:id:chemiphys:20170219032352g:plain

ちらつかないです!

というか，けっこう早い段階である程度のところまで来ていて，√　の処理ができないことにものすごく悩んでいました。

問題点が違っただけで，全く違うところを悩んでいた。

とりあえずコードを載せます。表示していないWordを終了させるタイミング等は今度考える。

標準モジュール

Option Explicit
Public WDDocument As Word.Document
Sub test()

    Dim WDApp As Word.Application

    Set WDApp = New Word.Application
    'WDApp.Visible = True
    Set WDDocument = WDApp.Documents.Add
    ActivePresentation.SlideShowSettings.Run
    SlideShowWindows(1).View.PointerType = ppSlideShowPointerArrow
End Sub

Slide 1 のモジュール

Option Explicit

Private Sub TextBox1_Change()
    Dim WDRange As Word.Range
    Set WDRange = WDDocument.Range
    
    WDRange.Text = Replace(TextBox1.Text, "\sqrt ", "√")
    Call WDDocument.OMaths.Add(WDRange)
    Dim MathObj As Word.OMath
    
    Set MathObj = WDDocument.OMaths(1)
    WDDocument.OMaths(1).BuildUp
    WDRange.Copy
    Slide1.Shapes("数式").TextFrame.TextRange.Paste
End Sub