0

我有一个在 Word 中打开的动态创建的文本框。我正在尝试为其提供 Word 2010 中的默认样式之一(“彩色填充,白色轮廓 - 重音 1),但是我无法找到执行此操作的代码。

以下是我到目前为止的内容,它创建并偏移了文本框:

oDoc = oWord.Documents.Add
Dim titleBanner As Word.Shape
titleBanner = oDoc.Shapes.AddTextbox(Microsoft.Office.Core.MsoTextOrientation.msoTextOrientationHorizontal, 81.0#, 20.5, 456.75, 24.75)
titleBanner.TextFrame.TextRange.Text = "This is a textbox!"
4

2 回答 2

1

看一眼

http://docx.codeplex.com/

您不需要使用 Com,它还允许您进行格式化

于 2012-05-29T00:30:28.710 回答
1

这是我所做的:

  1. 打开单词
  2. 开始录制宏
  3. 执行从我的文档中的颜色到我想要的颜色的查找和替换
  4. 停止录制宏
  5. 打开 VBA 宏
  6. 查找颜色的整数值
  7. 将以下示例语句中的 -738148353 替换为您的值:

    selection.Font.Color = (Microsoft.Office.Interop.Word.WdColor)(-738148353);

于 2012-08-06T14:22:19.060 回答