Question

我正在尝试创建一个按钮来清除.docm文件中的所有activex复选框，但似乎无济于事。我在论坛上看到了很多帖子，但似乎都没有用。谁能帮我？观察：原始文件至少有30个复选框，我不想键入所有复选框名称。请参阅下面的代码和随附的示例文件

Ps .：我尝试过ThisDocument.Fields; Me.Control和许多其他人。

请参见所附图片作为示例：ActiveX CheckBox

Private Sub CommandButton1_Click()
Dim Ctl As MSForms.Control

    For Each Ctl In ThisDocument.FormFields
        If Ctl.Name = "CheckBox" Then Ctl.Value = False
    Next Ctl
End Sub

Answer 1

经过多次测试，下面的代码解决了我的问题：

    items: any;

    constructor(db: AngularFireDatabase) {
        db.list(`/users/`).snapshotChanges()
            .subscribe(o => { this.items = o; console.log(o) });
    }

    <div *ngFor="let item of items;">
        Items: {{item.key}}
        <p *ngFor="let device of item;">{{device.name}}</p>
    </div>

VBa清除Word文档中的所有Activex复选框

1 个答案: