This question shows research effort; it is useful and clear
0
This question does not show any research effort; it is unclear or not useful
Bookmark this question.
Show activity on this post.
例如:
For Each mytemplate In Templates
If mytemplate.Name = "Normal.dotx" Then _
mytemplate.BuildingBlockEntries("Leeg").Insert Where:=Selection.Range, RichText:=True
Next