用CLR C++ 创建一个Word文档并画一张带表格线的表

#pragma once#define Word Microsoft::Office::Interop::Wordnamespace WordTableBoards {using namespace System;using namespace System::ComponentModel;using namespace System::Collections;using namespace System::Windows::Forms;using namespace System::Data;using namespace System::Drawing;/// <summary>/// Summary for Form1/// </summary>public ref class Form1 : public System::Windows::Forms::Form{public:Form1(void){InitializeComponent();////TODO: Add the constructor code here//}protected:/// <summary>/// Clean up any resources being used./// </summary>~Form1(){if (components){delete components;}}private: System::Windows::Forms::Button^  button1;protected: private:/// <summary>/// Required designer variable./// </summary>System::ComponentModel::Container ^components;#pragma region Windows Form Designer generated code/// <summary>/// Required method for Designer support - do not modify/// the contents of this method with the code editor./// </summary>void InitializeComponent(void){this->button1 = (gcnew System::Windows::Forms::Button());this->SuspendLayout();// // button1// this->button1->Location = System::Drawing::Point(278, 13);this->button1->Name = L"button1";this->button1->Size = System::Drawing::Size(75, 23);this->button1->TabIndex = 0;this->button1->Text = L"button1";this->button1->UseVisualStyleBackColor = true;this->button1->Click += gcnew System::EventHandler(this, &Form1::button1_Click);// // Form1// this->AutoScaleDimensions = System::Drawing::SizeF(6, 13);this->AutoScaleMode = System::Windows::Forms::AutoScaleMode::Font;this->ClientSize = System::Drawing::Size(672, 67);this->Controls->Add(this->button1);this->Name = L"Form1";this->Text = L"Form1";this->ResumeLayout(false);}#pragma endregionprivate: System::Void button1_Click(System::Object^  sender, System::EventArgs^  e) { Word::Application^ wdApp = gcnew Word::Application(); wdApp->Visible = true; Object^ missing = Type::Missing; Word::Document^ wdDoc = wdApp->Documents->Add(missing,missing,missing,missing); Word::Selection^ wdSelection = wdApp->Selection; Word::Table^ wdTable = wdSelection->Tables->Add(wdSelection->Range,3,4,missing,missing); wdTable->Borders[Word::WdBorderType::wdBorderHorizontal]->LineStyle = Word::WdLineStyle::wdLineStyleSingle; wdTable->Borders[Word::WdBorderType::wdBorderVertical]->LineStyle = Word::WdLineStyle::wdLineStyleSingle; wdTable->Borders[Word::WdBorderType::wdBorderTop]->LineStyle = Word::WdLineStyle::wdLineStyleSingle; wdTable->Borders[Word::WdBorderType::wdBorderRight]->LineStyle = Word::WdLineStyle::wdLineStyleSingle; wdTable->Borders[Word::WdBorderType::wdBorderLeft]->LineStyle = Word::WdLineStyle::wdLineStyleSingle; wdTable->Borders[Word::WdBorderType::wdBorderBottom]->LineStyle = Word::WdLineStyle::wdLineStyleSingle; }};}