代码之家 › 专栏 › 技术社区 › Kevin

VBA Word向主标题添加现有形状

ms-word vba

Kevin · 技术社区 · 6 年前

用于在头中创建形状的常规代码(添加和创建操作合并到一个API“Add shape”)中:

Set hf = doc.Sections(1).Footers(wdHeaderFooterPrimary)
Set shp = hf.shapes.AddShape(msoShapeRectangle, 0, 0, 50, 50)

我宁愿这样做(伪代码):

Set hf = doc.Sections(1).Footers(wdHeaderFooterPrimary)
Set shp = MyFunctionForBuildingAShapeThatIAlreadyUseElseWhere
hf.Shapes.Add(shp)

1 回复 | 直到 6 年前

macropod 6 年前

因为它是相同的形状,只需指向原始的锚并使用.FormattedText方法在头中复制它。例如:

Dim doc As Document, Rng As Range
Set doc = ActiveDocument
With doc
  Set Rng = .Sections(1).Headers(wdHeaderFooterPrimary).Range
  Rng.Collapse wdCollapseStart
  Rng.FormattedText = .Shapes(1).Anchor.FormattedText
End With

推荐文章

Tim Dol · Word VSO获取Office URI方案设置的默认存储位置

3 年前

Jonathan L · Mailmerge-单个PDF-前2行不是标题

3 年前

Saxman · 在允许VBA的同时限制Word文档

7 年前

Shabaz · 在Word文档中的(单引号/双引号)之间搜索文本

7 年前

dieKoderin · 使用vba编辑Microsoft Word标题中的定位点位置

7 年前

SlowLearner · MS Word是否具有与ExecuteExcel4Macro等效的

7 年前

Ratilius · Excel Vba to Word:如何将页码写入文本框?

7 年前

plaene · 在VBA中搜索特定的Word文档选择

7 年前

Walid Abdelal · 预格式化字符串的在线插入

7 年前

simplify · 从WORD表格VBA获取公式值

7 年前