office-gobmx/sw/Library_vbaswobj.mk
Justin Luth 432e5e6e33 tdf#151548 vba ContentControls: Add word::XContentControlListEntry
make CppunitTest_sw_macros_test CPPUNIT_TEST_NAME=testVba

This now allows MS Word's modern content control list boxes
(combobox and dropbox) to be controlled by VBA basic.
-allows getting and setting the selected list entry
-allows adding/deleting/renaming/moving list entries

  If .DropdownListEntries.Count <> 3 Then GoTo errorhandler:
  .DropdownListEntries.Item(2).Select
  .DropdownListEntries.Item(2).Delete

  If .DropdownListEntries.Item(2).Text <> "infinity"
  If .DropdownListEntries.Item(2).Value <> "infinity and beyond"

  'With .DropdownListEntries.Add("third", "3rd", 2)
  Dim LE As ContentControlListEntry
  Set LE = .DropdownListEntries.Add("third", "3rd", 2)
  With LE
    If LE.Index <> 2 Then GoTo errorhandler:
    If LE.Value <> "3rd" Then GoTo errorhandler:
    .MoveUp
    .MoveUp
    .MoveUp
    If .Index <> 1 Then GoTo errorhandler:
    .MoveDown
    .MoveDown
    If .Index <> 3 Then GoTo errorhandler:
    End With 'LE
  If .DropdownListEntries.Item(3).Text <> "third" Then GoTo errorhandler:
  End With 'Item 1
runOnceDropDown:

With ActiveDocument.ContentControls.Item(4)
  If .Type <> wdContentControlComboBox Then GoTo errorhandler:
  .DropdownListEntries.Clear
End With

Change-Id: Iffebb2bd69abec1cbcfaed05b58f940664852eae
Reviewed-on: https://gerrit.libreoffice.org/c/core/+/143082
Tested-by: Jenkins
Reviewed-by: Justin Luth <jluth@mail.com>
Reviewed-by: Miklos Vajna <vmiklos@collabora.com>
2022-11-25 18:09:32 +01:00

154 lines
4.8 KiB
Makefile

# -*- Mode: makefile-gmake; tab-width: 4; indent-tabs-mode: t -*-
#
# This file is part of the LibreOffice project.
#
# This Source Code Form is subject to the terms of the Mozilla Public
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
#
# This file incorporates work covered by the following license notice:
#
# Licensed to the Apache Software Foundation (ASF) under one or more
# contributor license agreements. See the NOTICE file distributed
# with this work for additional information regarding copyright
# ownership. The ASF licenses this file to you under the Apache
# License, Version 2.0 (the "License"); you may not use this file
# except in compliance with the License. You may obtain a copy of
# the License at http://www.apache.org/licenses/LICENSE-2.0 .
#
$(eval $(call gb_Library_Library,vbaswobj))
$(eval $(call gb_Library_set_componentfile,vbaswobj,sw/util/vbaswobj,services))
$(eval $(call gb_Library_set_precompiled_header,vbaswobj,sw/inc/pch/precompiled_vbaswobj))
$(eval $(call gb_Library_use_custom_headers,vbaswobj,\
officecfg/registry \
))
$(eval $(call gb_Library_set_include,vbaswobj,\
-I$(SRCDIR)/sw/source/uibase/inc \
-I$(SRCDIR)/sw/inc \
$$(INCLUDE) \
))
$(eval $(call gb_Library_use_api,vbaswobj,\
udkapi \
offapi \
oovbaapi \
))
$(eval $(call gb_Library_use_libraries,vbaswobj,\
comphelper \
cppu \
cppuhelper \
editeng \
i18nlangtag \
sal \
sb \
sfx \
svl \
svt \
svx \
svxcore \
sw \
tk \
tl \
utl \
$(call gb_Helper_optional,SCRIPTING, \
vbahelper) \
vcl \
))
$(eval $(call gb_Library_use_externals,vbaswobj,\
boost_headers \
libxml2 \
))
$(eval $(call gb_Library_add_exception_objects,vbaswobj,\
sw/source/ui/vba/vbarange \
sw/source/ui/vba/vbacell \
sw/source/ui/vba/vbacells \
sw/source/ui/vba/vbacolumn \
sw/source/ui/vba/vbacolumns \
sw/source/ui/vba/vbacontentcontrol \
sw/source/ui/vba/vbacontentcontrols \
sw/source/ui/vba/vbacontentcontrollistentry \
sw/source/ui/vba/vbacontentcontrollistentries \
sw/source/ui/vba/vbaformfield \
sw/source/ui/vba/vbaformfields \
sw/source/ui/vba/vbaformfieldcheckbox \
sw/source/ui/vba/vbaformfielddropdown \
sw/source/ui/vba/vbaformfielddropdownlistentries \
sw/source/ui/vba/vbaformfielddropdownlistentry \
sw/source/ui/vba/vbaformfieldtextinput \
sw/source/ui/vba/vbaframe \
sw/source/ui/vba/vbaframes \
sw/source/ui/vba/vbalistformat \
sw/source/ui/vba/vbalistgallery \
sw/source/ui/vba/vbalistgalleries \
sw/source/ui/vba/vbalisthelper \
sw/source/ui/vba/vbalistlevel \
sw/source/ui/vba/vbalistlevels \
sw/source/ui/vba/vbalisttemplate \
sw/source/ui/vba/vbalisttemplates \
sw/source/ui/vba/vbamailmerge \
sw/source/ui/vba/vbarevision \
sw/source/ui/vba/vbarevisions \
sw/source/ui/vba/vbarow \
sw/source/ui/vba/vbarows \
sw/source/ui/vba/vbadocument \
sw/source/ui/vba/vbasections \
sw/source/ui/vba/vbadialog \
sw/source/ui/vba/vbawrapformat \
sw/source/ui/vba/vbafont \
sw/source/ui/vba/vbarangehelper \
sw/source/ui/vba/vbaaddin \
sw/source/ui/vba/vbaautotextentry \
sw/source/ui/vba/vbadocumentproperties \
sw/source/ui/vba/vbaeventshelper \
sw/source/ui/vba/vbastyle \
sw/source/ui/vba/vbapane \
sw/source/ui/vba/vbaglobals \
sw/source/ui/vba/vbatemplate \
sw/source/ui/vba/vbaaddins \
sw/source/ui/vba/vbaview \
sw/source/ui/vba/vbaheaderfooter \
sw/source/ui/vba/vbaheadersfooters \
sw/source/ui/vba/vbaheaderfooterhelper \
sw/source/ui/vba/vbabookmarks \
sw/source/ui/vba/vbaoptions \
sw/source/ui/vba/vbadialogs \
sw/source/ui/vba/vbapalette \
sw/source/ui/vba/vbaparagraph \
sw/source/ui/vba/vbafind \
sw/source/ui/vba/vbasection \
sw/source/ui/vba/vbabookmark \
sw/source/ui/vba/vbaapplication \
sw/source/ui/vba/vbawindow \
sw/source/ui/vba/vbareplacement \
sw/source/ui/vba/vbatable \
sw/source/ui/vba/vbatablehelper \
sw/source/ui/vba/vbatabstop \
sw/source/ui/vba/vbatabstops \
sw/source/ui/vba/vbaselection \
sw/source/ui/vba/vbasystem \
sw/source/ui/vba/vbainformationhelper \
sw/source/ui/vba/vbapagesetup \
sw/source/ui/vba/vbafield \
sw/source/ui/vba/vbatables \
sw/source/ui/vba/vbatableofcontents \
sw/source/ui/vba/vbatablesofcontents \
sw/source/ui/vba/vbavariable \
sw/source/ui/vba/vbawordbasic \
sw/source/ui/vba/vbadocuments \
sw/source/ui/vba/vbaparagraphformat \
sw/source/ui/vba/vbaborders \
sw/source/ui/vba/vbavariables \
sw/source/ui/vba/vbastyles \
sw/source/ui/vba/vbapanes \
sw/source/ui/vba/wordvbahelper \
))
# vim: set noet sw=4 ts=4: