Newsgroup: it.comp.lang.visual-basic
Titolo: AAiiuuttoo - formattazione testo in ms word

Salve a tutti,
io sto convertendo dei files di testo in files .doc, e fin qui niente di
clamoroso.
Il problema è che se formatto una riga con caratteri bold e la
application.visible= true la riga viene stampata in grassetto, ma se la
application.visible = false, il codice di formattazione viene eseguito ma
quando apro il documento, niente !. La riga non viene formattata.
PERCHE'?
--------------------------------
Inviato via 
http://usenet.libero.it

 PERCHE'?
    No codice? No risposta!
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------


ha scritto:

Option Explicit
Public wda As Word.Application, wdd As Word.Document
Public Sub apri()
    On Error Resume Next
    Set wda = GetObject(, "Word.Application")
    If Err = 429 Then
    Set wda = CreateObject("word.application")
     Err.Clear
    End If
   wda.Visible = False
End Sub
Public Function creadocumento() As Boolean
    creadocumento = False
    Set wdd = wda.Documents.Add(DocumentType:=wdNewBlankDocument, Visible:=True)
    wdd.Activate
    If Not (wdd Is Nothing) Then
    creadocumento = True
    MsgBox wdd.Name & " " & wda.Caption
    End If
End Function
 clicco cmdinizio
apro word (sub apri)
.
.
.
.
With ActiveDocument.PageSetup
 
                .LineNumbering.Active = False
                .Orientation = wdOrientPortrait
                .TopMargin = CentimetersToPoints(2.5)
                .BottomMargin = CentimetersToPoints(2)
                .LeftMargin = CentimetersToPoints(1)
                .RightMargin = CentimetersToPoints(1)
                .Gutter = CentimetersToPoints(0)
                .HeaderDistance = CentimetersToPoints(1.25)
                .FooterDistance = CentimetersToPoints(1.25)
                .PageWidth = CentimetersToPoints(21)
                .PageHeight = CentimetersToPoints(29.7)
                .FirstPageTray = wdPrinterDefaultBin
                .OtherPagesTray = wdPrinterDefaultBin
                .SectionStart = wdSectionNewPage
                .OddAndEvenPagesHeaderFooter = False
                .DifferentFirstPageHeaderFooter = False
                .VerticalAlignment = wdAlignVerticalTop
                .SuppressEndnotes = False
                .MirrorMargins = False
                .TwoPagesOnOne = False
                .GutterPos = wdGutterPosLeft
            End With
            'wdd.Select
            With Selection.Font
                .Name = "Courier"
                .Size = 8
                .Bold = False
                .Italic = False
                .Underline = wdUnderlineNone
                .UnderlineColor = wdColorAutomatic
                .Strikethrough = False
                .DoubleStrikeThrough = False
                .Outline = False
                .Emboss = False
                .Shadow = False
                .Hidden = False
                .SmallCaps = False
                .AllCaps = False
                .Color = wdColorAutomatic
                .Engrave = False
                .Superscript = False
                .Subscript = False
                .Spacing = -1
                .Scaling = 100
                .Position = 0
                .Kerning = 0
                .Animation = wdAnimationNone
            End With
.
.
.
.
.ECCO!!! ( se precedentemente imposto wda.visible = true ) il bold appare se
false ,no
                             Selection.MoveUp Unit:=wdLine, Count:=1
                            Selection.MoveRight Unit:=wdCharacter, Count:=Len(riga), Extend:=wdExtend
                            Selection.Font.Bold = wdToggle
                            Selection.MoveDown
                            Selection.Font.Bold = False
.
.
.
chiudo
Public Sub chiudidocumento(n)
    wdd.Close SaveChanges:=wdDoNotSaveChanges
    Set wdd = Nothing
End Sub
Public Sub chiudi()
    On Error Resume Next
    wda.Quit
    Set wda = Nothing
End Sub
spero di essere stato chiaro.
Grazie!!!!!


 End Sub
    Scrivi: "il bold appare". Che vuol dire? Se l'applicazione word non e'
visibile come fai a dire se "appare" o no? Poi perche' usi "wdToggle" che
non fa quello che vuoi esattamente ma solo il contrario dell'impostazione
corrente? E' piu' difficile da controllare, cosi'.


voglio dire che la riga viene formattata con caratteri in grassetto solo se
la word.application.visible = true se invece imposto
word.application.visible = false la riga non viene formattata con carattei
in grasseto.
grazzie!!
