diff options
| author | Tom Verbeek <tv@openoffice.org> | 2001-10-09 09:37:05 +0000 |
|---|---|---|
| committer | Tom Verbeek <tv@openoffice.org> | 2001-10-09 09:37:05 +0000 |
| commit | ae52725ccf44599ffef37d1ddb4e786b2cd64c35 (patch) | |
| tree | c6cd6289100436fc0c1cfaecd677558361978b35 /wizards/source/template/Correspondence.xba | |
| parent | ee2b9569d3317ea82cb2dfb31573db489f05a0d1 (diff) | |
#92603# fixed problem with japanese fields
Diffstat (limited to 'wizards/source/template/Correspondence.xba')
| -rw-r--r-- | wizards/source/template/Correspondence.xba | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/wizards/source/template/Correspondence.xba b/wizards/source/template/Correspondence.xba index 4ecb5aa45670..eb1d6d3a5278 100644 --- a/wizards/source/template/Correspondence.xba +++ b/wizards/source/template/Correspondence.xba @@ -68,7 +68,7 @@ Dim oDocSettings as Object If bDBFields Then oDBAccess = GetRegistryKeyContent("org.openoffice.Office.DataAccess/AddressBook/") sAddressbook = oDBAccess.DataSourceName - + If sAddressbook = "" Then 'If there is no field mapping If Not odBAccess.AutoPilotCompleted Then 'If the Mapping Pilot never ran oAddressPilot = createUnoService("com.sun.star.ui.dialogs.AddressBookSourcePilot") @@ -110,7 +110,7 @@ Dim oDocSettings as Object oFoundall = oDocument.FindAll(oSearchDesc) 'Loop over the foundings - For i = 0 To oFoundAll.Count - 1 + For i = oFoundAll.Count -1 To 0 Step -1 oFound = oFoundAll.GetByIndex(i) sFoundString = oFound.String 'Extract the string inside the brackets |