/// <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;
}
