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
Skal virksomheder stå stærkere mod angreb og kunne udvikle sig, skal sikkerhed, drift og forretning tænkes sammen. Det er tanken bag Jysk IT’s ambition om at skabe en “sikker fremtid” for kunderne.
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.
