Word - Testi alternativi su una riga

[tutamimetica]

Salve. La mia è solo una curiosità, ma penso che sia impossibile da risolvere. Ipotizziamo che sto scrivendo un documento: io sottoscritto ....... madre/padre ............ quel madre padre è possibile scriverlo su una riga sovrapposta tipo un rapporto in matematica?
Grazie Tutamimetica.

[Dylan666]

Non so se ho capito ma provo: provata l'opzione apice?

[tutamimetica]

Grazie di aver risposto. Il comando consigliato non va bene. Forse non mi sono espresso bene nella mia richiesta.
Pensa a una domanda: a un certo punto c'é una doppia richiesta, per esempio "di avvalersi e di non avvalersi". Io pensavo di scriverli una sopra l'altra tipo apice e pedice in modo da permettere a chi compila di depennare la parte non richiesta.
Io penso che non sia possibile, comunque la mia è solo curriosità e desiderio di approfondimento.
Grazie tuta

[Anthony47]

La domanda di tuta mi aveva incuriosito, perche' ricordavo vagamente che Word dispone di un "Editor di equazioni" che consente di inserire il testo in forma di frazione (con qualcosa al numeratore e altro al denominatore); in questo modo si puo' ottenere quanto richiesto.
Piu' in dettaglio:
-andare nella posizione dove si vuole mettere la "frazione"
-Menu /Inserisci /Campo; dall' elenco scegliere "Eq" (sta' per Equazione)
-premere Equation editor
-se non e' gia' installato, Word cerchera' di installare ora l' Equation editor e per questo vorra' il cd di installazione.
-potrete a questo punto scegliere il simbolo "frazione" (io lo trovo vicino alla radice quadrata) e potrete digitare il numeratore e il denominatore.
Vi anticipo che non ho trovato come "editare" le frazioni introdotte, per cui correggere si fa cancellando il simbolo inserito e reintroducendolo.

Vista la ...praticita' della procedura manuale ho sviluppato una macro che puo' aiutare:

Codice: Seleziona tutto

Sub Fratto()
'inserisce una frazione da Inputbox
Dim Sopra As String, Sotto As String
ActiveWindow.View.ShowFieldCodes  = True
Sopra = InputBox("Numeratore?")
Sotto = InputBox("Denominatore?")
With Selection
  .TypeText Text:="  "
  .MoveLeft Unit:=wdCharacter, Count:=1
  .Collapse (wdCollapseStart)
  .Font.Size = (.Font.Size) * 1.0  '<<< Font size della frazione rispetto lo std, es 0.8 riduce
  .Fields.Add  Range:=Selection.Range,  Type:=wdFieldEmpty, _
    PreserveFormatting:=False, Text:= "EQ \f(" & Sopra & ";" & Sotto & ")"
  .MoveLeft Unit:=wdCharacter, Count:=2
  .Delete
  .Fields.Update
End With
ActiveWindow.View.ShowFieldCodes  = False
Selection.MoveRight Unit:=wdCharacter, Count:=2
End Sub

Posizionate il cursore dove si vuole inserire la frazione, lanciate la macro; vi sara' richiesto il numeratore e il denominatore e avverra' l' inserimento.
Potete variare il size dei caratteri di frazione cambiando il coefficiente (ora posto a 1) nell' istruzione marcata <<<.

Sono curioso di sapere se a qualcuno interessa...

Ciao.

[Dylan666]

Altrimenti co sono sempre le "Caselle di testo"

[Anthony47]

Visto il successo della macro precedente e gli innumerevoli tentativi di imitazione, ne ho sviluppato una ulteriore, pensata per processare un documento completo dove le alternative sono gia' inserite nel testo in forma "#Testo 1/Testo 2#" (senza gli apici); cioe' utilizzando # come marker di inizio/fine stringa da convertire in frazione, con i termini Numeratore e Denominatore separati dalla /.
Insomma un testo del tipo #il/la# sottoscritt#o/a#, residente a ..... #accetta/non accetta# etc etc

Se nel testo vi serve il carattere #, allora potete usare un marker diverso (anche piu' caratteri) e modificare l' istruzione segnata con <<<
Il codice:

Codice: Seleziona tutto

Sub Fract_doc()
'In un doc esistente converte in frazioni le sequenze #Testo 1/Testo 2#
' # e' il marker di inizio/fine blocco, / e' il separatore dei termini
' Il marker puo' essere 1 o piu' crt, modificabili nel codice (vedi <<<)
Dim Sopra As String, Sotto As String
Dim CCount As Integer, CBloc As Integer, StdH As Integer
Dim Mrk As String
'
Mrk = "#"     '<<< marker di blocco
'
Do
Selection.HomeKey unit:=wdStory
CCount = Selection.MoveEndUntil(Cset:=Mrk)
If CCount = 0 Then
 If CBloc > 0 Then
' msg = "Convertite N." & CBloc & " stringhe #Parola/Parola#"
 CCount = MsgBox("Convertite N." & CBloc & " stringhe #Parola/Parola#", , "(c) by Anthony")
 Exit Sub
 Else
 MsgBox ("Non sono state trovate stringhe #Parola/Parole# da convertire")
 Exit Sub
 End If
End If
Selection.MoveRight unit:=wdCharacter, Count:=1
Selection.MoveRight unit:=wdCharacter, Count:=Len(Mrk), Extend:=wdExtend
StdH = Selection.Font.Size
Selection.Delete            'delete #
'Cerca blocco Parola/Parola#
CCount = Selection.MoveEndUntil(Cset:=Mrk, Count:=200)
If CCount = 0 Then
MsgBox ("Non e' stato trovato il crt di fine blocco (#)" & vbCrLf & "Abort procedura")
Selection.TypeText Text:=Mrk    'restore #
Exit Sub
End If

'Riformatta a frazione una selezione separata da "/"
'
CBloc = CBloc + 1
ActiveWindow.View.ShowFieldCodes = True
With Selection
  Sopra = Trim(Split(Selection, "/")(0))
  Sotto = Trim(Split(Selection, "/")(1))
  .Font.Size = StdH * 0.8    '<<< Font size della frazione rispetto lo std, es 0.8 riduce
  .Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
    PreserveFormatting:=False, Text:="EQ \f(" & Sopra & ";" & Sotto & ")"
  .MoveLeft unit:=wdCharacter, Count:=2
  .Delete
  .Fields.Update
End With
ActiveWindow.View.ShowFieldCodes = False
CCount = Selection.MoveEndUntil(Cset:=Mrk)
Selection.MoveRight unit:=wdCharacter, Count:=1
Selection.MoveRight unit:=wdCharacter, Count:=Len(Mrk), Extend:=wdExtend
Selection.Delete            'delete #
Loop
End Sub

La macro non gestisce tutti i possibili errori, quindi fate sempre 2 copie di backup.

Ciao.

[tutamimetica]

Grazie. Oggi provo (spero) e poi ti farò sapere.
Comunque Antony sei gentilissimo e professionalmente sei il massimo.
Grazie di nuovo.
Tuta