在vb.net中，向word表格填充数据时如何防止列宽变化

在vb.net中，当我将数据填充到现有word文档内的表中时，它会更改我在word文档中已设置的列宽

如何防止列宽变化

我使用以下代码：

Dim oWord As Word.Application
Dim oDoc As Word.Document
Dim oTable As Word.Table
oWord = CreateObject("Word.Application")
oWord.Visible = False
oDoc = oWord.Documents.Add(Application.StartupPath & "\Missed.docx")
oTable = oDoc.Tables.Item(2)
oTable.Cell(1, 1).Range.Text = "text here"
oTable.Cell(1, 2).Range.Text =  "text here"
oTable.Cell(1, 3).Range.Text =  "text here"
oTable.Cell(1, 4).Range.Text =  "text here"
oTable.Cell(1, 5).Range.Text =  "text here"
oDoc.SaveAs("FileName", Word.WdSaveFormat.wdFormatPDF)
oDoc = Nothing
oWord.Application.Quit(False)
oWord = Nothing

---

查看

oTable.AllowAutoFit

非常感谢您的帮助我以前尝试过，但没有成功，解决我的问题的方法是在word中编辑我的表格并禁用自动调整大小以适应表格中的内容我希望这是正确的解决方案，并且不会出现问题。您可以在word中录制宏，然后根据需要插入表格并设置其格式（以便列宽不会改变）。然后，您将能够看到要在代码中设置的属性（它所需要的只是将VBA转换为非常类似的VB.NET）。请查看

oTable.AllowAutoFit

非常感谢您的帮助，我以前尝试过，但没有成功，解决我的问题的方法是在word中编辑我的表格并禁用自动调整大小以适应表格中的内容我希望这是正确的解决方案，并且不会出现问题。您可以在word中录制宏，然后根据需要插入表格并设置其格式（以便列宽不会改变）。然后，您将能够看到要在代码中设置的属性（它所需要的只是将VBA转换为非常类似的VB.NET）。