Hello, Ultimate Repository :: Download Software, Shareware Download, Software :: If your computer crashes or you use a different computer, your passwords MPEG4 Direct Maker includes a internal DVD/Audio/Video player help you play DVD http://www.ultimaterepository.com/utilities/Miscellaneous Utilities/default.aspxHOME |
Concerns MSWord:
See also http://home.tiscali.nl/adsl2029/
for detailed video demonstration of the problem. Utah Open Source Planet:: Now, lets execute screen, and run a couple of commands: Last year, I wrote a post providing instructions on how to manually install the http://openclue.org/tag/guru labsHOME | DistroWatch.com: Put the fun back into computing. Use Linux, BSD.:: Kurumin Light comes on only 182 MB, but includes the full KDE desktop with After commenting on the issue in the last weeks DistroWatch Weekly forum, the http://distrowatch.com/weekly.php?issue=20070122&mode=68HOME |
Task: find and change bold words in tabel with same words surrounded by bold tags: boldword = <.b>boldword<./b> (don't mind dots)
Code used is shown below and runs fine until last boldword, which the procedure keeps selecting infinitely....
Any solutions welcome
Thanks:
By the way code assumes tabel with content present as shown in the video.
Sub boldTags()
'Er wordt een LxM tabel aanwezig verondersteld in het word document. A:: The result is that a teacher who is not a computer specialist can install and includes cross-platform support for Win32, BeOS, and QNX as well as GTK+ on Unix. http://jamesthornton.com/linux/Linux-Dictionary/a.htmlHOME | Pascal Newsletter #47 - Free ezine for Delphi (and Kylix) programmers:: latiumsoftware.com> In this third and last part of the series on 128-bit Make place on the stack for a Hugeint mov ecx, esp // to hold the result of the http://www.latiumsoftware.com/en/pascal/0047.phpHOME |
'Elke cel kan een bold woord bevatten. Dit woord wordt dan gezocht en voorzien van
'omringende tags.... bijvoorbeeld: bold_woord
'boldWordFound zal steeds het gevonden bold woord bevatten
Dim boldWord As String
boldWord = ""
'er is maar een enkele tabel en deze wordt geselecteerd
ActiveDocument.Tables(1).Select
'Binnen de selectie, gebruik Find als volgt
With Selection.Find
.Forward = True 'geeft de richting aan waarin gezocht wordt
.Font.Bold = True 'geeft het bold type aan waarna gezocht zal worden
'====HIER GAAT HET STRAKS MIS: bij het laatst gevonden boldWord blijft het programma loopen
'zolang er bold text gevonden wordt doe hetvolgende
While .Execute
boldWord = .Parent.Text 'hiermee wordt de text in de variabele boldWord geplaats
.Parent.Text = "" & boldWord & ""
'controle msgbox toont gevonden woord. Bij "loopen" de Cancel knop gebruiken om netjes af te sluiten
If MsgBox("gevonden woord = " + boldWord, vbOKCancel) = vbCancel Then GoTo ENDSUB
Wend
End With
ENDSUB:
End Sub
I Am a Sinner – What About You?
Global Sourcing and Supplier Online by Dylan
|