使用VSTO自动生成word文档

最近第一次用VSTO（Visual Studio Tools For Office），写了一个自动生成word报告的小程序，感觉VSTO非常难用。主要是对office对象模型不熟悉，不理解很多类、方法、属性的含义，word里面很简单的操作却不知道如何找到相应的类和方法去实现。在VS里面没办法直接看到VSTO的注释，查MSDN又很不方便。后来总算是找到了一个相对快捷的方法，其实VBA和VSTO使用的是一套对象模型，只要把需要实现的操作录制成宏，对照着VBA的代码就很容易写出相应的C#程序了。

下面举几个小例子。

输入标题：在当前光标处插入一段文字并设置成Heading 1样式，居中

在VBA中录制的宏如下：

Selection.TypeText　Text:="Test　Title"
Selection.Style　=　ActiveDocument.Styles("Heading　1")
Selection.ParagraphFormat.Alignment　=　wdAlignParagraphCenter
Selection.TypeParagraph

相应的C#代码：

//因为set_Style()要求传ref　object参数，所以不能直接传string
object　style_Heading1　=　"Heading　1";
WordApp　=　new　ApplicationClass();
WordApp.Selection.TypeText("Test　Title");
//设置样式
WordApp.Selection.ParagraphFormat.set_Style(ref　style_Heading1);
//居中
WordApp.Selection.ParagraphFormat.Alignment　=　WdParagraphAlignment.wdAlignParagraphCenter;
//换行
WordApp.Selection.TypeParagraph();

插入一个三行两列的表格，在第一行第一列填入今天的日期，设置样式，根据内容自动调整，去掉标题行

VBA：

ActiveDocument.Tables.Add　Range:=Selection.Range,　NumRows:=3,　NumColumns:=　_
2,　DefaultTableBehavior:=wdWord9TableBehavior,　AutoFitBehavior:=　_
wdAutoFitFixed
With　Selection.Tables(1)
If　.Style　<>　"Table　Grid"　Then
.Style　=　"Table　Grid"
End　If
.ApplyStyleHeadingRows　=　True
.ApplyStyleLastRow　=　False
.ApplyStyleFirstColumn　=　True
.ApplyStyleLastColumn　=　False
.ApplyStyleRowBands　=　True
.ApplyStyleColumnBands　=　False
End　With
Selection.Tables(1).Style　=　"Medium　Shading　1　-　Accent　5"
Selection.Tables(1).ApplyStyleHeadingRows　=　Not　Selection.Tables(1).　_
ApplyStyleHeadingRows
Selection.InsertDateTime　DateTimeFormat:="M/d/yyyy",　InsertAsField:=False,　_
DateLanguage:=wdEnglishUS,　CalendarType:=wdCalendarWestern,　_
InsertAsFullWidth:=False
Selection.Tables(1).AutoFitBehavior　(wdAutoFitContent)