Un suggerimento potrebbe essere quello di inserire un carattere "quadrato vuoto" (oppure "quadrato spuntato" se è una check list quella che devi implementare) ricavandolo dai caratteri Wingdings.

Potresti anche costruire un template di Word che riempi con i dati voluti. Allora i quadratini possono essere sostituiti da cellette di tabella (usa le tabelle Luke! sono molto potenti e flessibili) che possono essere manipolate per quanto riguarda i loro bordi (anche in diagonale).

Esempio

ActiveDocument.Shapes.AddTextbox msoTextOrientationHorizontal, 50, 50, 25, 25

L'istruzione l'ho provata in Word e funziona correttamente. Se tu l'hai provata in Word e non ti funziona, è strano: quindi specifica che versione di Word stai usando.

E' altamente probabile comunque che tu voglia farlo da Excel. Io non ho spiegato come fare perchè mi sembra prematuro, dal momento che prima bisogna capire se questa è una soluzione accettabile per te.  Dopodichè ok, bisogna istanziare gli oggetti giusti, aprire gli oggetti giusti e pilotare gli oggetti giusti.

Non c'era bisogno di giustificarsi però grazie della tua premura. Torna quando vuoi e quando puoi.

Fulvio ha scritto:

salvarlo in un percorso a piacere e vedere se così posso impostarlo come activedocument.

 

No, non complicarti le cose inutilmente, ti basta impostare un riferimento all'oggetto Document assegnandolo ad una variabile oggetto. Ne riparliamo quando hai voglia/tempo/possibilità di farlo.

Allora, scrivo la mia opinione.
Il codice che presenti non è così male e nemmeno così rozzo (o patetico come vedo nei commenti al codice) 🙂
Per farlo funzionare io ho utilizzato l'early binding cioè ho dichiarato le variabili as object invece che del tipo corretto, perchè non ho referenziato la libreria di Word. Fatto questo e l'aggiustamento che segue, funziona tutto benissimo.

L'aggiustamento, che risolve il primo punto, è nel sostituire le istanze di ActiveDocument con WordDoc. Non capisco perchè non lo fai, dal momento che hai creato questo oggetto ma poi non lo usi.

Ecco le mie uniche modifiche al tuo codice:

    '--- questo blocco mi serve per creare lo shape di tipo textbox e per il momento popolarlo con una X - INIZIO

    With WordDoc
        .Shapes.AddTextbox msoTextOrientationHorizontal, 140, 40, 15.6, 15.6
        .Shapes(.Shapes.Count).Name = "check_" & .Shapes.Count
    End With

    With WordDoc.Shapes("check_1").TextFrame.TextRange
        .Text = "X"
        .Font.Name = "Calibri"
        .Font.Size = 11
        .Font.Bold = True
        .ParagraphFormat.LeftIndent = WordApp.CentimetersToPoints(-0.1)
        .ParagraphFormat.LineSpacing = WordApp.LinesToPoints(0.7)
    End With

Nota che per LeftIndent e LineSpacing ho dovuto specificare WordApp perchè le due funzioni di conversione (da centimetri a punti e da linee a punti) sono metodi dell'oggetto Word Application e quindi sono sconosciute a Excel: pertanto le devi referenziare esplicitamente. Avendo già istanziato l'oggetto Word Application, la correzione è facilissima.

Stilisticamente, puoi utilizzare nel seguito un With WordSel ... End With per evitare di scrivere ripetutamente WordSel.TypeText (puoi sostituire con .TypeText). Una finezza ininfluente 🙂

Il problema 2 non l'ho riscontrato nemmeno dopo un ciclo ininterrotto di dieci chiamate all'intera procedura (che ha generato dieci fogli word perfettamente compilati).

L'unica stranezza è la posizione della Shape con la X... in alto nel foglio. Vabbè forse devi aggiustare le misure. Dipende dove devi metterla 🙂

Ah consiglio importante... manca Option Explicit, mettilo in testa al modulo, sempre, quando sviluppi con VBA.

Fulvio ha scritto:

ho cambiato la mia struttura inserendo i check box alla fine della scrittura del testo

Valuta l'opzione di creare una tabella di una cella e di inserirvi la Shape. Dovunque sia la tabellina, il codice vi posiziona dentro una casella di testo.

Sub test()
Dim sx As Single
Dim al As Single
    sx = ActiveDocument.Tables(1).Range.Information(wdHorizontalPositionRelativeToPage)
    al = ActiveDocument.Tables(1).Range.Information(wdVerticalPositionRelativeToPage)
    ActiveDocument.Shapes.AddTextbox msoTextOrientationHorizontal, sx, al, 13, 13
End Sub