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

#pragma once


#define Word Microsoft::Office::Interop::Word

namespace 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 endregion
	private: 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;
			 }
	};
}

---

欢迎访问《许阳的红泥屋》