3849
社区成员
100分跪求操作Word中的AddTextEffect函数参数设置方法
无语了，一点资料也查不到，好不容易通过模仿VBA的代码找到了Com接口中给Word加水印的这个方法，却比VBA里的这个函数多了最后一个参数，完全没办法了，求助。
CApplication app;
/*app的初始化省略*/
CSelection sel = app.get_Selection();
CHeaderFooter head = sel.get_HeaderFooter();
Cshapes shapes = head.get_Shapes();
shapes.AddTextEffect(27,L"水印文字",L"宋体",36,0,0,0,0,(VARIANT*)(NULL));
以下是MSDN中AddTextEffect函数的链接：
http://msdn.microsoft.com/zh-cn/site/microsoft.office.interop.word.shapes.addtexteffect
CApplication app;
/*app的初始化省略*/
CSelection sel = app.get_Selection();
CHeaderFooter head = sel.get_HeaderFooter();
Cshapes shapes = head.get_Shapes();
shapes.AddTextEffect(27,L"水印文字",L"宋体",36,0,0,0,0,(VARIANT*)(NULL));
以下是MSDN中AddTextEffect函数的链接：
http://msdn.microsoft.com/zh-cn/site/microsoft.office.interop.word.shapes.addtexteffect
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
a5796489 2011-10-11
楼上便宜你了
赵4老师 2011-09-28
AddTextEffect 方法
请参阅 应用于 示例 特性
创建艺术字对象。返回一个代表新艺术字对象的 Shape 对象。
expression.AddTextEffect(PresetTextEffect, Text, FontName, FontSize, FontBold, FontItalic, Left, Top)
expression 必选。该表达式返回“应用于”列表中的对象之一。
PresetTexture 必选。MsoPresetTexture 类型。预设的文本效果。
MsoPresetTextEffect 可以是下列 MsoPresetTextEffect 类型常数之一。
msoTextEffect1
msoTextEffect2
msoTextEffect3
msoTextEffect4
msoTextEffect5
msoTextEffect6
msoTextEffect7
msoTextEffect8
msoTextEffect9
msoTextEffect10
msoTextEffect11
msoTextEffect12
msoTextEffect13
msoTextEffect14
msoTextEffect15
msoTextEffect16
msoTextEffect17
msoTextEffect18
msoTextEffect19
msoTextEffect20
msoTextEffect21
msoTextEffect22
msoTextEffect23
msoTextEffect24
msoTextEffect25
msoTextEffect26
msoTextEffect27
msoTextEffect28
msoTextEffect29
msoTextEffect30
msoTextEffectMixed
Text 必选。String 类型。艺术字的文本。
FontName 必选。String 类型。艺术字中使用的字体名称。
FontSize 必选。Single 类型。艺术字中使用的字体大小（以磅为单位）。
FontBold 必选。MsoTriState 类型。确定艺术字中使用的字体是否设为粗体。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 将艺术字中的字体设为粗体。
FontItalic 必选。MsoTriState 类型。确定艺术字中使用的字体是否设为斜体。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 将艺术字中的字体设为斜体。
Left 必选。Single 类型。艺术字边界框左边缘相对于幻灯片左边缘的位置（以磅为单位）。
Top 必选。Single 类型。艺术字边界框上边缘相对于幻灯片上边缘的位置（以磅为单位）。
说明
在文档中添加艺术字时，艺术字的高度和宽度会根据指定文本的大小和数量自动调整。
示例
本示例在 myDocument 中添加包含文本“Test”的艺术字。
Set myDocument = ActivePresentation.Slides(1)
Set newWordArt = myDocument.Shapes _
.AddTextEffect(PresetTextEffect:=msoTextEffect1, _
Text:="Test", FontName:="Arial Black", FontSize:=36, _
FontBold:=msoFalse, FontItalic:=msoFalse, Left:=10, Top:=10)
请参阅 应用于 示例 特性
创建艺术字对象。返回一个代表新艺术字对象的 Shape 对象。
expression.AddTextEffect(PresetTextEffect, Text, FontName, FontSize, FontBold, FontItalic, Left, Top)
expression 必选。该表达式返回“应用于”列表中的对象之一。
PresetTexture 必选。MsoPresetTexture 类型。预设的文本效果。
MsoPresetTextEffect 可以是下列 MsoPresetTextEffect 类型常数之一。
msoTextEffect1
msoTextEffect2
msoTextEffect3
msoTextEffect4
msoTextEffect5
msoTextEffect6
msoTextEffect7
msoTextEffect8
msoTextEffect9
msoTextEffect10
msoTextEffect11
msoTextEffect12
msoTextEffect13
msoTextEffect14
msoTextEffect15
msoTextEffect16
msoTextEffect17
msoTextEffect18
msoTextEffect19
msoTextEffect20
msoTextEffect21
msoTextEffect22
msoTextEffect23
msoTextEffect24
msoTextEffect25
msoTextEffect26
msoTextEffect27
msoTextEffect28
msoTextEffect29
msoTextEffect30
msoTextEffectMixed
Text 必选。String 类型。艺术字的文本。
FontName 必选。String 类型。艺术字中使用的字体名称。
FontSize 必选。Single 类型。艺术字中使用的字体大小（以磅为单位）。
FontBold 必选。MsoTriState 类型。确定艺术字中使用的字体是否设为粗体。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 将艺术字中的字体设为粗体。
FontItalic 必选。MsoTriState 类型。确定艺术字中使用的字体是否设为斜体。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 将艺术字中的字体设为斜体。
Left 必选。Single 类型。艺术字边界框左边缘相对于幻灯片左边缘的位置（以磅为单位）。
Top 必选。Single 类型。艺术字边界框上边缘相对于幻灯片上边缘的位置（以磅为单位）。
说明
在文档中添加艺术字时，艺术字的高度和宽度会根据指定文本的大小和数量自动调整。
示例
本示例在 myDocument 中添加包含文本“Test”的艺术字。
Set myDocument = ActivePresentation.Slides(1)
Set newWordArt = myDocument.Shapes _
.AddTextEffect(PresetTextEffect:=msoTextEffect1, _
Text:="Test", FontName:="Arial Black", FontSize:=36, _
FontBold:=msoFalse, FontItalic:=msoFalse, Left:=10, Top:=10)
a5796489 2011-09-28
.............
a5796489 2011-09-28
MSDN上明明说最后一个参数为可选，于是我设为空指针，执行这行时报错
10年经验1张图-职业教育机构就业课程体系规划 10年经验一张图，资源包含一张详细的令人发指的思维导图（其中资源链接直接可以用），若干word文档、就业课ppt、简历模板等等资源，帮助企业老师解决就业课设计和实施问题。
【Matlab仿真】基于贝叶斯准则和最小平均错误概率准则的二元信号检测及性能分析 【Matlab仿真】基于贝叶斯准则和最小平均错误概率准则的二元信号检测及性能分析，通过观察检测概率和虚警概率随着检测门限的变化而变化
