/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
[VB6] Erstatte ord i Word
Fra : Niels Henriksen


Dato : 14-01-02 16:57

Hejsa

Jeg skal bruge en rutine, der kan erstatte nogle ord i Word med data som man
indtaster i et VB-prog.

Nogle der har noget?

--
Niels Henriksen






 
 
Mikkel Bundgaard (14-01-2002)
Kommentar
Fra : Mikkel Bundgaard


Dato : 14-01-02 21:50

"Niels Henriksen" <new@biggs.dk> wrote in message
news:a1uukt$1v6h$1@news.cybercity.dk...
> Hejsa
>
> Jeg skal bruge en rutine, der kan erstatte nogle ord i Word
> med data som man indtaster i et VB-prog.
>
> Nogle der har noget?
>
> --
> Niels Henriksen
Hej Niels

Dette er et eksempel, som du måske kan bruge som
inspiration. Dette er dog skrevet i VBA, men der burde ikke
være den store forskel. Du skal nok huske at sætte en
reference til Microsoft Word 8.0 Object Library.

Option Explicit

Public Sub replaceWords(strOldWord As String, _
strNewWord As String)
' Reference til Word applikationen
' og til dokumentet
Dim wdApp As Word.Application
Dim myDoc As Word.Document

' Åben Word i baggrunden og åben et dokument
Set wdApp = New Word.Application
Set myDoc = wdApp.Documents.Open("C:\My " & _
"Documents\Usenet\Meget tekst.doc")

' Skjul Word
wdApp.Visible = False

wdApp.Selection.Find.ClearFormatting
wdApp.Selection.Find.Replacement.ClearFormatting
' Erstat alle forekomster af strOldWord med strNewWord
With wdApp.Selection.Find
.Text = strOldWord
.Replacement.Text = strNewWord
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
wdApp.Selection.Find.Execute Replace:=wdReplaceAll

' Luk Word og gem dokument
wdApp.Quit True

Set wdApp = Nothing
Set myDoc = Nothing
End Sub

Håber du kan bruge det til noget
--
Mikkel Bundgaard
IT University of Copenhagen
http://officehelp.gone.dk
Codito, Ergo Sum



Niels Henriksen (15-01-2002)
Kommentar
Fra : Niels Henriksen


Dato : 15-01-02 12:51

"Mikkel Bundgaard" <mikkelbu@teliamail.dk> wrote in message
news:a1vgb6$aga$1@sunsite.dk...
>
> Håber du kan bruge det til noget
>
Yep... virker fint... skal bare have lavet et nummer, så den kan laves til
en dll og ud på printer

--
Niels Henriksen




Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste