/// <summary> /// 指定された改訂箇所に改訂線を引く。 /// </summary> /// <param name="pos">改訂箇所</param> /// <param name="shapes">改訂線を引くシェイプ</param> protected static void paintLine(RevPos pos, Word.Shapes shapes) { float left = pos.fRange.Document.PageSetup.PageWidth - pos.fRange.Document.PageSetup.RightMargin + 10.0F; //改訂線追加 Word.Shape line = shapes.AddLine(left, pos.fStart.fHeight, left, pos.fEnd.fHeight); line.Line.ForeColor.RGB = System.Drawing.Color.Black.ToArgb(); //改訂記号追加 Word.Shape textBox = shapes.AddTextbox( Microsoft.Office.Core.MsoTextOrientation.msoTextOrientationHorizontal, left, pos.fStart.fHeight, 20, 20); textBox.Line.Visible = Microsoft.Office.Core.MsoTriState.msoFalse; textBox.Fill.Visible = Microsoft.Office.Core.MsoTriState.msoFalse; textBox.TextFrame.TextRange.Text = fRevMark; textBox.TextFrame.TextRange.Font.ColorIndex = Word.WdColorIndex.wdBlack; }