13. august 2002 - 19:11Der er
1 kommentar og 1 løsning
VBA Word: Variabler med teksten "Test_var" skal indlæses ....
Hej derude.
Jeg har lagret et antal variabler i activedocument.variables.
Ved tryk på cmdIndlæs, skal alle variabler med forskriften "Test_var" i samlingen indlæses i en combbox.
Jeg har denne kode nu, som selvklart ikke fungerer:
For Each avar In ActiveDocument.Variables If avar.Name = "StickIt_" Then CombNotID.AddItem avar.Name CombNotID.Text = Replace(CombNotID.Text, "StickIt_", "") MsgBox CombNotID.Text End If Next
Mon jeg har forstået det ret - kan du ikke bare gøre:
CombNotID.Clear For Each avar In ActiveDocument.Variables If Left(avar.Name, 8) = "StickIt_" Then CombNotID.AddItem avar.Name End If Next ComboNotID.Listindex = 0 'Vælger den første på listen
Jeg sad selv og arbejdede på noget lignende og endte med:
Private Sub CommandButton1_Click()
For Each avar In ActiveDocument.Variables If InStrRev(avar.Name, "StickIt_") Then variabelData = avar.Value variabelTekst = Replace & _ avar.Name, "StickIt_", "") CombNotID.AddItem variabelTekst TxtNotat.Text = variabeldata Else exit sub End If Next
Humlen lå nemlig også i, at StickIt_ ikke skulle med i combnotid.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
