Dim data As New DataObject() data.SetData(形式1, 形式1のデータ) data.SetData(形式2, 形式2のデータ) data.SetData(形式3, 形式3のデータ) Clipboard.SetDataObject(data, True)
Dim objEq As Word.OMath '摂氏と華氏の変換式 objRange.Text = "Celsius=(5/9)(Fahrenheit-32)" Set objRange = objRange.OMaths.Add(objRange) Set objEq = objRange.OMaths(1) objEq.BuildUp
<?xml version="1.0" encoding="UTF-16"?> <mml:math xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:m="http://schemas.openxmlformats.org/officeDocument/2006/math"> <mml:mi mathvariant="normal">Celsius</mml:mi> <mml:mo>=</mml:mo> <mml:mfenced separators="|"> <mml:mrow> <mml:mfrac> <mml:mrow> <mml:mn>5</mml:mn> </mml:mrow> <mml:mrow> <mml:mn>9</mml:mn> </mml:mrow> </mml:mfrac> </mml:mrow> </mml:mfenced> <mml:mfenced separators="|"> <mml:mrow> <mml:mi mathvariant="normal">Fahrenheit</mml:mi> <mml:mo>-</mml:mo> <mml:mi mathvariant="normal">32</mml:mi> </mml:mrow> </mml:mfenced> </mml:math>
objRange.PasteSpecial , , , , WdPasteDataType.wdPasteText
objRange.PasteSpecial , , , , WdPasteDataType.wdPasteHTML